Office中国论坛/Access中国论坛

标题: ◆请问,如何用代码向表中添加数据? [打印本页]

作者: beibeijia 时间: 2003-11-6 18:54
标题: ◆请问,如何用代码向表中添加数据?
请问,如何用代码向表中添加数据?

◆现有积分表:

姓名编号获得赠送稷分送出积分积分说明
______________________________________

◆现有一窗体为

甲向乙送 1000 积分!
_______________________

当确定后,
在积分表中自动添加两条记录,

◆一条是乙获得积分的记录,
◆一条是甲送出积分的记录!

我想写一个事件过程,
但不知如何写,
请各位指导一下!

作者: 没牙兔兔 时间: 2003-11-6 23:13
使用事务处理
On Error GoTo Cmd还原_err
      Dim Conn As ADODB.Connection
      Dim Rs As ADODB.Recordset
      Set Conn = CurrentProject.Connection
      Set Rs = New ADODB.Recordset

      '事务处理
      Conn.BeginTrans

      Rs.Open "select * from tbl积分 ", Conn, adOpenDynamic, adLockOptimistic

            Rs.AddNew
            Rs!Name = "甲"
            Rs!送 = 1000
            Rs.update

            Rs.AddNew
            Rs!Name = "乙"
            Rs!收 = 1000
            Rs.update

      Conn.CommitTrans
      Boolintrans = False
      Rs.Close
      Set Rs = Nothing

Exit_Cmd还原:
Exit Sub

Cmd还原_err:
If Boolintrans Then
      Conn.RollbackTrans
End If
MsgBox Err.Description
Resume Exit_Cmd还原
End Sub

作者: yodong 时间: 2003-11-7 17:33
请问没牙兔兔，事务处理用在那里的呀，如何调用呀，是不是用在SQL2000里的。谢谢！！

作者: beibeijia 时间: 2003-11-7 22:12
谢谢兔兔，测试通过！

事务处理就是事件过程吧……

作者: 没牙兔兔 时间: 2003-11-7 22:32
事务处理就是操作事件具有原子性,不可再分割
要么全部成功提交,要么一个出错全部回滚
以银行提钱为例就是最好的事务举例

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)