Einzelnen Beitrag anzeigen

Cyberbob_at_tot

Registriert seit: 30. Apr 2003
Ort: Ahlen
270 Beiträge
 
Delphi 2006 Professional
 
#13

Re: Service mit Paradox stört Backup ?

  Alt 20. Dez 2006, 08:09
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
-----------------------------------------------------------
The only winning move is not to play ! (Wargames)
-----------------------------------------------------------
  Mit Zitat antworten Zitat