VB *** 作access同时在两张表中添加数据怎么实现

我们可以实现一次执行多条数据库 *** 作，但是请注意代码实际上是一条一条进行的，执行一条后再执行下一条语句,多条语句是不能同时执行的。例如下面代码一次喊核镇执行两个 *** 作：

Private Sub Command1_Click()

Dim cn As New ADODB.Connection,cnStr As String

cnStr ="Provider=Microsoft.Jet.OLEDB.4.0Data 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

请注意由于一次执行多条 *** 作，有可能发生其中某条 *** 作失败的情况，题主可以在上述代码中添加出郑粗错处理过程进行相应处置。如果需要全部 *** 作要么全部成功、要么全部失败，不得出现中间状态，那么上面代码就需氏梁要加入事务处理，题主可参阅本人以往给出的相关知道回答链接：

https://zhidao.baidu.com/question/243896375633680804

1、你的问题不应该是 ACCESS 问题，而应该是前台编程语言的问题，因为你根本没有使用 ACCESS ，而只是使用了 MDB 这个格式的文件而已。ACCESS 软件的很多功能你根本没有使用也无法使用。

2、既然你没有使用ACCESS，那么你的问题也无法从宽改 ACCESS 方面得到解决。给你的建议是在前台编程语言中，比如 ASP 中，在注册成功的这个页面肯定有调用 MDB 的代慎圆判码，在这段代码中再加一段，将信息同时保存到两个数据库中就可以了。

更新、删除也同样处理即可。

3、如果你有权限，你也可以在服务器上写一个服务，定期运行，对两个数据库进行比对后再用查询进行添加修改删除处理。

4、ACCESS 的确有一个功能叫同步复制，但请注意！那是 ACCESS 的功能，不是 MDB 本身具有的功能腔搜。

你那是伪加密软件加密过了

http://www.cftea.com/c/673.asp

http://www.google.cn/search?hl=zh-CN&q=asp+%E5%8A%A0%E5%AF%86&meta=&aq=f

网上解密软件一堆了

http://www.google.cn/search?complete=1&hl=zh-CN&newwindow=1&q=asp+%E5%8A%A0%E5%AF%86+%E8%A7%A3%E5%AF%86&meta=&aq=f

你自己试验吧

---