Muß mal Source liefern. 8) So ungefähr sieht das aus :
Delphi-Quellcode:
EingDM.ReadTransaction.Commit;
Transaction.active := false;
Database.Close;
Database.CloseDataSets;
Database.Connected := false;
with RestoreService
do begin
Options := [Replace,UseAllSpace];
// DB-Seiten zu 100 % füllen (Standard 80 %)
BufferSize := 3000;
PageSize := 4096;
ServerName := '
localhost';
LoginPrompt := False;
Params.Add('
user_name='+User);
Params.Add('
password='+Password);
Active := false;
try
Verbose := True;
BackupFile.Clear;
BackupFile.Text := DBgbk;
DatabaseName.Text := DBgdb;
ServiceStart;
finally
Active := False;
Database.Open;
Transaction.StartTransaction;
ShowMessage ('
Rücksicherung beendet !');
Close;
end;
Das unwichtige drumrum habe ich weggemacht. Wo ist da ein Fehler ? Momentan kommt der Fehler "Service not attached". Das wird aber wohl an meiner Fummelei im
OI liegen. 8) Wie gesagt vorher kam entweder "
DB not open" oder "
DB is in use".
EDIT : es kommen schon immer die gleichen Fehler, solange nichts am Quelltext geändert wird !