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:

Zitat von Cuchulainn

Ich arbeite mit Windows.

Das dachte ich mir :mrgreen: Und mit welchem Windows...?!? :gruebel:

[Cuchulainn]

Zitat:

Zitat von Kevin

Zitat:

Zitat von Cuchulainn

Ich arbeite mit Windows.

Das dachte ich mir :mrgreen: Und mit welchem Windows...?!? :gruebel:

Richtig. Das hätte ich auch schreiben können :oops: 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?

[Cuchulainn]

Nein, noch nicht.
Meinst du damit die Hilfe oder gibt es da etwas anderes?

[Union]

Du gibst für Deine Query als databasename 'AdsConn' an. Woher weiss denn Delphi zur Laufzeit, was das wohl sein soll ? Es fehlt in Deinem Source eine Zeile:

Delphi-Quellcode:

AdsConn := TAdsConnection.Create(nil);
AdsConn.Name := 'FckngConnection';

Und später natürlich:

Delphi-Quellcode:

Query.DatabaseName := 'FckngConnection';

Immer dran denken. AdsConn ist ein VARIABLENNNAME, den gibts aber nicht zur Laufzeit. Also muss über den KOMPONENTENNAMEN gegangen werden, und der heißt bei jeder Komponente name.

Zu guter Letzt solltest Du die Komponenten (Also TAdsConnection und TQuery) nicht auf sich selbst als Parent legen. Falsch:

Delphi-Quellcode:

AdsConn := TAdsConnection.Create(AdsConn);

Richtig:

Delphi-Quellcode:

AdsConn := TAdsConnection.Create(nil);  // oder z.B. Form1

[Kevin]

Zitat:

Zitat von Cuchulainn

Nein, noch nicht.
Meinst du damit die Hilfe oder gibt es da etwas anderes?

In der Advantage Developer Zone gibt es eine "Advantage Full Text Search on the Knowledge Base". Dort kannst Du auch bequem nach der Fehlernummer "6420" suchen. :thuimb:

[Cuchulainn]

@Union: Vielen Dank. Ich versuche es gleich.
@Kevin: Danke für den Tipp. Ich sehe es mir mal an.