Question

用vb连接access数据库以后，如何一次性执行多条sql语句

你好，我我想问一下用vb连接access数据库以后，如何一次性执行多条sql语句，写一句就能顺利执行。写了多条sql语句就报错。好像要涉及到事务存储之类的东西，但是不知道具体怎么弄。

Answer 1

使用ACCESS查询对象是无法一次运行多个SQL语句的，但是通过ACCESS VBA代码可以实现一次运行多个SQL语句。下面是具体实现方案;
1)新建一个ACCESS窗体，窗体添加一个命令按钮；
2）编写按钮单击事件过程

Private Sub Command1_Click()Dim strSql as stringstrSQL="Update Policy SET LatestDueDate=Year(Date()) & '-' & Format(PolicyDate,'mm-dd')" DoCmd.RunSql strSQL '运行第一个更新语句strSQL="UPDATE Policy SET LatestDueDate= DateAdd('yyyy',1,LatestDueDate) WHERE (((Month(Date())-Month(LatestDueDate)) > 6) and(PaymentMode='H'))" DoCmd.RunSql strSQL '运行第二个更新语句 End Sub

跟着点击该命令按钮就可以一次执行两条语句了。