salam be dostan mohtaram
agha man to delphi az paigah dade sql estefadeh kardam hala mikham azash back up begiram
chetori mitonam ba kode in karo konam?
mamnon
Printable View
salam be dostan mohtaram
agha man to delphi az paigah dade sql estefadeh kardam hala mikham azash back up begiram
chetori mitonam ba kode in karo konam?
mamnon
سلام یه نمونه سرس از برنامه خودم براتون گذاشتم:
و برای Restore کردن:کد:begin
try
if SaveDlg1.Execute then
begin
MsgD1.Text:='تهيه پشتيبان ممکن است چندين دقيقه طول بکشدلطفا صبر کنيد';
MsgD1.IconType:=suiInformation;
MsgD1.Caption:='';
MsgD1.ShowModal;
ADOCommand1.CommandText := 'backup database '+ Trim(suiEDBName.Text)+' to disk='+QuotedStr(SaveDlg1.FileName);
ADOCommand1.Execute();
MsgD1.IconType:=suiInformation;
MsgD1.Text:='تهيه پشتيبان با موفقيت انجام شد!';
MsgD1.Caption:='';
MsgD1.ShowModal;
end;
Except
MsgD1.Caption:='';
MsgD1.IconType:=suiStop;
MsgD1.Text:='Process Stopped !!!! And Failed';
MsgD1.ShowModal;
end;
lموفق و پیروز باشید.:31:کد:begin
//********Restore
try
OpenDlg1.DefaultExt:='*.BAK';
OpenDlg1.FilterIndex:=2;
if OpenDlg1.Execute then
begin
ADOCommand1.CommandText := 'USE master';
ADOCommand1.Execute();
MsgD1.Caption:='';
MsgD1.Text:='بازيابي پايگاه داده ممکن است چندين دقيقه طول بکشدلطفا صبر کنيد';
MsgD1.IconType:=suiInformation;
MsgD1.ShowModal;
// ShowMessage(OpenDialog1.FileName);
ADOCommand1.CommandText := 'Restore database '+Trim(suiEDBName.Text)+' From disk = '+QuotedStr(OpenDlg1.FileName);
ADOCommand1.Execute();
MsgD1.Text:='Updating Data Successfully Done';
MsgD1.IconType:= suiInformation;
MsgD1.Caption:='';
MsgD1.ShowModal;
end;
Except
MsgD1.Text:='Restoring Data Stopped !!!!';
MsgD1.IconType:= suiStop;
MsgD1.Caption:='';
MsgD1.ShowModal;
end;
end;