Results 1 to 11 of 11

Thread: AdoConnection via tekstbestand

  1. #1

    AdoConnection via tekstbestand

    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!!!

  2. #2
    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

  3. #3
    Welke loadfromfile heb je geprobeerd en wat krijg je er niet werkend aan?
    1+1=b

  4. #4
    Quote Originally Posted by Henkie View Post
    Is er geen ODBC tekstdriver voorhanden genaamd "ODBC Microsoft text driver"?
    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?

  5. #5
    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:
    Code:
    with TStringList.Create do
    try
      LoadFromFile('JouwFile.txt');
      JouwAdoConnection.ConnectionString := Text;
    finally
      Free;
    end;
    LoadFromFile, Text en Free zijn methods van TStringList. Je kunt natuurlijk ook de with weglaten en een variabele van het type TStringList gebruiken.
    1+1=b

  6. #6
    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.

  7. #7
    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

  8. #8
    John Kuiper
    Join Date
    Apr 2007
    Location
    Almere
    Posts
    8,531
    Quote Originally Posted by Oscar View Post
    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...
    Dan vind ik ook dat je met een voorbeeld moet komen. Dan is er in ieder geval vergelijkings code
    Delphi is great. Lazarus is more powerfull

  9. #9
    Functie 1 :
    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;
    Functie 2 :
    Code:
    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;
    Bron : http://delphi.about.com/cs/adptips20...ltip1201_5.htm
    Brouwvisie is helemaal mijn ding
    http://www.bier-brouwer.nl

  10. #10
    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

  11. #11
    Senior Member xsintill's Avatar
    Join Date
    Aug 2002
    Location
    Rotterdam
    Posts
    1,075
    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.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •