backup_restor

[matinebi]

سرس کدی که در سایت موجود است خیلی عالیه فقط 3 تا مشکل داره

1-اگر بعد از زدن کلید برگرداندن چیزی انتخاب نکنی برنامه ارور میگیره
2-و اگه به جای ShellTreeView1 از opendialog استفاده میشد خیلی بهتر بود
3-و نیازی نبود که برنامه پس از رستور بسته شود

http://barnamenevis.org/forum/attachment.php?attachmentid=10767&d=1189123323

[Ahmad Chehreghani]

مشکل 1
اول کد اينو بنويس


if not OpenDialog1.Execute then exit;

يا به جاي Not يه Begin و End اول و آخر کد قرار بده
مشکل 2 : از SaveDialog استفاده کن
مشکل 3 : جوابشو تو چند تا تاپيک قبل هم بچه ها دادن هم خود من.

شما کد رو عوض کنيد و دوباره کاملشو در تاپيک قرار دهيد(خدا خيرت بده)

[matinebi]

خوب این کد پشتیبان گیری

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
ADOConnection1.Execute('backup database TEST to disk='''+SaveDialog1.FileName+'''');
except
MessageDlg('عملیات پشتیبان گیری با شکست مواجه گردید',mtError,[mbOK],0);
end;
end;

اینم کد بازگرداندن

var
s:string;
begin
if OpenDialog1.Execute then
begin
ADOCommand1.CommandText:='Use Master';
ADOCommand1.Execute;
ADOCommand1.CommandText:='';

s:=OpenDialog1.FileName;

with DataModule5.ADOCommand1 do
begin
CommandText:='RESTORE DATABASE TEST FROM DISK='+QuotedStr (s);
execute;
end;
MessageDlg('اطلاعات با موفقیت برگردانده شد',mtInformation,[mbOK],0);
close;
end;
end;