DO BELOW IN A VB DLL:
Dim CNN As ADODB.Connection
CNN.BeginTrans
CNN.Execute ".........."
CNN.Execute ".........."
CNN.Execute ".........."
CNN.CommitTrans
试验一下这样。
<!--#include file="conn.asp"-->
<%
on error resume next '遇到错误继续执行
conn.begintrans '事务开始,同时对两个或多个表操作,此例子为对两个表添加。
strsql="insert into 表1名(字段1,字段2)values('字段1值','字段2值')" '添加一条记录
conn.execute strsql
strsql="insert into 表2名(字段1,字段2)values('字段1值','字段2值')" '添加一条记录
conn.execute strsql
if conn.errors.count>0 then '如果错误数量大于0则,返回到事物开始前状态。
response.write "错误。"
conn.rollbacktrans
else
response.write "yes." '否则完成事务。
Conn.CommitTrans
end if
%>