VB操作access同时在两张表中添加数据怎么实现
1个回答
展开全部
我们可以实现一次执行多条数据库操作，但是请注意代码实际上是一条一条进行的，执行一条后再执行下一条语句,多条语句是不能同时执行的。例如下面代码一次执行两个操作：
Private Sub Command1_Click()
Dim cn As New ADODB.Connection,cnStr As String
cnStr ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source='\\192.168.1.100\Shared\TestDB.mdb';"
cn.Open cnStr
'一次执行两条操作
With cn
.Excute "insert into t1(id,col1) values('001','abc');"
.Excute "insert into t2(id,c_id) values('001','056');"
End With
End Sub
请注意由于一次执行多条操作，有可能发生其中某条操作失败的情况，题主可以在上述代码中添加出错处理过程进行相应处置。如果需要全部操作要么全部成功、要么全部失败，不得出现中间状态，那么上面代码就需要加入事务处理，题主可参阅本人以往给出的相关知道回答链接：
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
