关于DELPHI中备份数据库的代码问题? ( 积分: 100 )

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;
 
楼主这样的问题在大富翁的帖子里面多的是,搜索下就有答案了.浪费100分啊.呵呵
也可以多看下sql的联机帮助,很详细的,这里就不转贴了~~你自己看下哦

可以参考这里:
{描述:SQL SERVER 2000 数据库备份与恢复单元 ,本单元函数在SQL SERVER 2000 +Delphi7.0编译通过}
http://www.delphibbs.com/keylife/iblog_show.asp?xid=2502
 
跟踪一下SQL.text中的内容看看对不对就可以了啊
 
关注....
 
没看出错在哪里,你出错的提示是什么?
 
兄弟,你错了,可以通过xp_cmdShell的存储过程,谳用dos命令来实现服务器目录的枚举, 再通过backup语句来实现备份,具体的代码可以加我QQ,386999,我发给你
 
你的问题主要是你当前客户端的目录结构跟服务器端的目录结构不一致造成的,因为你用Savedialog显示的是客户端的目录,但这个目录如果在服务器上不存在,将导致备份失败.
 
谢谢大家!!!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
926
SUNSTONE的Delphi笔记
S
顶部