ls_use = "EXEC sp_helpdevice 'hrms'"//显示可用设备
EXECUTE IMMEDIATE :ls_use ;  

SetPointer(HourGlass!)//---开始备份-
sqlca.autocommit=true

string ls_execSql
//打开设备
ls_execSql = "EXEC sp_addumpdevice 'disk',"+sqlca.database+","+pathnam  //别忘了加EXEC
execute immediate :ls_execSql using sqlca;


string sql

sql=" backup database "+ sqlca.database +" to disk='"+pathnam+"'"
execute immediate :Sql using sqlca;
sqlca.autocommit=FALSE

SetPointer(Arrow!) 

If sqlca.sqlcode=0 Then
  messagebox('备份信息提示','备份数据库成功!~r~n~n备份的文件存储在　'+pathnam)
Else
  messagebox('备份提示', "备份数据库失败,原因为"+sqlca.sqlerrtext)
End if

我是这样做的
string backup
string pathstring

pathstring = sle_1.text
messagebox('系统提示','请先关闭所有窗口!',Exclamation!)
if pathstring = '' then
    messagebox('系统提示','请您输入备份数据库的文件名称!')
    return
end if

disconnect USING sqlca;

SQLCA.DBMS ="ODBC"
SQLCA.AutoCommit = false
SQLCA.DBParm = "ConnectString='DNS=persondb;UID=sa;PWD='"

connect using sqlca;

backup = "backup database dmt to disk = " + "'" + pathstring + "'";
EXECUTE IMMEDIATE :backup;

if sqlca.sqlcode = 0 then
    messagebox('系统提示','恭喜您,数据库备份成功!')
    this.Enabled = false
else
    messagebox("系统提示","出错了+" + sqlca.sqlerrtext)
end if

disconnect;
SQLCA.DBParm = "ConnectString='DNS=persondb;UID=sa;PWD='"
connect;
return

上一条 备份什么文件  又备份到哪啊

备份数据库呀，备份为*.dat文件呀