کد شما را مقداری تغییر دادم و اکنون درست عمل میکند
var
s,s1,s2,s3:string;
begin
s:=DateToStr(now);
s1:=copy(s,1,4);
s2:=copy(s,6,2);
s3:=copy(s,9,2);
s:='backup_'+s1+'_'+s2+'_'+s3+'.bak';
SaveDialog1.FileName:=s;
SaveDialog1.Filter:='*.bak|*.bak';
try
if SaveDialog1.Execute then
DataModule5.ADOConnection1.Execute('backup database alamdar to disk='''+SaveDialog1.FileName+'''');
except
MessageDlg('عملیات پشتیبان گیری با شکست مواجه شد',mtError,[mbOK],0);
end;
end;
اما کد مربوط به رستور نه با کد شما نه با کد زیر هیچ کدام درست عمل نمیکنن و errorr را نمایش میدهند
begin
try
if OpenDialog1.Execute then
DataModule5.ADOConnection1.Execute('restore database alamdar from disk ='''+OpenDialog1.FileName+'''');
except
showmessage('Error');
end;
end;