Office中国论坛/Access中国论坛

标题: .AddNew时，提示“数据库或对象为只读” [打印本页]

---

作者: VulcanTerry    时间: 2013-1-30 14:54
标题: .AddNew时，提示“数据库或对象为只读”
    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    时间: 2013-1-30 17:45
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

复制代码

---

作者: 笑嘻嘻哦    时间: 2013-1-30 20:56
数据库的数据很有用的

---

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

Powered by Discuz! X3.3