I am using IBCBackupService to restore a Firebird Database from a backup file (*.fbk).
I am getting an error 'Query parameters missing or incorrect'
Code: Select all
function MIBRestoreFile(MFileName: TFileName): Boolean;
var
aLine: String;
begin
result := FALSE;
with DMIB.IBCRestoreService1 do
begin
DMIB.IBEnvironment.Connected := FALSE;
Server := '';
LoginPrompt := FALSE;
UserName := 's***';
Password := 'm****';
Active := True;
try
DMIB.IBCBackupService1.ClientLibrary := DMIB.IBEnvironment.ClientLibrary;
Verbose := False;
Options := [roReplace, roUseAllSpace];
PageBuffers := 3000;
PageSize := 4096;
Database.Clear;
Database.Add(GDataLocation + 'RMAINENVIRONMENT.fdb');
BackupFile.Clear;
BackupFile.Add(MFileName);
ServiceStart;
while not EOF do
begin
try
aLine:=DMIB.IBCBackupService1.GetNextLine; **************EXCEPTION NOTIFICATION HERE
except
aLine:='Exc. ';
end;
Form1.MDisplayMessage(aLine, TRUE);
end;
finally
Active := FALSE;
end;
end;
end;
Thank you
Doug