Office中国论坛/Access中国论坛

标题: 数据为什么没有写入表？ [打印本页]

作者: 701010 时间: 2005-3-25 04:29
标题: 数据为什么没有写入表？
请看一下这段代码，为什么没有保存（写入）数据？

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 时间: 2005-3-25 18:10
[attach]9587[/attach]

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

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

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

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