بکاپ از دیتابیس در داخل برنامه

[nrs68]

بسمه تعالی
با سلام به شما دوست گرامی
به کمک کد زیر می تونی مرحله به مرحله اجرا کنی
ذو متغیر به نام های زیر path محل اجرای برنامه است و filename برای نام فایل معرفی کنید از نوع string
Var
Path, FileName: String;
Begin

SDsavedialog1.Title:=محل ذخیره سازی
SDsavedialog1.FileName:='BackUp_';
MessageDlg('محل ذخیره سازی فایل را انتخاب نماید.',mtInformation,[mbOK],0);
if SD.Execute then
Path:=Sdsavedialog.FileName
else
Abort;
Try
FLogin.TADOConnection1.Connected := False;
FileName := Path + inttostr(Now) + '.Bak';
With QTemp Do
Begin
Close;
Sql.Clear;
Sql.Add('BACKUP DATABASE نام بانک TO DISK = ' +QuotedStr(FileName)+' with Format');
//ShowMessage(sql.Text);
ExecSQL;
End;
MessageDlg('ÚãáíÇÊ ÔÊíÈÇä íÑí ÈÇ ãæÝÞíÊ ÇäÌÇ㠐ÑÏíÏ!',mtInformation,[mbOK],0);
Except
End;


Application.Terminate;
end;