نحوه ايجاد پشتيبان از بانك اطلاعاتي مثلا اكسس رو كسي بلده ؟؟؟

لطفا در اين مورد كمك كنيد .

به نظر من بهترین کار اینه که بایک کامپوننت فایل رو Zip کنی و بعدش در صورت نیاز اونو به کمک خود برنامت باز کنی.

سلام
اگه هنوز نتونستین این کار رو انجام بدین بگید تا یک نمونه بذارم

اگه زحمتي نيست ممنون ميشم البته با restor كردن ميخواهم اطلاعات فعلي هم سر جاي خود باشند

سلام
براي اين کار بايد از تابع زير استفاده کني
با تشکر از NoneForce عزيز براي معرفي تابع

کد:

---

function CopyDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
begin
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
  begin
    wFunc  := FO_COPY;
    fFlags := FOF_FILESONLY;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

---

ابتدا تابع رو اين طوري فراخوني کن

کد:

---

function CopyDir(Database Access Path.mdb ,Backup Path .bak)

---

دقت کن در مسير Backup مثلا (C:\Backups\new\backup.bak)
و مسير Database مثلا (C:\Program\DB.mdb)

براي Restore دقيقا بر عکس تابع بالا

کد:

---

function CopyDir(Backup Path .bak ,Database Access Path.mdb)

---

با اکسس بهترين راه همينهبه نظر من ؛ من خودم هميشه از اين روش استفاده ميکنم
فقط موقع Restore يک پيغام Replace ميده که مي خواد فايل جديد رو با قبلي
جايگزين کنه
اگه سوالي بود در حد دانشم بود در خدمتم