在程序中备份数据库中碰到的疑惑！WAITING .... ....

[dingzhaofeng]

代码如下：

////////////////////////////////////////////////////////////////
string ls_sql

ls_sql = "BACKUP DATABASE wygl TO DISK 'E:\PROGRAM\WYGL\WYGL\BakData\wyglnew2'"

EXECUTE IMMEDIATE :ls_sql;

if sqlca.sqlcode = 0 then
messagebox('提示信息','备份完毕！')

else
if SQLCA.Sqlcode=-1 then
messagebox('提示信息','备份错误！')
end if
end if
//////////////////////////////////////////////////////////////

错误类型为：3021
不能在事务内部执行备份或还原操作。

不知道是为何故！请赐教！

[119119]

你好像应该先把数据库的连接断掉,然后再备份数据.

我这边有个备份的原码,你要么.或者你搜索以前的帖子也很多的.

[dingzhaofeng]

都不行了呀！

已经断掉了，然后连到master 上了。

[119119]

连接master数据库然后
connect;
if sqlca.sqlcode<>0 then
disconnect;
messagebox('提示','连接数据库失败，详细信息如下：~r~n~r~n'+str_tmp)
return
end if
st_1.text="~r~n正在备份数据库，这大约需要几分钟时间！"
str_sql="BACKUP DATABASE "+数据库名+" to disk='"+备份路径与文件名+"'"
EXECUTE IMMEDIATE :str_sql;
if sqlca.sqlcode <> 0 then
disconnect;
messagebox('提示','备份数据库时出错')
return
else
disconnect;
messagebox("提示","数据库备份完毕！")
end if

[李洪喜]

这种方法根本不行，我已经试过很多次了。如果有更好的方法，请MAIL TO ME 。
[e-mail]
谢谢。