等级:
钻石荣誉
积 分: 407416
威 望: 3806
贡 献: 3745
活 跃: 0
发 贴: 1401
(4)
终极币: 394653
性 别:
阅读权限: 200
在线时长: 1151 小时
注册时间: 2014-7-25
最后登录: 2025-4-29
查看完整版请注册登录浏览
您需要 登录 才可以下载或查看,没有帐号?点击注册
x
纯粹是为了工作简便做的。其实就是执行了一下sql语句而已
BACKUP DATABASE [Test] TO DISK = 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