38.关联表同时保存数据

▲ ADO新增数据、修改数据

     '要在VBA引用中引用 Microsoft ActiveX Data Objects 2.1或以上版本

        Dim rst As New ADODB.Recordset ’用New 对象被实例化，后面就可以直接用

        Dim rst2 As New ADODB.Recordset

        Dim conn As New ADODB.Connection

        Dim strSQL As String

        '在充值明细表 tblVoucher 中添加记录

        Set conn = CurrentProject.Connection

        rst.Open "tblVoucher", conn, adOpenKeyset, adLockOptimistic

        rst.AddNew '新增模式

        rst("vID") = Me.vID

        ……

        rst.Update '更新数据

        rst.Close '关闭记录集

        Set rst = Nothing '释放内存

        '在会员信息表中 更改 会员的充值金额

        strSQL = "select * from tblmemberinfor where cartNum='" _

            & Forms!frmVoucher_child_add!cartNum & "'"

        rst2.Open strSQL, conn, adOpenKeyset, adLockOptimistic

        rst2("mAmoun") = Val(rst2("mAmoun")) + Val(Me.vAmount)

        rst2.Update

        rst2.Close

        Set rst2 = Nothing