Yedekleme ilgili bir sorun...

[comlekciler]

Selam arkadaşlar,

Sorunum Yedekleme işlemini yapıyor ama Geri Yükleme işlemi sırasında bir hata veriyor.

Verdiği hata,



Aşağıda yazdığım kodlar bulunmaktadır.

Yardımlarınızı bekliyorum. Şimdiden teşekkürler...


BackUp Kodları:

Kod: Tümünü seç

 IBBackupService1.Params.Clear;
 IBBackupService1.Params.Add(dm.dbsTaha.Params.Strings[0]);
 IBBackupService1.Params.Add(dm.dbsTaha.Params.Strings[1]);
 IBBackupService1.BackupFile.Clear;
 IBBackupService1.BackupFile.Add('C:\Deneme\Veri Yedek\taha.fbk =2048');
 IBBackupService1.DatabaseName:=Label1.Caption; {Label1.Caption:='C:\Deneme\Veri\TAHA.FDB'}
 Dm.dstBurscu.Close;
 Dm.dstBurslar.Close;
 Dm.dbsTaha.Connected:=False;
 with IBBackupService1 do
   begin
  Active := True;
     try
       ServiceStart;

     finally
       Active := False;
       Application.MessageBox('İşlem Tamam','Uyarı',MB_OK);
     end;
   end;
 Dm.dbsTaha.Connected:=True;
 Dm.dstBurscu.Open;
 Dm.dstBurslar.Open;

ReStore Kodları;

Kod: Tümünü seç

 IBRestoreService1.Params.Clear;
 IBRestoreService1.Params.Add(Dm.dbsTaha.Params.Strings[0]);
 IBRestoreService1.Params.Add(Dm.dbsTaha.Params.Strings[1]);
 IBRestoreService1.BackupFile.Clear;
 IBRestoreService1.BackupFile.Add('C:\Deneme\Veri Yedek\taha.fbk');
 IBRestoreService1.DatabaseName.Add('C:\Deneme\Veri\TAHA.FDB');
 Dm.dstBurscu.Close;
 Dm.dstBurslar.Close;
 Dm.dbsTaha.Connected:=False;
 with IBRestoreService1 do
   begin
  Active := True;
     try
       ServiceStart;

     finally
       Active := False;
       Application.MessageBox('İşlem Tamam','Uyarı',MB_OK);
     end;
   end;
 Dm.dbsTaha.Connected:=True;
 Dm.dstBurscu.Open;
 Dm.dstBurslar.Open;

[rsimsek]

IBRestoreService in özelliklerinde Options kısmında Replace diye bir seçenek var aynı dosyanın üzerine geri almaya çalışıyorsanız onun True olması gerekir Ayrıca aynı yerde CreateNewDB nin de False olması gerek gibi