因工作需要，同时为了避免大量繁琐工作，特研究了一下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手册，经过不断尝试，出错调试终得成功！

 

 

————————————————

版权声明：本文为CSDN博主「Love_Chubby」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/sbftxgq/article/details/81975437