怎么对ASA数据库进行备份和回复啊,谢谢啊

lyx398

怎么对ASA数据库进行备份和回复啊,尽量给出代码,谢谢啊
网上的代码如下,但没能成功啊
string mysqls,bfname
bfname=trim(sle_1.text)
bfname=left(bfname,len(bfname)-2)
mysqls="BACKUP Database TO '"+bfname+"'"
execute immediate :mysqls USING SQLCA;//运用SQL语句立刻执行备份
if sqlca.sqlcode=0 then
        messagebox("信息提示",'备份成功！',information!,OK!)//给出备份成功与否的相关信息
else
        messagebox("信息提示",'备份失败！',information!,OK!)
end if

lyx398

用下面代码也不行,都没有创建备份新的数据库
string lsSql
lsSql="dump database to D:\supermarket\新建文件夹\new1.dup"
sqlca.AutoCommit=true
execute immediate :lsSql;
---------------------------
下面的也不行
string ls_directory
ls_directory="dbbackup   -c   ~"eng=ckclgl;dbn=ckclgl;uid=dba;pwd=sql   ~"   -y   "+sle_1.text  
run(ls_directory,   Minimized!)//应用执行完成
都不能完成数据库在指定目录下进行备份,什么都没有  谢帮忙啊

lyx398

兄弟知道了,对最上面的代码,修改如下才可以
string mysqls,bfname
bfname=trim(sle_1.text)
bfname=left(bfname,len(bfname)-2)
mysqls="BACKUP Database TO '"+bfname+"'"
execute immediate :mysqls USING SQLCA;//运用SQL语句立刻执行备份
if sqlca.sqlcode=0 then
messagebox("信息提示",'备份成功！',information!,OK!)//给出备份成功与否的相关信息
else
messagebox("信息提示",'备份失败！',information!,OK!)
end if
得把left语句屏蔽,要不就没有扩展名了就用不了