Fi:='D:\数据\'+Formatdatetime('yyyy-mm-dd:nn',now)+'.tdd';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='backup database ppsy to disk=??????'';
ADOQuery1.ExecSQL;???????问号部分咋写
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='backup database ppsy to disk=??????'';
ADOQuery1.ExecSQL;???????问号部分咋写
' WITH INIT , NOUNLOAD , NAME = N'+QuotedStr('ppsy 备份')+
', NOSKIP , STATS = 10, NOFORMAT';
另外,你可以打开企业管理器,在里面备份数据库,备份前打开事件探查器,那样在备份时,就可以在探查器中看到执行的sql代码了
procedure TForm1.Button8Click(Sender: TObject);
var dir:string;
begin
try
if savedialog1.Execute then //打開對話框
begin
dir:=savedialog1.FileName+'.bak'; //備份路徑
with adoquery2 do
begin
close;
sql.Clear;
sql.Add('backup database rps to disk='+''''+dir+'''');
execsql;
end;
Progressbar1.Position:=Progressbar1.Max;
showmessage('ok');
end;
except
showmessage('no');
Progressbar1.Position:=Progressbar1.Min;
end;
end;
Progressbar1.Position:=Progressbar1.Min;