VB操作Access数据库小记

        因工作需要,同时为了避免大量繁琐工作,特研究了一下VB操作Access数据库,代码编写好后一劳永逸,极大提高了效率。本人是VB小白,在网上查阅了一些资料后动手操作,记录以备查阅。

工作环境:Windows操作系统,Microsoft Access2010(需安装完整版)

         数据库部分字段和内容如下图:

数据库部分字段图

数据库数据图

         有了米,开始下锅,大致步骤是:新建窗体——放置按钮——为按钮编写事件代码。

         打开上图文件名为users的Access数据库(库中包含一个users表,表内有上千条数据),然后按如下步骤操作。

1、创建窗体

2、在窗体上放置按钮

将窗体模式改为设计视图

3、设置按钮属性并编写事件代码

为按钮设置一个标题

 为按钮注册事件

进入到VB编辑模式:

编写VB代码,在Private Sub Command0_Click()和End Sub之间编写代码,如下图:

          语句str1、str2的完整代码如下:

str1 = "UPDATE users SET carWeight=carWeight-overWeight-int(rnd(billNum)*800),overWeightPercent='0' WHERE overWeight>1000 AND limiteWeight<>0 AND date BETWEEN '" + startDate + "' AND '" + endDate + "'"
str2 = "UPDATE users SET carWeight=int(carWeight/10)*10,overWeight=0 WHERE overWeight>1000 AND limiteWeight<>0 AND date BETWEEN '" + startDate + "' AND '" + endDate + "'"

         特别需要注意的是:Access数据库中SQL语句中日期值要用单引号引起来,在VB语言中,一个单引号开头表示注释。SQL语句是字符串,字符串用双引号引起来,里面的日期值再使用单引号引起来。另外由于在声明变量时startDate和endDate是字符串值,在SQL语句拼接变量时,语句中的单引号不能漏掉,否则报错。

4、保存窗体,并为窗体取名字

 

 

5、运行

进入“窗体视图”,点击窗体上的按钮,就可以执行自己编写的VB代码了,运行结果如下图:

 

         VB语法和函数的使用均查阅网络和MSDN手册,经过不断尝试,出错调试终得成功!

 

已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页