有关事务处理的错误

cnqdcc

为什么我一使用事务处理程序就会出错,错误提示是

-214716824试着不先使用BeginTrans而提交或退回事务,

这是怎么造成的啊

我的代码摘要如下

currentproject.connection.BeginTrans

      rs.moveFirst

    Select case strLeixing



case "无人售票"

<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">

添加记录代码若干

case "有人售票"



添加记录代码若干

end select</BLOCKQUOTE>

if msgbox("您确定添加吗",VbYesNo)=Vbyes then



<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">

currentproject.connection.commitTrans

else



currentproject.connection.RollBackTrans</BLOCKQUOTE>

end if

tz-chf

关闭程序重试