Hi,
bin neu auf diesem Gebiet (Delphi Prof.2006 InterBase 7.5 IBBackupService IBRestoreService) und hab mir eine Funktion in mein Prog. eingebaut um die InterBase Datenbank zu sichern :
with DataModule1.IBBackupService1 do begin
PDJXPMemo1.Lines.Clear;
PDJXPMemo1.Lines.Add('Ihre Datenbank wird gesichert.... Los!');
PDJXPMemo1.Lines.Add(' ');
Params.Add('user_name=misterX');
Params.Add('password=test');
BackupFile.Clear;
BackupFile.Add(AdvLUEdit2.Text+'\AQUA_'+neue_endun g+'.gbk');
DatabaseName := AdvLUEdit1.Text;
Active := True;
Verbose := True;
ServiceStart;
while not Eof do begin
PDJXPMemo1.Lines.Add(GetNextLine);
Application.ProcessMessages;
end;
Active := False;
end;
Es klappt wunderbar, der User kann die Datenbank und den Sicherungsort auswählen. Fertig!
Beim Restore klappt es gar nicht:
with DataModule1.IBRestoreService1 do begin
PDJXPMemo1.Lines.Clear;
PDJXPMemo1.Lines.Add('Ihre Datenbank wird wiederhergestellt.... Los!');
PDJXPMemo1.Lines.Add(' ');
Params.Add('user_name=misterX');
Params.Add('password=test');
BackupFile.Clear;
BackupFile.Add(AdvLUEdit3.Text);
DatabaseName.Add(AdvLUEdit1.Text);
Active := True;
Verbose := True;
ServiceStart;
while not Eof do begin
PDJXPMemo1.Lines.Add(GetNextLine);
Application.ProcessMessages;
end;
Active := False;
Bekomme eine Meldung: Datenbabk existiert und um sie zu ersetzen soll ich einen -R schalter benutzen..... aber WIE und WO???
Gibt es irgendo Beispiele für diese Vorgänge oder Beschreibung der Optionen/TraceFlags bei den Komponenten, Delphi war mir da keine Hilfe.
Andreas Bremer
bin neu auf diesem Gebiet (Delphi Prof.2006 InterBase 7.5 IBBackupService IBRestoreService) und hab mir eine Funktion in mein Prog. eingebaut um die InterBase Datenbank zu sichern :
with DataModule1.IBBackupService1 do begin
PDJXPMemo1.Lines.Clear;
PDJXPMemo1.Lines.Add('Ihre Datenbank wird gesichert.... Los!');
PDJXPMemo1.Lines.Add(' ');
Params.Add('user_name=misterX');
Params.Add('password=test');
BackupFile.Clear;
BackupFile.Add(AdvLUEdit2.Text+'\AQUA_'+neue_endun g+'.gbk');
DatabaseName := AdvLUEdit1.Text;
Active := True;
Verbose := True;
ServiceStart;
while not Eof do begin
PDJXPMemo1.Lines.Add(GetNextLine);
Application.ProcessMessages;
end;
Active := False;
end;
Es klappt wunderbar, der User kann die Datenbank und den Sicherungsort auswählen. Fertig!
Beim Restore klappt es gar nicht:
with DataModule1.IBRestoreService1 do begin
PDJXPMemo1.Lines.Clear;
PDJXPMemo1.Lines.Add('Ihre Datenbank wird wiederhergestellt.... Los!');
PDJXPMemo1.Lines.Add(' ');
Params.Add('user_name=misterX');
Params.Add('password=test');
BackupFile.Clear;
BackupFile.Add(AdvLUEdit3.Text);
DatabaseName.Add(AdvLUEdit1.Text);
Active := True;
Verbose := True;
ServiceStart;
while not Eof do begin
PDJXPMemo1.Lines.Add(GetNextLine);
Application.ProcessMessages;
end;
Active := False;
Bekomme eine Meldung: Datenbabk existiert und um sie zu ersetzen soll ich einen -R schalter benutzen..... aber WIE und WO???
Gibt es irgendo Beispiele für diese Vorgänge oder Beschreibung der Optionen/TraceFlags bei den Komponenten, Delphi war mir da keine Hilfe.
Andreas Bremer
Comment