dim cn as new ADODB.connectioinon error goto TransError
cn.BeginTrans '开始事务
rs.AddNew .... rs.update cn.CommitTransexit subTransError:
cn.RollBackTrans
msgbox "发生错误:" & Err.Description
cn.BeginTrans '开始事务
rs.AddNew .... rs.update cn.CommitTransexit subTransError:
cn.RollBackTrans
msgbox "发生错误:" & Err.Description
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货