on error goto Errx
D1.DataConnect.BeginTrans
...A...
D1.DataConnect.CommitTransErrx:
...B...當執行到...A...時出錯進入Errx語句.當到了Errx時如果已BeginTrans時就CommitTrans,沒有就不進行這一步.怎樣知道正在BeginTrans了呢?
D1.DataConnect.BeginTrans
...A...
D1.DataConnect.CommitTransErrx:
...B...當執行到...A...時出錯進入Errx語句.當到了Errx時如果已BeginTrans時就CommitTrans,沒有就不進行這一步.怎樣知道正在BeginTrans了呢?
cn.rollbacktranc
else
cn.committrance
end if如果数据库有错,就回滚,否则就提交