数据库SQL脚本执行工具

鲁凯啸

好吧 我又犯错了，我不应该这么认真的……
刚才租车出去了一趟，然后回来就没还，想着一会儿就可以下来还车了，
但是上楼以后，因为写一个小程序，写了个开头想着先去还了车子，
但是站起身来后突然一个灵感闪过，便继续坐回原位继续敲击键盘，
慢慢地越写越投入，把一切都抛在了脑后。
当程序完工后一看时间已经23点半多了，赶紧起身回家，
出了门看到车子还在门口停着才想起来已经租车5个小时了……那可是12元啊~







=================================================================================


软件及源码： 数据库医生.7z (267.92 KB, 下载次数: 25)

2014-5-23 00:00 上传

点击文件名下载附件
下载积分: 精币 -2 枚

           源码及图片明天再补充~




==================================使用说明========================================

1. 生成程序可以调用的加密脚本资源： （当程式同目录下有 DXT.SQL 文件时运行程式 便是厂商模式）
1.1 将 sql脚本文件 DXT.SQL 放到程序相同目录下
   说明： 脚本文件中使用##########(大于5个#号)来使程序执行脚本命令
1.2 运行程式，如同目录下无 SQL.ini 文件
  程式会提示未配置服务器参数 并生成
  请修改其中的配置后再次运行程式
   说明： [INFO]中VAR一般设为日期型文本，INFO一般写该脚本资源的操作目的等说明
    [SQL]中为SqlSever的连接参数
1.3 运行程式后 便会将 SQL.ini 和 DXT.SQL 中的信息加密生成程式资源文件 DXT_DOC.SQL 供调用

2. 客户使用程式进行数据库检查修复操作： （当程式同目录下无 DXT.SQL 文件时运行程式 便是客户模式）
2.1 运行程式 程式将会自动读入分析同目录下的 DXT_DOC.SQL 文件并对数据库进行连接修复
2.2 当执行某段SQL脚本时出错，请记录下错误说明和code代码，其中x后的三位数表示第几段代码
2.3 请放心 执行某段代码出错后 程式将自动回滚事务，撤销操作以保证数据库的正常运行
2.4 当程式完整执行所有脚本并正确后将会在系统中记录下该次操作的识别信息，防止该资源重复调用
   （识别信息就是生成资源中 SQL.ini 文件内的 [INFO] 信息）










补充内容 (2014-5-25 09:28):
11楼：http://125.confly.eu.org/forum.php?mod= ... 426&pid=6541688

鲁凯啸

源码 and  说明  and  例程 ：

数据库医生.rar (567.98 KB, 下载次数: 6)

2014-5-25 09:19 上传

点击文件名下载附件
下载积分: 精币 -2 枚

软件运行时没有界面 只有各种信息框提示



部分源码展示：

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
id	整数型
数据	字节集
file	文本型

