返回信息流向guests表中添加数据，代码如下：
On Error GoTo Err
cnn.BeginTrans '事务开始
str = "insert into guests(roomcode,name,age,certificate,remarks) values('" & txtRoomCode.Text & "','" & txtName.Text & "','" & txtAge.Text & "'','" & txtCertificate.Text & "','" & txtRemarks.Text & "')"
Debug.Print str '调试
cnn.Execute str
MsgBox "登记成功", vbOKOnly + vbInformation, "提示"
cnn.CommitTrans '事务结束
Exit Sub '跳过Err，结束过程
Err:
cnn.RollbackTrans '事务回滚
MsgBox "登记失败", vbOKOnly + vbInformation, "提示"
自己没觉得哪儿出错了，但总是返回“登记失败”，哪位大牛帮忙解答一下:-)
这是一条镜像帖。来源：北邮人论坛 / database / #2837同步于 2008/12/13
Database机器人发帖
【求助】有于数据库事务的使用的一个问题
xlyimi
2008/12/13镜像同步0 回复
订阅后，新回复会通过你的通知中心匿名送达。
0 条回复
暂无回复 · 你可以订阅本帖等待新回复。