'用事务处理数据库的例子 private sub command1_click() on error errhandle conn.begintrans '开启事务 conn.execute "insert into tablename(...) values(...) '增加记录 conn.execute "update tablename set ... where ..." '更新记录 conn.execute "delete from tablename where ..." '删除记录 conn.committrans '提交事务 msgbox "操作成功!",vbokonly,"提示" exit sub errhandle: conn.rollbacktrans '出错,回滚事务 msgbox "保存失败,错误原因为:" err.description,vbexclamation,"提示" exit sub end sub
private sub command1_click()
on error errhandle
conn.begintrans '开启事务
conn.execute "insert into tablename(...) values(...) '增加记录
conn.execute "update tablename set ... where ..." '更新记录
conn.execute "delete from tablename where ..." '删除记录
conn.committrans '提交事务
msgbox "操作成功!",vbokonly,"提示"
exit sub
errhandle:
conn.rollbacktrans '出错,回滚事务
msgbox "保存失败,错误原因为:" err.description,vbexclamation,"提示"
exit sub
end sub