[求助]菜鸟问题--为何说记录集不支持更新？

fz1213

我在excel里vba向access里面添加记录，可是在执行到rs.addnew时提示"3251错误:当前记录集不支持更新，这可能是提供程序的限制，也可能是选定锁定类型的限制"

知道原因的朋友告诉我下阿？

烟雨厦江南

将rs.open代码贴上来吧，估计是打开的参数不对

boling1

我也出现同样错误,

Sub H_单个工程指标入库_MDB()

    Dim Sql$
    Dim strFile, strConnStr As String
    
    Dim Conn As New ADODB.Connection
    Dim rs1 As New ADODB.Recordset
   
    'http://www.connectionstrings.com这里有连接字符串如何定义的内容,如果出现错误往往是连接字符串出
    strFile = Application.GetOpenFilename("Access文件,*.mdb", , , , False)
    strConnStr = "data source =" & strFile     '可能要注意空格有文件是否要引起来
   
    With Conn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = strConnStr
        .Open
    End With
   
    Sql = "select Aa,BB from Sheet1"      '设置查询条件
    With rs1
        .CursorType = adOpenKeyset
        .LockType = adLockPessimistic
    End With
    
    Set rs1 = Conn.Execute(Sql)

    rs1.AddNew    '这句运行就出现这个错误!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    rs1.Fields("AA").Value = "新工程01"
    rs1.Fields("BB").Value = "公寓"
    rs1.Update
   
    rs1.Close           '关闭数据集
    Conn.Close          '关闭连接
    Set Conn = Nothing  '释放内存
    Application.ScreenUpdating = True
   
End Sub

===================

我也是同样错误,请高人指点.

[此贴子已经被作者于2007-12-28 23:28:20编辑过]

boling1

自己看了<<EXCEL VBA整合数据库应用>>这本书后找到了答案,要在Recordset直接打开一张表就会支持.CursorType = adOpenKeyset  .LockType = adLockPessimistic这两个属性,而在连接connection上打开数据集,执行SQL语句,就不只支持只读和向前两种属性了.哈哈,所以,用connection.open后connection.execute(sql)和Recordset.open打开的rs是不同的.