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手册，经过不断尝试，出错调试终得成功！