如何在客户端，通过PB程序备份SQL SERVER2000的数据库到服务器上？？

[zhenglifeng]

我在客户端上做备份，备份文件存放到服务器上。求代码？

[zhenglifeng]

下面是段出错的代码，请帮我找出错误：
string sql;
string path, file,ls_datebase_name
int flag = 0
file = sle_1.text

sql = 'EXEC'+'('+"'USE master'"+')'
EXECUTE IMMEDIATE :sql ;
if sqlca.sqlcode <> 0 then
messagebox('USE master',sqlca.sqlerrtext);
end if

SQLCA.AutoCommit = TRUE

sql = "EXEC sp_addumpdevice 'disk'"+" , 'bk' , "+" '"+file+"'"
EXECUTE IMMEDIATE : sql ;
if sqlca.sqlcode <> 0 then
messagebox('sp_addumpdevice',sqlca.sqlerrtext);
end if

sql ='BACKUP DATABASE db to bk'
EXECUTE IMMEDIATE : sql ;
if sqlca.sqlcode <> 0 then
messagebox('BACKUP',sqlca.sqlerrtext);
flag = 1
end if

sql = "exec sp_dropdevice 'db'"
EXECUTE IMMEDIATE : sql ;
if sqlca.sqlcode <> 0 then
messagebox('sp_dropdevice',sqlca.sqlerrtext);
end if

SQLCA.AutoCommit = false

sql = 'EXEC'+'('+"'USE db'"+')'
EXECUTE IMMEDIATE :sql ;
if sqlca.sqlcode <> 0 then
messagebox('USE shipping',sqlca.sqlerrtext);
end if
st_note.text = ''
if flag = 0 then
messagebox('数据库备份完毕','保存在服务器文件：'+file)
else
messagebox('数据库备份失败','文件路径不存在或不可访问：'+file)
end if