Zur Laufzeit mit ADS verbinden

[APP]

Gute Idee,
wenn Du uns noch sagen könntest wo es hapert...


Mal so nach Gefühl ein Beispiel:

AdsConnection1 -> AdsTable1 -> DataSource1 -> DBGrid1

Im onCreate Ereignis vom MainFormular:

Delphi-Quellcode:

  // Sicher ist sicher
  AdsTable1.Active := FALSE;
  WITH AdsConnection1 DO
    BEGIN
      // Kein Loginfester anzeigen
      LoginPrompt := FALSE;
      ConnectPath := 'Das Verzeichnis wo Deine Tabellen sind';
      AdsServerTypes := [stADS_LOCAL];
    END;
  WITH AdsTable1 DO
    BEGIN
      TableName := 'DeineTabelle.adt';
      Active := TRUE;
    END;

Ist natürlich extrem ausbaufähig, z.B. mit Sicherheitsabfragen
(Tabelle vorhanden, Connect fehlerhaft,...)