Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
Acces veritaban yedekleme
#1
merhaba arkadaşlar acces veritabanında nasıl tarihli yedekli işlemi yapabilirim şuanki yaptım yönetimin kodların yazdım  aşağa ama bu tarihli yapmiyor.

CopyFile(Pchar
 ('C:\Hızlı Vegas Avukat\Database.mdb'),
Pchar('E:\Hızlı Vegas Büro Yönetim\Yedek\Yedek-Database.mdb'), True);
Application.MessageBox('Veritaban Başarıyla Yedeklendi', 'Mesaj!', MB_ICONINFORMATION);
//ShowMessage('Veritabanı Başarılı Bir Şekilde Yedeklendi');
WWW
Cevapla
#2
Merhaba,
Tarihli yedeklemeden kastınız nedir? Biraz daha detaylı bilgi verebilir misiniz?
While true do; Hayat döngüsü, kısır değildir! Yapılan bir yanlış, o döngünün dışına çıkmanızı sağlayacaktır.
WWW
Cevapla
#3
(11-06-2017, Saat: 19:44)admin02 Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Giriş yap veya Üye Olmerhaba arkadaşlar acces veritabanında nasıl tarihli yedekli işlemi yapabilirim şuanki yaptım yönetimin kodların yazdım  aşağa ama bu tarihli yapmiyor.

CopyFile(Pchar
 ('C:\Hızlı Vegas Avukat\Database.mdb'),
Pchar('E:\Hızlı Vegas Büro Yönetim\Yedek\Yedek-Database.mdb'), True);
Application.MessageBox('Veritaban Başarıyla Yedeklendi', 'Mesaj!', MB_ICONINFORMATION);
//ShowMessage('Veritabanı Başarılı Bir Şekilde Yedeklendi');

kullanımını biraz değiştirmeni öneririm ya o bilgisayarda C:\ sürücüsü yoksa ya o bilgisayarda E:\sürücüsü yoksa
aşağıdaki hazır bir kod biraz incelersen mantığını anlayıp uyarlayabilirsin kendine göre
Procedure TBackUpFrm.FormShow(Sender: TObject);
  Procedure TurkishCharacter(Var a: String);
  Begin
     a := StringReplace(a, 'Ş', 'S', [rfReplaceAll, rfIgnoreCase]);
     a := StringReplace(a, 'İ', 'I', [rfReplaceAll, rfIgnoreCase]);
     a := StringReplace(a, 'ı', 'i', [rfReplaceAll, rfIgnoreCase]);
     a := StringReplace(a, 'Ğ', 'G', [rfReplaceAll, rfIgnoreCase]);
     a := StringReplace(a, 'Ü', 'U', [rfReplaceAll, rfIgnoreCase]);
     a := StringReplace(a, 'Ç', 'C', [rfReplaceAll, rfIgnoreCase]);
  End;
Var
  a, b: String;
Begin
  a := DtSet.SavePath + 'Yedekler\';
  If Not DirectoryExists(a) Then
     CreateDir(a);

  b := FormatDateTime('yyyy\', Date);
  TurkishCharacter(b);
  a := a + b;
  If Not DirectoryExists(a) Then
     CreateDir(a);

  b := FormatDateTime('mmmm', Date);
  TurkishCharacter(b);
  a := a + b;
  If Not DirectoryExists(a) Then
     CreateDir(a);

  edtKayitDizini1.Text := a;
  FileListBox1.Directory := a;
  FileListBox1.Update;
  edtYedekAdi1.Text := FormatDateTime('dd.mm.yyyy', Date) + '.' + DtSet.BackupFilename + '.fbk';

  PageControl1Change(PageControl1);
  Timer1.Tag := 0;
  If (DtSet.AutoBackup) And (pcxFunc = 'Otomatik Yedek Al') Then Begin
     Timer1.Tag := 1;
     Timer1.Enabled := TRUE;
     Application.ProcessMessages;
  End;
End;

“Do. Or do not. There is no try.”
Cevapla
#4
tsk ederim hocam
WWW
Cevapla

Konuyu Paylaş : facebook gplus twitter



Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Question Acces sıkıntısı BY-HAYALET 2 165 30-01-2018, Saat: 18:52
Son Yorum: BY-HAYALET
  Projeyi yedekleme - Versiyon kontrol engerex 4 1.876 27-09-2016, Saat: 16:21
Son Yorum: Fesih ARSLAN



Konuyu Okuyanlar: 1 Ziyaretçi