求助sql server数据备份

[crb111]

请问在pb7.0中怎样实现SQL SERVER数据库的备份?在线等待!!!!!!!!
谢谢!

[xjbs]

在SQL SERVER中写上数据库的备份存储过程
在PB中直接调用即可，，，

[yuxuan]

可以在pb中调用sql server备份工具

[ldk]

搜索一下能找到一大堆以前的贴子!


sqlserver备份及恢复,有问题发消息给我


//备份
if messagebox('提示信息','数据库备份可能需要很长时间,会暂时停止您的前台软件运行,确认继续吗?',question!,yesno!,2) = 1 then
string _DbName
string _BuildSQL
_DBName = ProfileString("SSSPOS.INI","serverDatabase","DataBase", " ")
_BuildSQL = 'backup database '+_DbName+' to disk = "'+sle_1.text+'";'
st_2.visible = false
st_3.visible = true
EXECUTE IMMEDIATE :_BuildSQL;
if sqlca.sqldbcode = 3201 then
st_2.visible = true
st_3.visible = false
messagebox('提示信息','备份文件所在的路径不正确,请检查！')
sle_1.setfocus()
else
w_main.sqlinfo()
st_2.visible = true
st_3.visible = false
messagebox('提示信息','备份完毕！')
close(parent)
end if
end if

//恢复

if messagebox('提示信息','数据库恢复可能需要很长时间,会暂时停止您的前台软件运行,确认继续吗?',question!,yesno!,2) = 1 then
string _DbName
string _BuildSQL
string _LogPasswd
_DBName = ProfileString("SSSPOS.INI","serverDatabase","DataBase", " ")
// _BuildSQL = 'backup database '+_DbName+' to disk = "'+sle_1.text+'";'
timer(0,w_main)
//断开此数据库
disconnect;
//连接master数据库
SQLCA.DBMS =ProfileString("SSSPOS.INI","serverDatabase","DBMS", " ")
SQLCA.Database = 'Master'
SQLCA.LogID =ProfileString("SSSPOS.INI","serverDatabase","LogID", " ")
_LogPasswd =ProfileString("SSSPOS.INI","serverDatabase","Logpassword", " ")
SQLCA.LogPass = end if
SQLCA.ServerName =ProfileString("SSSPOS.INI","serverDatabase","ServerName", " ")
SQLCA.UserID =ProfileString("SSSPOS.INI","serverDatabase","UserID", " ")
SQLCA.DBPass =ProfileString("SSSPOS.INI","serverDatabase","DatabasePassword", " ")
SQLCA.Lock =ProfileString("SSSPOS.INI","serverDatabase","Lock", " ")
SQLCA.DbParm =ProfileString("SSSPOS.INI","serverDatabase","DbParm", " ")
SQLCA.AutoCommit = True
connect;

_BuildSQL ='Restore Database '+_DBName+' from Disk= "'+sle_1.text+'";'
st_3.visible = true
EXECUTE IMMEDIATE :_BuildSQL;
if sqlca.sqldbcode = 3201 then
st_3.visible = false
messagebox('提示信息','备份文件所在的路径不正确,请检查！')
sle_1.setfocus()
else
w_main.sqlinfo()
st_3.visible = false
messagebox('提示信息','恢复完毕！')
close(parent)
end if
end if