按键精灵 操作access数据库 插件

时间:2016/2/14 17:56:43  作者:Mho  来源:守望幸福  查看:56696  评论:0
内容摘要:按键精灵 操作access数据库 插件
作者:涛声呢喃

功能如下:
  1. 创建Access数据库
  2. 打开Access数据库
  3. 建立一张新的表
  4. 关闭打开的数据库
  5. 打开数据库中的表
  6. 关闭数据库中的表
  7. 获取当前表的记录总数
  8. 移动至第一条记录
  9. 移动至最后一条记录
  10. 移动到下一条记录
  11. 移动到上一条记录
  12. 当前是否是记录开始
  13. 当前是否是记录末尾
  14. 移动到指定记录行
  15. 删除当前行的记录
  16. 添加一条新的记录
  17. 获取当前行字段的值
  18. 获取当前行所有字段的值
  19. 修改当前行字段的值
  20. 列出当前数据库所有表名
  21. 列出当前表中所有字段
  22. 获取当前表的字段总数
  23. 输出到Excel表格文件
复制代码
实例代码:
  1. Dim sTemp,i,TablesName,Value,ValueList,ListFields
  2. Dim Mydbf,MyTable
  3. Mydbf = "d:\test.mdb"
  4. MyTable = "test"
  5. //演示开始
  6. MessageBox "access库操作演示即将开始,按确定继续..."
  7. Call testCreate()
  8. Call testOper0()
  9. Call testOper1()
  10. EndScript
  11. Sub testCreate()
  12. //==========================================================================
  13. //演示如下函数:
  14. // CreateDBF 建立一个新的access数据库
  15. // CreateTable 建立一个新的表
  16. // ListTables 列出当前数据库所有表名
  17. // CloseTable 关闭当前打开的表
  18. // CloseDBF 关闭当前打开的数据库
  19. //==========================================================================
  20. Call Plugin.access.CreateDBF(Mydbf)
  21. Call Plugin.access.OpenDBF(Mydbf)
  22. sTemp = "自动编号字段 COUNTER, 文本字段 CHARACTER, 备注字段 MEMO, 数字字段 INTEGER, 布尔字段 YESNO, 日期时间字段 DATETIME, 货币字段 CURRENCY, OLE对象字段 OLEOBJECT"
  23. Call Plugin.access.CreateTable(MyTable,sTemp)
  24. Call Plugin.access.CloseTable()
  25. TablesName = Plugin.Access.ListTables()
  26. MessageBox "数据库所有表名:" & TablesName
  27. Call Plugin.access.CloseDBF()
  28. MessageBox "建立数据库演示完毕,按确定继续..."
  29. End Sub
  30. Sub testOper0()
  31. //==========================================================================
  32. //演示如下函数:
  33. // OpenDBF 打开access数据库
  34. // OpenTable 打开数据库中的表
  35. // RecordAdd 添加新的记录
  36. // SetValue 改变字段的值
  37. // ListFields 列出当前表中所有字段名
  38. // RecordMove 移动到指定记录行
  39. // GetValue 读取当前行字段的值
  40. // RecordNext 移动到下一条记录
  41. // GetValueList 获取当前行所有字段的值
  42. // ExportExcel 输出到Excel表格文件
  43. //==========================================================================
  44. Call Plugin.access.OpenDBF(Mydbf)
  45. Call Plugin.access.OpenTable(MyTable)
  46. i=1
  47. For 30
  48. Call Plugin.access.RecordAdd()
  49. Call Plugin.access.SetValue("文本字段","文本值" & i)
  50. Call Plugin.access.SetValue("备注字段","备注字段" & i)
  51. Call Plugin.access.SetValue("数字字段",i)
  52. //d = i Mod 2
  53. If (i Mod 2)=0
  54. Call Plugin.access.SetValue("布尔字段",0)
  55. Else
  56. Call Plugin.access.SetValue("布尔字段",-1)
  57. EndIf
  58. Call Plugin.access.SetValue("日期时间字段", Now)
  59. Call Plugin.access.SetValue("货币字段", 100+i/100)
  60. i=i+1
  61. EndFor
  62. MessageBox "向数据库中写入资料演示完毕,按确定继续..."
  63. ListFields = Plugin.Access.ListFields()
  64. MessageBox "当前表中所有字段名:" & ListFields
  65. Call Plugin.Access.RecordMove(5)
  66. Value = Plugin.Access.GetValue("文本字段")
  67. MessageBox "第五行记录文本字段的值:" & Value
  68. Call Plugin.Access.RecordNext()
  69. ValueList = Plugin.Access.GetValueList()
  70. MessageBox "第六行记录所有字段的值:" & ValueList
  71. Call Plugin.Access.ExportExcel("select * from test","d:\test.xls")
  72. 'SQL结构化查询语言"select * from test"查询test表中所有的字段值
  73. MessageBox "输出test表中所有字段值到D盘test.xls演示完毕,按确定继续..."
  74. Call Plugin.access.CloseTable()
  75. Call Plugin.access.CloseDBF()
  76. End Sub
  77. Sub testOper1()
  78. //==========================================================================
  79. //演示如下函数:
  80. // OpenDBF 打开access数据库
  81. // OpenTable 打开数据库中的表
  82. // ListFields 列出当前表中所有字段名
  83. // RecordMove 移动到指定记录行
  84. // GetValue 读取当前行字段的值
  85. // RecordNext 移动到下一条记录
  86. // GetValueList 获取当前行所有字段的值
  87. // ExportExcel 输出到Excel表格文件
  88. //==========================================================================
  89. MessageBox "演示数据库插件操作Excel表格,按确定继续..."
  90. Call Plugin.access.OpenDBF("d:\test.xls")
  91. Call Plugin.access.OpenTable("Sheet1")
  92. ListFields = Plugin.Access.ListFields()
  93. MessageBox "当前表中所有字段名:" & ListFields
  94. Call Plugin.Access.RecordMove(5)
  95. Value = Plugin.Access.GetValue("文本字段")
  96. MessageBox "第五行记录文本字段的值:" & Value
  97. Call Plugin.Access.RecordNext()
  98. ValueList = Plugin.Access.GetValueList()
  99. MessageBox "第六行记录所有字段的值:" & ValueList
  100. Call Plugin.Access.ExportExcel("select * from [Sheet1$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$]","d:\test2.xls")
  101. 'Excel表格中Sheet1的书写格式:[Sheet1$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$]
  102. MessageBox "输出test表中所有字段值到D盘test2.xls演示完毕,按确定继续..."
  103. Call Plugin.access.CloseTable()
  104. Call Plugin.access.CloseDBF()
  105. End Sub
复制代码

相关评论

图库精选