.AddNew时，提示“数据库或对象为只读”

VulcanTerry

    Dim rs As New ADODB.Recordset
    Dim conx As New ADODB.Connection
    Dim strSQL As String

    If IsNull(me.txt1) Or IsNull(Me.txt2) Then
        MsgBox "有重要信息未填写！"
        Exit Sub
    Else
        strSQL = "select * from tbl1"
        Set conx = CurrentProject.Connection
        rs.Open strSQL, conx, 1, 3

        With rs
            .AddNew
            .Fields("A") = me.txt1
            .Fields("A") = me.txt2
            .Update
            .Close
        End With

        Set rsPromotion = Nothing
        Set conx = Nothing

roych

1、建议不要用什么“1”和“3”，老老实实地用英文属性，这样才知道哪里出问题：
rs.Open strSQL, conx, adOpenKeyset, adLockOptimistic

1.       With rs
   
2.             .AddNew
   
3.             .Fields("A") = me.txt1
   
4. '下面这一句有问题，不能给相同的字段同时赋值2次。要么改成.Fields("B") 或者其它，要么就下一次AddNew时再赋值。
   
5.             .Fields("A") = me.txt2
   
6.             .Update
   
7.             .Close
   
8.         End With

复制代码

笑嘻嘻哦

数据库的数据很有用的