• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.1
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:2.0
软件大小:194M
更新时间:03-15

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

【插件】神梦数据库插件{v1.1.0.0}【ACCESS、SQLite3 新增|修改|... [复制链接]

1#

新年送大礼!

发布个ADO数据库插件!

支持的话,请大家送点鲜花和银币,谢谢!

祝大家新年快乐!








神梦交流群:624655641



命令预览:





更新历史:
  1. '〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓【更新历史】〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓
  2. '神梦数据库插件v1.1.0.0 2018.02.22
  3. '\
  4. '|--新增 Open_SQLServer() 打开SQLServer数据库
  5. '|--修改 Execute() 函数名为 ExecSQL() 执行SQL命令
  6. '|
  7. '|
  8. '神梦数据库插件v1.0.0.0 2018.02.16
  9. '\
  10. '|--新增 Ver() 取插件版本
  11. '|--新增 GetBasePath() 取插件路径
  12. '|--新增 GetRefVal() 取变参指针数据
  13. '|--新增 JsonToTable() JSON字符串转表数据
  14. '|--新增 GetJSON() 解析JSON取值
  15. '|--新增 SetJSON() 设置JSON键值
  16. '|--新增 Create_ACCESS() 创建ACCESS数据库
  17. '|--新增 Open_ACCESS() 打开ACCESS数据库
  18. '|--新增 Create_SQLite3() 创建SQLite3数据库
  19. '|--新增 Open_SQLite3() 打开SQLite3数据库
  20. '|--新增 NewTable() 新建数据表
  21. '|--新增 RenTable() 重命名数据表
  22. '|--新增 DelTable() 删除数据表
  23. '|--新增 NewField() 新增字段
  24. '|--新增 DelField() 删除字段
  25. '|--新增 RenField() 重命名字段
  26. '|--新增 SetFieldType() 修改字段数据类型
  27. '|--新增 NewData() 新增记录数据
  28. '|--新增 UpData() 更新记录数据
  29. '|--新增 FindData() 查找记录数据
  30. '|--新增 DelData() 删除记录数据
  31. '|--新增 Execute() 执行SQL命令
  32. '|--新增 CloseEx() 关闭数据库
  33. '|
  34. '|
复制代码


2014例子:
  1. '==================================================================================================
  2. '【神梦数据库插件2014版演示例子】
  3. '版本:v1.1
  4. '更新:2018.02.22
  5. '作者:神梦无痕
  6. 'QQ:1042207232
  7. '神梦按键交流群:624655641
  8. '=======================================[需要脚本定制可以找我]=======================================
  9. '
  10. ver = Plugin.SmADO.Ver()
  11. TracePrint ver
  12. If ver <> "1.1.0.0" Then
  13.     TracePrint "版本不符!"
  14.     TracePrint Plugin.SmADO.GetBasePath()
  15.     ExitScript
  16. End If

  17. Call 演示ACCESS数据库()
  18. Call 演示SQLite3数据库()
  19. Call 演示SQLServer数据库()

  20. Sub 演示ACCESS数据库()
  21.     '//创建并打开 ACCESS 数据库,如果已存在则直接打开
  22.     If Plugin.SmADO.Create_ACCESS("C:\test.mdb") Then
  23.         TracePrint "创建ACCESS成功!"
  24.         Call 通用代码()
  25.     Else
  26.         TracePrint "创建ACCESS数据库失败!"
  27.         ExitScript
  28.     End If
  29.     '//删除测试用的数据库
  30.     Call Plugin.File.DeleteFile("C:\test.mdb")
  31. End Sub

  32. Sub 演示SQLite3数据库()
  33.     '//创建并打开 SQLite3 数据库,如果已存在则直接打开
  34.     If Plugin.SmADO.Create_SQLite3("C:\test.db") Then
  35.         TracePrint "创建SQLite3成功!"
  36.         Call 通用代码()
  37.     Else
  38.         TracePrint "创建SQLite3数据库失败!"
  39.         ExitScript
  40.     End If
  41.     '//删除测试用的数据库
  42.     Call Plugin.File.DeleteFile("C:\test.db")
  43. End Sub

  44. Sub 演示SQLServer数据库()
  45.     '//打开 SQLServer 数据库
  46.     If Plugin.SmADO.Open_SQLServer("127.0.0.1", "Test", "Admin", "123456") Then
  47.         TracePrint "打开SQLServer成功!"
  48.         Call 通用代码()
  49.     Else
  50.         TracePrint "打开SQLServer数据库失败!"
  51.         ExitScript
  52.     End If
  53. End Sub

  54. Sub 通用代码()
  55.     //<>--------------------------------------【下面的代码通用】--------------------------------------<>
  56.     '//新建数据表, 参数三为 true 则添加自增长ID字段
  57.     If Plugin.SmADO.NewTable("test", "姓名 varchar(255), 性别 varchar(255), 年龄 int", True) Then
  58.         TracePrint "新建数据表成功!"
  59.     Else
  60.         TracePrint "新建数据表失败!"
  61.     End If
  62.     
  63.     '//向表 test 插入一条新数据记录
  64.     data = "{}"
  65.     data = Plugin.SmADO.SetJSON(data, "姓名", "张三")
  66.     data = Plugin.SmADO.SetJSON(data, "性别", "男")
  67.     data = Plugin.SmADO.SetJSON(data, "年龄", 18)
  68.     If Plugin.SmADO.NewData("test", data) Then
  69.         TracePrint "新增记录数据成功!"
  70.     Else
  71.         TracePrint "新增记录数据失败!"
  72.     End If
  73.     
  74.     '//返回表 test 中所有的数据记录
  75.     ret = Plugin.SmADO.FindData("test")
  76.     TracePrint ret
  77.     
  78.     
  79.     '//操作完毕后一定要记得关闭数据库
  80.     Call Plugin.SmADO.CloseEx()
  81.     
  82.     
  83.     '//解析方式一:直接解析JSON
  84.     Call Plugin.SmADO.GetJSON(ret, "o", count)
  85.     For i = 0 To count - 1
  86.         n = "[" & i & "]."
  87.         TracePrint "方式①:" & Plugin.SmADO.GetJSON(ret, n & "ID") &_
  88.                         " " & Plugin.SmADO.GetJSON(ret, n & "姓名") &_
  89.                         " " & Plugin.SmADO.GetJSON(ret, n & "性别") &_
  90.                         " " & Plugin.SmADO.GetJSON(ret, n & "年龄")
  91.     Next
  92.     
  93.     
  94.     '///解析方式二:JSON转换成表类型,再解析(按键精灵2014版本)
  95.     Table = Plugin.SmADO.JsonToTable(ret)
  96.     For i = 0 To UBound(Table)
  97.         TracePrint "方式②:" & Table(i)("ID") &_
  98.                         " " & Table(i)("姓名") &_
  99.                         " " & Table(i)("性别") &_
  100.                         " " & Table(i)("年龄")
  101.     Next
  102.     
  103. End Sub

  104. Sub OnScriptExit()
  105.     '//操作完毕后一定要记得关闭数据库
  106.     Call Plugin.SmADO.CloseEx()
  107. End Sub
复制代码


插件下载:
SmADOv11.zip (, 下载次数:311)


    已有2评分我要评分查看所有评分

    最后编辑神梦科技 最后编辑于 2018-02-22 14:14:16
    2#

    阅读收藏。谢谢分享。

    承接各类脚本 联系QQ: 9940 0460


    PC,安卓,模拟器,脚本定制!
    3#


    参与/回复主题
    RE:【插件】神梦数据库插件{v1.1.0.0}【ACCESS、SQLite3 新增|修

    发新话题 回复该主题