Yedek Alma

[hasan]

Kod: Tümünü seç

procedure TForm1.Btn_YedekleClick(Sender: TObject);
var
 gun, ay, yil : Word;
 gun_ay_yil : string;
begin


 If Application.MessageBox('Yedekleme işlemi veritabanınızın boyutuna göre birkaç dakika sürebilir.'+#13#10+'Devam etmek istiyor musunuz ? ','Dikkat',4+0+32)=Idyes Then Begin
 cxGrid1.Visible:=False;
 Memo1.Visible:=True;
  DecodeDate(Date, yil, ay, gun);
  gun_ay_yil := IntToStr(gun) + '_' + IntToStr(ay) + '_' + IntToStr(yil);
  Memo1.Lines.Clear;
  with IBBackupService1 do begin
   // ServerName := 'Hasan';
    Active := True;
    Screen.Cursor := crHourGlass;
    try
      //CloseAllTables;

      DatabaseName := IBDataSet1PATH.AsString ;
      BackupFile.Clear;
     // If FileExists(Data_Yolu.Text) Then Begin
      BackupFile.Add(Data_Yolu.Text+'\'+IBDataSet1KOD.AsString+'_'+gun_ay_yil+'.gbk');
      ServiceStart;
      While not Eof do
        Memo1.Lines.Add(GetNextLine);
      MessageDlg('Yedekleme başarıyla tamamlandı!', mtInformation, [mbOK], 0);
           Memo1.Lines.Clear;
          finally
      Active := False;
   //   OpenAllTables;
      Screen.Cursor := crDefault;
      cxGrid1.Visible:=True;
      Memo1.Visible:=False;
    end; 
  end; 
end;

benim sorunum arkadaşlar

Kod: Tümünü seç

DatabaseName := IBDataSet1PATH.AsString ;

benim PATH in önünde makine ismi var.
şöyle ki MAKINEADI:c:\DATA\DEMO.GDB bu şekilde işlem yapılınca hata
(Error Writing data to the connection ) veriyor.Aynı şekilde restore ederken de sorun oluyor.Bunun önüne nasıl geçebiliriz.Eğer önünde makine adı yoksa sorun yok . yardımcı olabilir misiniz arkadaşlar ??


[/code]

[csyasar]

kardeş eğer ki;

*virüs programının 3050 nolu portu iletişime kapatıp kapatmadığına bak.

*birde C:\'deki XXX dizinine full erişim ver. o şekilde dene.

*olmassa eğer yine olmassa ms-dos komutistemi penceresine gir. ipconfig yaz. ipni bul. mesela benimki 192.168.1.33 buldu. daha sonra database dizini olarak 192.168.1.33:C:\XXX\XX.GDB olarak ayarla.

*eğer yine olmassa firebird kaldır tekrar yükle.

*yine yok derse format at win kur.