pb 备份sqlserver

最新推荐文章于 2023-07-24 15:37:42 发布

sdrzths

最新推荐文章于 2023-07-24 15:37:42 发布

阅读量407

点赞数

文章标签： sqlserver path library database string 数据库

本文链接：https://blog.csdn.net/sdrzths/article/details/3880540

版权

string ls_path ,ls_use
INT li_net

Ls_path = sle_backpath.text
IF ls_path = "" THEN
Messagebox('系统提示',"请先指定要备份的数据文件的名称! ")
RETURN
END IF
IF FileExists ( ls_path ) THEN
li_net=Messagebox('信息','提示：系统发现在"'+ls_path+'"目录下已经存在一个同名的文件.~r~n~n要替换它吗?',Question!,YesNo!)
IF li_net= 1 THEN
FileDelete ( ls_path )
ELSE
END IF
END IF
SetPointer(HourGlass!)//---开始备份---
This.Enabled = FALSE
cb_restore.Enabled = FALSE

ls_use = 'EXEC'+'('+"'USE library'"+')'
EXECUTE IMMEDIATE :ls_use ;

ls_use = "EXEC sp_addumpdevice 'disk' , 'coolnan' , '"+ls_path+"'"
EXECUTE IMMEDIATE : ls_use ;

ls_use ='BACKUP DATABASE library TO coolnan'
EXECUTE IMMEDIATE : ls_use ;
IF SQLCA.SQLCODE = -1 THEN
Messagebox("系统信息","数据库备份失败!~r~n~n请到检查路径正确与否。",Stopsign!)
this.enabled = TRUE
   cb_restore.enabled = TRUE
   sqlca.sqlcode = 0
sqlca.sqldbcode = 0
ls_use = "EXEC sp_dropdevice 'coolnan'"
   EXECUTE IMMEDIATE : ls_use ;
RETURN
END IF

ls_use = "EXEC sp_dropdevice 'coolnan'"
EXECUTE IMMEDIATE : ls_use ;

SetPointer(Arrow!)
IF SQLCA.SQLCODE >= 0 THEN
Messagebox("系统信息","备份完成! ")

This.enabled = TRUE
cb_restore.enabled = TRUE
RETURN
END IF
CONNECT USING SQLCA ;