Mijn probleem is hetvolgende.
Ik wil een adoconnection maken maar ik zou dan de gegevens vanuit een tekstbestand willen inlezen.
heeft iemand hier een oplossing voor.
Ik heb loadfromfile al geprobeerd maar krijg dit niet werkend in D2007!!!
Mijn probleem is hetvolgende.
Ik wil een adoconnection maken maar ik zou dan de gegevens vanuit een tekstbestand willen inlezen.
heeft iemand hier een oplossing voor.
Ik heb loadfromfile al geprobeerd maar krijg dit niet werkend in D2007!!!
Is er geen ODBC tekstdriver voorhanden genaamd "ODBC Microsoft text driver"?
DeX 3 Delphi := The ease of VB with the power of C; Zoekt en gij zult vinden
Welke loadfromfile heb je geprobeerd en wat krijg je er niet werkend aan?
1+1=b
Sorry, ik denk dat je me verkeerd begrijpt.
Ik wilde graag dat de plaats waar de database zich bevind op de harde schijf wordt ingelezen vanuit dit tekstbestand.
In het textbestand staat dan hetvolgende:
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=\\Kantoor\KS\Programma.mdb;Mode=Share Deny None;Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDBatabase Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;
Vandaar dat ik het heb geprobeerd om via een loadfromfile commando de tekst in te lezen maar dit commando werkt niet bij mij.
Zou het kunnen dat ik bij de Uses declaratie iets extra's moet invullen zodat d2007 het commando 'loadfromfile' herkent?
Aha. Misverstandje inderdaad
LoadFromFile is geen los commando, maar is een method van diverse classes, waaronder TStringList.
Je zou dus de volgende code kunnen schrijven:
LoadFromFile, Text en Free zijn methods van TStringList. Je kunt natuurlijk ook de with weglaten en een variabele van het type TStringList gebruiken.Code:with TStringList.Create do try LoadFromFile('JouwFile.txt'); JouwAdoConnection.ConnectionString := Text; finally Free; end;
1+1=b
Dat is 'm, bedankt voor de zeer snelle reacties.
Weer een stuk wijzer geworden (en ouder!).
Ik kan nu weer ongestoord verder met mijn proggie.
Is het niet handiger om in dit geval met een ini-file te werken ? Dan is het ook makkelijker om de waarden van de variabelen in te lezen...
Brouwvisie is helemaal mijn ding
http://www.bier-brouwer.nl
Functie 1 :
Functie 2 :Code:Function IniGetStringValue( TheIniFile : String; IniSection : String; StringName : String; DefaultString : String): String; Var TheIni : TIniFile; Begin TheIni := TIniFile.Create(Self) ; Try Result := TheIni.ReadString( IniSection, StringName, DefaultString) ; If Result = '' Then Result := DefaultString; Finally TheIni.Free; End; End;
Bron : http://delphi.about.com/cs/adptips20...ltip1201_5.htmCode:Function IniSetStringValue( TheIniFile : String; IniSection : String; StringName : String; StringValue : String): Boolean; Var TheIni : TIniFile; Begin TheIni := TIniFile.Create(Self) ; Try Try TheIni.WriteString( IniSection, StringName, StringValue) ; Result := True; Except Result := False; End; Finally TheIni.Free; End; End;
Brouwvisie is helemaal mijn ding
http://www.bier-brouwer.nl
Je code ook getest?Code:{TInifile} constructor Create(const FileName: string);
DeX 3 Delphi := The ease of VB with the power of C; Zoekt en gij zult vinden
Waarom maak je geen gebruik van een udl file?
Zet in je connectionstring
'FILE NAME=<pad udl file><udl filename>'
een udl filename is vrij simpel in elkaar te zetten. maak een textfile verander de extensie naar .udl. Dubbelklik op de udl file en je krijgt een dialoog welke je helpt bij het maken van de juiste connectie.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks