备份和恢复SQL-SERVER2000数据库

如何在PB 中备份 SQL SERVER 2000 的数据库？
设置备份设备：
/****************************************************************/
string ls_execSql

ls_execSql = "sp_addumpdevice 'disk','HC_JXC','C:\BACKUP\HC_JXC.bak'"
execute immediate :ls_execSql using sqlca;

if sqlca.sqlcode <> 0 then
　　messagebox("设置设备","设备已经存在，不需要设置。")
else
　　messagebox("设置设备","设置设备成功！")
end if
/****************************************************************/

数据库备份
/****************************************************************/
string ls_execSql

ls_execSql = "backup database HC_JXC to HC_JXC"
execute immediate :ls_execSql using sqlca;

if sqlca.sqlcode <> 0 then
　　messagebox("备份数据","数据备份失败，可能数据库正在使用，或者数据库没有连接！")
else
　　messagebox("备份数据","数据备份成功！")
end if
/****************************************************************/

数据库恢复
/****************************************************************/
string ls_execSql

ls_execSql = "use master restore database HC_JXC from HC_JXC"
execute immediate :ls_execSql using sqlca;

if sqlca.sqlcode <> 0 then
　　messagebox("恢复数据","恢复数据失败，可能数据库正在使用，或者数据库没有连接！")
else
　　messagebox("恢复数据","恢复数据成功！")
end if