对两个表同时增加记录的时，要保证它的一致性，到底要要怎么做？

[dragonsou]

我在对两个表同时增加记录的时，要保证它的一致性，就是如果有一个增加失败，那就两个表都不能增加。
我看过一些书说要加事务处理的。到底要要怎么做，还请高手们帮帮忙吧！

[junglerover]

以下语句可以保证数据的一致性：

AdoConn.BeginTrans
On Error GoTo Err_Process
strSQL = "insert ..... into a ......"
AdoConn.execute strSQL

strSQL = "insert ..... into b ......"
AdoConn.execute strSQL
On Error GoTo 0
AdoConn.CommitTrans
Exit Sub

Err_Process:
AdoConn.RollbackTrans