大家帮我看看ADDNEW的问题！

123xiaoniu　发表于：2011-03-16 21:34:04 　

点击之后，不能新添两条记录，只存有第一条，请问怎么修改？

Private Sub Command0_Click()
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
STemp = "Select * From 表1"

Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
       Rs.AddNew
        Rs("姓名") = "wangxiaom"
        Rs("日期") = Date - 1

     Rs.AddNew
        Rs("姓名") = "wangxiaom"
        Rs("日期") = Date - 2

Set Rs = Nothing

End Sub

Top

罗衣惹轻尘发表于：2011-03-17 08:47:02

请留意是否存在姓名为：

1、索引（无重复）或主键。

2、增加第二条记录之前应该加上rs.update，如：

      Rs.AddNew
        Rs("姓名") = "wangxiaom"
        Rs("日期") = Date - 1
     Rs.update
     Rs.AddNew
        Rs("姓名") = "wangxiaom"
        Rs("日期") = Date - 2

Rs.update

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

大家帮我看看ADDNEW的问题！