AdsConnection während Laufzeit erstellen

[Cuchulainn]

Hallo,

ich beschäftige mich im Moment mit den ADS-Komponenten, um die BDE zu ersetzen. Jetzt würde ich die AdsConnection gerne während der Laufzeit erstellen. Folgendermaßen habe ich es versucht:

Delphi-Quellcode:

  slKategorien := TStringlist.Create;
  Query := TAdsQuery.Create(Query);
  AdsConn := TAdsConnection.Create(AdsConn);
  AdsConn.IsConnected := false;
  AdsConn.ConnectPath := ExtractFilePath(ParamStr(0));
  AdsConn.AdsServerTypes := [stADS_LOCAL];
  Query.DatabaseName := 'AdsConn';

Später möchte ich eine SQL-Anweisung ansführen:

Delphi-Quellcode:

  with Query do
  begin
    Close;
    Sql.Clear;
    Sql.Add('SELECT Kat_Name FROM "' + StrTabelle + '"');
    Open;
  end;

Dann kommt die Fehlermeldung, die ich an diesen Beitrag angehängt habe. Kann mir jemand sagen, wo der Fehler liegt?

[bttb930]

Du mußt glaube ich nicht Query.Databasename auf einen String setzen, sondern vor allem Query.Connection auf die Connection.

[Kevin]

Kommt die Meldung auch schon in der IDE? Wann genau kommt die Fehlermeldung und unter welchem Betriebssystem?

[woki]

Hi,

ein guter Weg herauszufinden, was man coden muß, ist diegleiche Komponenten einmal in der IDE zu erstellen, und dann die Komponente markieren, und kopieren und in einen Texteditor pasten.

Was noch besser geht ist die Funktion Componenttocode der Gexperts.

Grüsse
Woki

[Cuchulainn]

@bttb930: Die Eigenschaft Query.Connection habe ich nicht gefunden. Bist du sicher, dass es sie gibt?

@Kevin: Die Fehlermeldung kommt nicht in der IDE. Die Fehlermeldung taucht auf, wenn ich eine Query ausführe. Ich arbeite mit Windows.

@Woki: Danke für den Tipp, aber das hat mir auch nicht weitergeholfen. Ich habe mir das in einem Texteditor angesehen und die angezeigten Eigenschaften programmiert, aber es hat nichts genützt

[Kevin]

Zitat von Cuchulainn:

Ich arbeite mit Windows.

Das dachte ich mir Und mit welchem Windows...?!?

[Cuchulainn]

Zitat von Kevin:

Zitat von Cuchulainn:

Ich arbeite mit Windows.

Das dachte ich mir Und mit welchem Windows...?!?

Richtig. Das hätte ich auch schreiben können Mit Windows 2000

[Kevin]

Also ich verbinde meine Datenbank zur Laufzeit folgendermaßen:

Delphi-Quellcode:

  DataModule2.AdsConnection1.IsConnected := false;
  DataModule2.AdsConnection1.ConnectPath := ExtractFilePath(Application.ExeName);
  DataModule2.AdsConnection1.IsConnected := true;

Alle Querys sind mit der Connection verbunden und lassen sich ohne Probleme ausführen. Unter 98/2000/XP.

Ich fragte nur nach der Windowsversion, weil ich unter 98 und 2000 eine Fehlermeldung bekam, wenn ich den direkten Pfad vor dem Erzeugen des Projektes nicht gelöscht habe. Bei XP war auch das kein Problem.

[Cuchulainn]

Danke, aber das habe ich bei mir ja auch alles drin. Aus der Fehlermeldung schließe ich, dass es etwas mit dem lokalen Betrieb zu tun hat.

[Kevin]

Schonmal die KnowledgeBase von Advantage dazu befragt?