按键精灵数据库Access插件 - Office办公插件

按键精灵用来做游戏脚本的?突然想想如果按键精灵也能对数据库文件进行操作,那就相当完美了,在网上找了不少资料,总结了一下,然后自己拿按键精灵VB插件模板,写了一些代码,可以实现对数据库Access进行操作,于是拿出来跟大家共享,本人担保绝对绿色无毒,哈哈,记得好的话给我分啊!!!给插件跟例子给大家共享,发现BUG,别忘了告知我一声哦!

以后还会陆续学习共享一些方法,顶我是我前进的动力,如果我的帖子再给埋了,我就真的没动力了。谢谢,O(_)O哈哈~

1.          [General]

2.         Description=Access库演示

3.         BeginHotkey=121

4.         BeginHotkeyMod=0

5.         PauseHotkey=0

6.         PauseHotkeyMod=0

7.         StopHotkey=123

8.         StopHotkeyMod=0

9.         RunOnce=1

10.      EnableWindow=

11.      Enable=1

12.      AutoRun=0

13.      [Repeat]

14.      Type=0

15.      Number=1

16.      [Relative]

17.      SetupOCXFile=

18.      [Comment]

19.      Content=【功能说明】

20.      1. 演示用按键精灵编写Office办公软件Access库的操作。

21.      [Script]

22.      Dim sTemp,i

23.      Dim Mydbf,MyTable

24.      Mydbf = "d:/test.mdb"

25.      MyTable = "test"

26.      //演示开始

27.      Plugin access.ShowMsg("Access库操作演示即将开始,按确定继续...")

28.      Gosub testCreate()

29.      Gosub testOper0()

30.      Gosub testOper1()

31.      Gosub testOper2()

32.      Gosub testOper3()

33.      EndScript

34.      //==========================================================================

35.      //演示如下函数:

36.      //  accCreateDBF 建立一个新的ACCESS数据库

37.      //  accCreateTable 建立一个新的表

38.      //  accCloseDBF  关闭当前打开的数据库

39.      //  accCloseTable 关闭当前打开的表

40.      //==========================================================================

41.      Sub testCreate()

42.          Plugin access.accCreateDBF(Mydbf)

43.          Plugin access.accOpenDBF(Mydbf)

44.          sTemp = "自动编号字段 COUNTER, 文本字段 CHARACTER, 备注字段 MEMO, 数字字段 INTEGER, 布尔字段 YESNO, 日期时间字段 DATETIME, 货币字段 CURRENCY, OLE对象字段 OLEOBJECT"

45.          Plugin access.accCreateTable(MyTable,sTemp)

46.          Plugin access.accCloseTable()

47.          Plugin access.accCloseDBF()

48.          Plugin access.ShowMsg("建立数据库演示完毕,按确定继续...")

49.      Return

50.      //==========================================================================

51.      //演示如下函数:

52.      //  accOpenDBF  打开ACCESS数据库

53.      //  accOpenTable 打开数据库中的表

54.      //  accRecordAdd 添加新的记录

55.      //  accSetValue  改变字段的值

56.      //  accUpDate  将当前修改内容保存

57.      //==========================================================================

58.      Sub testOper0()

59.          Plugin access.accOpenDBF(Mydbf)

60.          Plugin access.accOpenTable(MyTable)

61.          i=1

62.          For 30

63.              Plugin access.accRecordAdd()

64.              Plugin access.accSetValue("文本字段","文本值" & i)

65.              Plugin access.accSetValue("备注字段","备注字段" & i)

66.              Plugin access.accSetValue("数字字段",i)

67.              //d = i Mod 2

68.              If (i Mod 2)=0

69.                  Plugin access.accSetValue("布尔字段",0)

70.              Else

71.                  Plugin access.accSetValue("布尔字段",-1)

72.              EndIf

73.              Plugin access.accSetValue("日期时间字段", Now)

74.              Plugin access.accSetValue("货币字段", 100+i/100)

75.              Plugin access.accUpdate()

76.              i=i+1

77.          EndFor

78.          Plugin access.accCloseTable()

79.          Plugin access.accCloseDBF()

80.          Plugin access.ShowMsg("向数据库中写入资料演示完毕,按确定继续...")

81.      Return

 

Access演示.rar (1.17 KB)

下载次数: 7

2010-3-13 21:07

 

按键精灵access插件.rar (10.98 KB)

 

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页