如果真 (文件是否存在 (取运行目录 () ＋ “\DXT.SQL”))
' 存在未加密文件，需要重新生成！
id ＝ 打开加密文件 (取运行目录 () ＋ “\DXT_DOC.SQL”, 4, , “xttflxk”, 25)
如果真 (id ＝ 0)
信息框 (“无法打开加密文件！”, 0, “错误”)
返回 (0)
移到文件首 (id)
写出文本 (id, #文件头 )
如果真 (文件是否存在 (取运行目录 () ＋ “\SQL.ini”))
写出数据 (id, 读入文件 (取运行目录 () ＋ “\SQL.ini”))
写出数据 (id, 读入文件 (取运行目录 () ＋ “\DXT.SQL”))
写出文本 (id, “DOCTOR END”)
关闭文件 (id)
信息框 (“加密文件成功！请测试！”, 0, “恭喜”)
返回 (0)
写到文件 (取运行目录 () ＋ “\SQL.ini”, 到字节集 ( #ini ))
信息框 (“您需要先配置服务器连接方式！”, 0, “抱歉”)
返回 (0)
' 不存在未加密文件！
id ＝ 打开加密文件 (取运行目录 () ＋ “\DXT_DOC.SQL”, 1, , “xttflxk”, 25)
如果真 (id ＝ 0)
信息框 (“请确认修复程式的资源文件的完整性！” ＋ #换行符 ＋ “ Code: 0x001”, 0, “错误”)
返回 (0)
移到文件首 (id)
如果真 (读入文本 (id, 25) ≠ #文件头 ＋ 到文本 ({ 0 }))
信息框 (“请确认修复程式的资源文件的完整性！” ＋ #换行符 ＋ “ Code: 0x002”, 0, “错误”)
返回 (0)

' 读入 SQL.INI
如果真 (读入数据 (id, 数据) ＝ 假)
信息框 (“读入SQL连接信息失败，请确认修复程式的资源文件的完整性！” ＋ #换行符 ＋ “ Code: 0x003”, 0, “错误”)
返回 (0)
file ＝ 取临时文件名 ()
创建目录 (file)
写到文件 (file ＋ “\SQL.INI”, 数据)
如果真 (连接初始化 (file ＋ “\SQL.INI”))
' 读入 DXT_DOC.SQL
如果真 (读入数据 (id, 数据) ＝ 假)
信息框 (“读入SQL连接信息失败，请确认修复程式的资源文件的完整性！” ＋ #换行符 ＋ “ Code: 0x005”, 0, “错误”)
返回 (0)
写到文件 (file ＋ “\DXT_DOC.SQL”, 数据)
如果真 (分析执行SQL命令 (file ＋ “\DXT_DOC.SQL”) ＝ 假)
信息框 (“命令分析执行失败,已撤消更改！” ＋ #换行符 ＋ “ Code: 9x001”, 0, “错误”)
返回 (0)
如果真 (读入文本 (id, 10) ≠ “DOCTOR END”)
信息框 (“已经执行处理完成,但是没有找到结束标志,更改已保存！” ＋ #换行符 ＋ “ Code: 0x006”, 0, “错误”)

如果真 (是否为调试版 () ＝ 假)
更改保存 (file ＋ “\SQL.INI”)

信息框 (“处理成功！”, 0, )
返回 (0) ' 可以根据您的需要返回任意数值
返回 (0) ' 可以根据您的需要返回任意数值

.版本 2<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 id, 整数型<br /> .局部变量 数据, 字节集<br /> .局部变量 file, 文本型<br /> <br /> <br /> <br /> <br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\DXT.SQL”))<br /> ' 存在未加密文件，需要重新生成！<br /> id ＝ 打开加密文件 (取运行目录 () ＋ “\DXT_DOC.SQL”, 4, , “xttflxk”, 25)<br /> .如果真 (id ＝ 0)<br /> 信息框 (“无法打开加密文件！”, 0, “错误”)<br /> 返回 (0)<br /> .如果真结束<br /> 移到文件首 (id)<br /> 写出文本 (id, #文件头)<br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\SQL.ini”))<br /> 写出数据 (id, 读入文件 (取运行目录 () ＋ “\SQL.ini”))<br /> 写出数据 (id, 读入文件 (取运行目录 () ＋ “\DXT.SQL”))<br /> 写出文本 (id, “DOCTOR END”)<br /> 关闭文件 (id)<br /> 信息框 (“加密文件成功！请测试！”, 0, “恭喜”)<br /> 返回 (0)<br /> .如果真结束<br /> 写到文件 (取运行目录 () ＋ “\SQL.ini”, 到字节集 (#ini))<br /> 信息框 (“您需要先配置服务器连接方式！”, 0, “抱歉”)<br /> 返回 (0)<br /> <br /> .如果真结束<br /> ' 不存在未加密文件！<br /> id ＝ 打开加密文件 (取运行目录 () ＋ “\DXT_DOC.SQL”, 1, , “xttflxk”, 25)<br /> .如果真 (id ＝ 0)<br /> 信息框 (“请确认修复程式的资源文件的完整性！” ＋ #换行符 ＋ “ Code: 0x001”, 0, “错误”)<br /> 返回 (0)<br /> .如果真结束<br /> 移到文件首 (id)<br /> .如果真 (读入文本 (id, 25) ≠ #文件头 ＋ 到文本 ({ 0 }))<br /> 信息框 (“请确认修复程式的资源文件的完整性！” ＋ #换行符 ＋ “ Code: 0x002”, 0, “错误”)<br /> 返回 (0)<br /> .如果真结束<br /> <br /> <br /> ' 读入 SQL.INI<br /> .如果真 (读入数据 (id, 数据) ＝ 假)<br /> 信息框 (“读入SQL连接信息失败，请确认修复程式的资源文件的完整性！” ＋ #换行符 ＋ “ Code: 0x003”, 0, “错误”)<br /> 返回 (0)<br /> .如果真结束<br /> file ＝ 取临时文件名 ()<br /> 创建目录 (file)<br /> 写到文件 (file ＋ “\SQL.INI”, 数据)<br /> <br /> <br /> .如果真 (连接初始化 (file ＋ “\SQL.INI”))<br /> ' 读入 DXT_DOC.SQL<br /> .如果真 (读入数据 (id, 数据) ＝ 假)<br /> 信息框 (“读入SQL连接信息失败，请确认修复程式的资源文件的完整性！” ＋ #换行符 ＋ “ Code: 0x005”, 0, “错误”)<br /> 返回 (0)<br /> .如果真结束<br /> 写到文件 (file ＋ “\DXT_DOC.SQL”, 数据)<br /> <br /> .如果真 (分析执行SQL命令 (file ＋ “\DXT_DOC.SQL”) ＝ 假)<br /> 信息框 (“命令分析执行失败,已撤消更改！” ＋ #换行符 ＋ “ Code: 9x001”, 0, “错误”)<br /> 返回 (0)<br /> .如果真结束<br /> .如果真 (读入文本 (id, 10) ≠ “DOCTOR END”)<br /> 信息框 (“已经执行处理完成,但是没有找到结束标志,更改已保存！” ＋ #换行符 ＋ “ Code: 0x006”, 0, “错误”)<br /> .如果真结束<br /> <br /> .如果真 (是否为调试版 () ＝ 假)<br /> 更改保存 (file ＋ “\SQL.INI”)<br /> .如果真结束<br /> <br /> <br /> 信息框 (“处理成功！”, 0, )<br /> 返回 (0) ' 可以根据您的需要返回任意数值<br /> .如果真结束<br /> 返回 (0) ' 可以根据您的需要返回任意数值

补充内容 (2014-5-27 08:26):
弊病：  当处理的数据量太大的时候，因为有个超时没有调整，所以会造成程序认为运行脚本失败 但是程序会回滚操作，不会对数据库产生影响！

灵感ever

支持一下下

灵感ever

支持一下

si614614

lukeigun

谢谢分享！！！

lukeigun

谢谢分享！！！

boyu

新手存货  谢谢分享

Alexander——

打酱油，看不懂！！！

鲁凯啸

KEY心碎 发表于 2014-5-23 09:09
我表示看不懂！！！！

哪里看不懂 ？表示提供指导！