pb中的备份数据库和恢复数据库的代码怎么写？

备份：

integer msg

string ls_bardir,ls_path,ls_date,ls_exesql,ls_dbname

//调用API

//CloseBitmapClient(Handle(this))

msg = messagebox("提示","进行数据库备份吗?",Question!,YesNoCancel!,3)

if msg = 2 then

return 0

elseif msg = 3 then

return 1

else

if m_main.m_系统管理.m_数据库备份.enabled = true and m_main.m_系统管理.m_数据库备份.visible = true then

SetPointer(HourGlass!)

//获取备份的数据库名

ls_dbname = ProfileString(gs_profile,"Database","SQLCA.Database","")

//获取备份路径

ls_bardir = ProfileString(gs_profile,"path","backpath","")

if not FileExists(ls_bardir) then

CreateDirectory(ls_bardir)

end if

ls_bardir = ls_bardir + "\"

ls_date = string(today(),"yyyymmddhhmmss")

SQLCA.AutoCommit = true

//设置备份文件名

ls_path = ls_bardir + ls_dbname + ls_date + ".bak"

//建立备份设备

ls_exesql = "EXEC sp_addumpdevice 'DISK' " + ",'" + ls_dbname + "'" + "," + "'" + ls_path + "'"

EXECUTE IMMEDIATE :ls_exesql using sqlca

//备份数据库

ls_exesql = "BACKUP DATABASE " + ls_dbname + " TO " + ls_dbname

EXECUTE IMMEDIATE :ls_exesql using sqlca

//删除备份设备

ls_exesql = "EXEC sp_dropdevice '" + ls_dbname + "'"

EXECUTE IMMEDIATE :ls_exesql using sqlca

SQLCA.AutoCommit = false

if sqlca.sqlcode = 0 then

messagebox("数据库备份","数据库备份完成!")

else

messagebox("数据库备份",sqlca.sqlerrtext)

end if

else

messagebox("提示","该用户没有备份数据库的权限!")

return 0

end if

end if

看看代码改一下即可，恢复的话差不多，自己研究研究吧

比如将 AIX-Based Systems (64-bit) Big的数据泵导出的dmp文件，导入到Microsoft Windows IA (32-bit) Little 的数据库下

可以使用腾讯手机管家备份，

1、进入腾讯手机管家首页，点击“设置”按钮，

2、点击进入“实用工具”页面，找到“同步助手”工具，没安装的在“添加工具”中添加上同步助手

3、进入同步助手，点击更新按钮同步手机信息

4、最后点击“确定”按钮，完成同步

5、如果手机信息丢失，可以通过登录QQ在“我的设备”-“我的手机”中找回相应信息并还原到手机上。

---