数据为什么没有写入表？

701010

请看一下这段代码，为什么没有保存（写入）数据？



Option Compare Database



Private Sub 命令12_Click()

    Dim db As ADODB.Connection, rs As ADODB.Recordset

    Set db = New ADODB.Connection

    Set rs = New ADODB.Recordset

    rs.ActiveConnection = CurrentProject.Connection

    rs.Open "商品信息", , adOpenKeyset, adLockPessimistic, adcmtable

    If Trim(text1.Value) <> "" Then

        rs.AddNew

        rs.MoveLast

        rs.Fields("名称") = Trim(text1.Value)

        rs.Fields("地址") = Trim(text2.Value)

        rs.Update

        rs.Close

    End If

    MsgBox "当前总记录数:" & Trim(Str(rs.RecordCount))

    End

End Sub



此时记录数仍为0，且打开表后仍无记录。

Trynew

我测试过代码没问题，可以添加记录。

只是    MsgBox "当前总记录数:" & Trim(Str(rs.RecordCount))   语句要放在  rs.Close   语句之前。另外 rs.MoveLast  语句是多余的。

提个建议：像这种程序运行有问题的帖子最好把程序数据库贴上来（可以先清空无关、敏感数据或导到新数据库），否则别人很难回答你的问题。