تهیه نسخه پشتیبان

[mina_84]

با سلام
خسته نباشید
من می خواستم تو برنام ام (در دلفی)با بانک sql ) یک مسیر از کاربر بگیره و در اون مسیر یک کوپی از database ام بگیرم باید چکار کنم
می تونید منو راهنمایی کنید
با تشکر

[reza_rad]

خوش آمدید به برنامه نویس.
اگه درباره ی مطلبتون جستجو می کردید مطالب خوبی پیدا می کردید.
باید از دستور backup database استفاده کنید. تاپیک های زیادی در این مورد هست. این هم یک نمونه:
http://www.barnamenevis.org/sh...ackup+database

[babak869]

اینم یه کد برای گرفتن نسخه پشتیبان از برنامه :

var

  fileSource, fileDest: string;

begin

  fileSource :=ExtractFileDir(Paramstr(0))+'/database.mdb';

   SaveDialog1.FileName:='Database.mdb';

  SaveDialog1.Execute;

  fileDest :=SaveDialog1.FileName+'.mdb';

  CopyFile(PChar(fileSource), PChar(fileDest), False);

end;

موفق باشید

[unique1984]

سلام اینم یه راه دیگه

//***********Backup

 try

   if SaveDialog1.Execute then

    begin

       ADOCommand1.CommandText := 'backup database '+'نام دیتا بیس'+' to disk='+QuotedStr(SaveDialog1.FileName);

       ADOCommand1.Execute();

       ShowMessage('عملیات پشتیبان گیری با موفقیت انجام شد');

    end;

Except

     ShowMessage('عملیات پشتیبان گیری با شکست رو برو شد');

  end;





//********Restore

  try

     ADOCommand1.CommandText := 'Use Master';

     ADOCommand1.Execute();

     if OpenDialog1.Execute then

     begin

       ADOCommand1.CommandText := 'Restore database '+'نام دیتا بیس'+' From disk='+QuotedStr(OpenDialog1.FileName);

       ADOCommand1.Execute();

      ShowMessage('عملیات بازیابی با موفقیت انجام شد');

    end;

 Except

    ShowMessage('عملیات بازیابی با شکست مواجه شد');

end;