Delphi firebird veritabanı yedekleme

Yapmak istediğiniz işle ilgili doğru bileşeni bulmak için burayı kullanabilirsiniz. Sadece bulmak için, diğer sorular Programlama forumuna lütfen.
Forum kuralları
Bu forum sadece yapacağınız işle alakalı doğru bileşeni bulmak içindir. Şöyle bir şey yapmam lazım, hangi bileşeni kullanıyım diyorsanız, doğru yerdesiniz.
Cevapla
Bulutiib
Üye
Mesajlar: 41
Kayıt: 13 Ara 2013 12:45

Delphi firebird veritabanı yedekleme

Mesaj gönderen Bulutiib »

Merhaba arkadaşlar ben delphi ile firebird veri tabanı yedeğini almak istiyorum delphi ile bunu nasıl yapabilirim şimdiden teşekkür ederim.
Kullanıcı avatarı
cinarbil
Üye
Mesajlar: 109
Kayıt: 18 Mar 2014 09:26

Re: Delphi firebird veritabanı yedekleme

Mesaj gönderen cinarbil »

Forma 1 adet
TIBBackupService ekle yedekleme için

Kod: Tümünü seç

procedure Tyedekfrm.bt_yedekleClick(Sender: TObject);

begin

    with IBBackupService1 do
  begin
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    Screen.Cursor := crHourGlass;
    try
      // CloseAllTables;
      DatabaseName := 'yedeklenecek database yolu ve adi';
      BackupFile.Clear;
      BackupFile.Add('Yedek yeri ve adi');

      ServiceStart;

      While not Eof do

                 showmessage('Yedekleme başarıyla tamamlandı!');
        
                 finally
                 
                 Active := False;
      // OpenAllTables;
      Screen.Cursor := crDefault;
    end;
  end;

end;

"…De ki: "Hiç bilenlerle bilmeyenler bir olur mu? Şüphesiz, temiz akıl sahipleri öğüt alıp-düşünürler" (Zümer Suresi, 9)
Cevapla