sql数据库一键备份
纯粹是为了工作简便做的。其实就是执行了一下sql语句而已BACKUP DATABASE TODISK = N'C:\Test20120419001.BAK'WITH INIT,NOUNLOAD,NAME=N'dhchis backup' ,SKIP,STATS=10, FORMAT
用易语言写的 。毕竟英语不过关。而且自用。无所畏惧~~
.版本 2
.支持库 xplib
.支持库 eDB
.程序集 窗口程序集_启动窗口
.程序集变量 Sql语句, 文本型
.程序集变量 备份路径, 文本型
.子程序 __启动窗口_创建完毕
XP风格 (3)
编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#数据库IP地址”, “SqlIP”, )
编辑框2.内容 ＝ 读配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#需备份数据库名称”, “Sqlname”, )
编辑框3.内容 ＝ 读配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#登录用户名”, “Username”, )
编辑框4.内容 ＝ 读配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#登录密码”, “Userpass”, )
备份路径 ＝ 读配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#备份数据库存储路径”, “SavePath”, )
.如果 (备份路径 ＝ “”)
备份路径 ＝ “D:/海湾数据库备份”
.判断开始 (创建目录 (备份路径) ＝ 真)
标签5.标题 ＝ “已创建数据库存储路径” ＋ 备份路径
.默认
返回 ()
.判断结束
.否则
.判断开始 (创建目录 (备份路径) ＝ 真)
标签5.标题 ＝ “已创建数据库存储路径” ＋ 备份路径
.默认
返回 ()
.判断结束
.如果结束
.子程序 _按钮1_被单击
.判断开始 (数据库连接1.连接SQLServer (编辑框1.内容, 编辑框2.内容, 编辑框3.内容, 编辑框4.内容) ＝ 真)
标签5.标题 ＝ “连接数据库成功....”
按钮2.禁止 ＝ 假
.默认
信息框 (“连接数据库失败....”, 0 ＋ 48, “错误”, )
.判断结束
.子程序 _按钮2_被单击
Sql语句 ＝ #备份前 ＋ 备份路径 ＋ “/” ＋ 编辑框2.内容 ＋ 到文本 (取日期 (取现行时间 ())) ＋ #备份后
.如果 (数据库连接1.执行SQL (Sql语句, ) ＝ 真)
信息框 (“备份成功!”, 0, , )
.否则
信息框 (“备份失败!”, 0, , )
.如果结束
.子程序 __启动窗口_将被销毁
数据库连接1.关闭 ()
.子程序 _按钮3_被单击
写配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#数据库IP地址”, “SqlIP”, 编辑框1.内容)
写配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#需备份数据库名称”, “Sqlname”, 编辑框2.内容)
写配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#登录用户名”, “Username”, 编辑框3.内容)
写配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#登录密码”, “Userpass”, 编辑框4.内容)
写配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#备份数据库存储路径”, “SavePath”, 备份路径)
标签5.标题 ＝ “配置保存完成....”
.子程序 _按钮4_被单击
编辑框1.内容 ＝ 读配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#数据库IP地址”, “SqlIP”, )
编辑框2.内容 ＝ 读配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#需备份数据库名称”, “Sqlname”, )
编辑框3.内容 ＝ 读配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#登录用户名”, “Username”, )
编辑框4.内容 ＝ 读配置项 (取运行目录 () ＋ “\数据库一键备份配置文件.ini”, “#登录密码”, “Userpass”, )
标签5.标题 ＝ “配置读取完成....”两个常量 ： 备份前 BACKUP DATABASE abcnet TO DISK ='
备份后.BAK' WITH INIT,NOUNLOAD,NAME=N'dhchis backup' ,SKIP,STATS=10, FORMAT
还原的时候不会出错。
我win7 64 位SQL2008企业版测试正常
页:
[1]