◆请问,如何用代码向表中添加数据?

beibeijia

请问,如何用代码向表中添加数据?

◆现有积分表:

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

◆现有一窗体为

甲  向  乙  送 1000  积分!
_______________________


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

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


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

没牙兔兔

使用事务处理
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

请问没牙兔兔，事务处理用在那里的呀，如何调用呀，是不是用在SQL2000里的。谢谢！！

beibeijia

谢谢兔兔，测试通过！

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

没牙兔兔

事务处理就是  操作事件具有原子性,不可再分割
要么全部成功提交,要么一个出错全部回滚
以银行提钱为例就是最好的事务举例