X
xth19
Unregistered / Unconfirmed
GUEST, unregistred user!
各位好人,我用delphi做了个数据库备份的代码,但老是提示出错。
大家帮我看看:到底哪里错了,改怎么改?如果要另写代码,请附上。
谢谢大家。
ps:是可以选择备份路径和文件名的
try
if ((Savedialog1.Execute) and (SaveDialog1.FileName<>''))
then begin
Edit1.Text:=SaveDialog1.FileName;
with adoquery1 do
begin
CLose;
SQL.Clear;
SQL.Add('backup database XJGL to disk='''+SaveDialog1.FileName+'''.mdf');
ExecSQL;
end;
Application.MessageBox('备份成功!','提示',0);
end;
except
Application.MessageBox('备份失败!','提示',0);
end;
大家帮我看看:到底哪里错了,改怎么改?如果要另写代码,请附上。
谢谢大家。
ps:是可以选择备份路径和文件名的
try
if ((Savedialog1.Execute) and (SaveDialog1.FileName<>''))
then begin
Edit1.Text:=SaveDialog1.FileName;
with adoquery1 do
begin
CLose;
SQL.Clear;
SQL.Add('backup database XJGL to disk='''+SaveDialog1.FileName+'''.mdf');
ExecSQL;
end;
Application.MessageBox('备份成功!','提示',0);
end;
except
Application.MessageBox('备份失败!','提示',0);
end;