Morgen zusammen,
muss leider das Thema nochmal aufgreifen, da ich die
DB einfach nicht getrennt bekomme.
Habe nun am anfang alle Instanzen erstellt...
Delphi-Quellcode:
Datenbank := TDatabase.Create(nil);
Datenbank.AliasName := DATENBANKNAME;
Datenbank.DatabaseName := DATENBANKNAME;
Datenbank.KeepConnection := false;
Datenbank.SessionName := 'Default';
Paradoxquery := TQuery.Create(nil);
Paradoxquery.DatabaseName := Datenbank.DatabaseName;
Paradoxquery.SessionName := 'Default';
Kundenquery := TQuery.Create(nil);
Kundenquery.DatabaseName := Datenbank.DatabaseName;
Kundenquery.SessionName := 'Default';
artikelquery := TQuery.Create(nil);
artikelquery.DatabaseName := Datenbank.DatabaseName;
artikelquery.SessionName := 'Default';
posquery := TQuery.Create(nil);
posquery.DatabaseName := Datenbank.DatabaseName;
posquery.SessionName := 'Default';
dann meine Abfrage gestartet....
Delphi-Quellcode:
Datenbank.Open;
if Datenbank.Connected
then
Writelog('
Verbindung zur DB hergestellt')
else
Writelog('
Verbindung zur DB fehlgeschlagen');
Paradoxquery.active := false;
paradoxquery.SQL.Text := '
select ...';
Paradoxquery.active := true;
paradoxquery.First;
...
und wenn alles fertig ist die Verbindung getrennt.
Delphi-Quellcode:
try
Paradoxquery.Close;
Paradoxquery.Active := false;
Kundenquery.Close;
Kundenquery.Active := false;
artikelquery.Close;
artikelquery.Active := false;
posquery.Close;
posquery.Active := false;
Datenbank.Close;
finally
if Datenbank.Connected
then
writelog('
DB getrennt')
else
writelog('
DB konnte nicht getrennt werden');
end;
Leider wird mir hier immer noch Connected=true ausgegeben. Was habe ich vergessen. Habe die
Query beendet und dann die Datenbank.
Weis leider nicht weiter, könne ihr mir da helfen ?
BIG THX
Cyberbob