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

[mina_84]

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

[reza_rad]

خوش آمدید به برنامه نویس.
اگه درباره ی مطلبتون جستجو می کردید مطالب خوبی پیدا می کردید.
باید از دستور backup database استفاده کنید. تاپیک های زیادی در این مورد هست. این هم یک نمونه:
http://www.barnamenevis.org/forum/showthread.php?t=32985&highlight=backup+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;