Set rs2 = New ADODB.Recordset

Question

Set rs2 = New ADODB.Recordset
rs2.Open "abc", cn, , , adCmdTable.....
rs2.Fields("year") = Combo1.Text
.......错误提示：当前记录集不支持更新．．．．．．　　应该如何修改　谢谢了

Answer 1

abc是一个存储过程名吧
试试看
rs2.Open "abc", cn, 1，3

Answer 2

strcmdbd = "select * from 参数表 "
rstd.Open strcmdbd, cnnd, adOpenStatic, adLockOptimistic

Answer 3

rs2.Open "select * from abc", cn, 1，3

Answer 4

'ADO/DAO DateObject,Extract from VBAdvisor's Project on 18/July/2007Private Sub UpdateObject()'Dim oRS As DAO.RecordsetDim oRS As ADODB.Recordset
Dim objJRO As JRO.JetEngine    On Error GoTo vbErrorHandler    'Set oRS = mDB.OpenRecordset("select * from codeitems where id = " & msKey)
    Set oRS = New ADODB.Recordset    With oRS
        .Open "select * from codeitems where id =" & msKey, mDBConnection, ADODB.adOpenKeyset, ADODB.adLockOptimistic
    End With    'oRS.Edit  'DAO update Record command
    oRS.Fields("code").Value = ""
    'oRS.Fields("code").AppendChunk (msCode) 'DAO
    oRS.Fields("code").Value = msCode
    oRS.Fields("description").Value = msDescription
    oRS.Fields("parentid") = msParentKey
    oRS.Fields("notes").Value = ""
    'oRS.Fields("notes").AppendChunk (msNotes) 'DAO
    oRS.Fields("notes").Value = msNotes
    oRS.Fields("example").Value = ""
    'oRS.Fields("example").AppendChunk (msExample)
    oRS.Fields("example").Value = msExample
    oRS.Update
    oRS.Close    '
    ' Refresh the DB Engine
    '
    'DBEngine.Idle dbRefreshCache
    ' Refresh the cache to ensure that the latest data
   ' is available.
    Set objJRO = New JRO.JetEngine
    objJRO.RefreshCache mDBConnection    mState = doStored
    mbRead = TrueExit SubvbErrorHandler:
    Err.Raise Err.Number, "PlantMachineLibary::UpdateObject", Err.DescriptionEnd Sub