用vb连接access数据库以后,如何一次性执行多条sql语句
你好,我我想问一下用vb连接access数据库以后,如何一次性执行多条sql语句,写一句就能顺利执行。写了多条sql语句就报错。好像要涉及到事务存储之类的东西,但是不知道...
你好,我我想问一下用vb连接access数据库以后,如何一次性执行多条sql语句,写一句就能顺利执行。写了多条sql语句就报错。好像要涉及到事务存储之类的东西,但是不知道具体怎么弄。... 你好,我我想问一下用vb连接access数据库以后,如何一次性执行多条sql语句,写一句就能顺利执行。写了多条sql语句就报错。好像要涉及到事务存储之类的东西,但是不知道具体怎么弄。 展开
展开
展开全部
使用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
跟着点击该命令按钮就可以一次执行两条语句了。
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
跟着点击该命令按钮就可以一次执行两条语句了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |