小编Ada*_*ner的帖子

在下面的代码中,我尝试使用Command对象中的ADODB打开记录集,但它告诉我记录集不可更新.我很难做到这一点.

当我尝试使用.Open方法和Command.Execute,传递adOpen {Static | Dynamic},adLock {Optimistic | Pessimistic}时,它给出了以下错误:

运行时错误'3001'
参数类型错误,超出可接受范围或彼此冲突.

Dim cmdActionLog As ADODB.Command
Function LogAction(ActionID As Integer, Optional StartedOn As Date, Optional EndedOn As Date, Optional SuccessFlag As Boolean = True)
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.LockType = adLockOptimistic
    rs.CursorType = adOpenStatic
    rs.Open cmdActionLog.Execute(Parameters:=Array(ActionID)), , adOpenStatic, adLockOptimistic
    'Set rs = cmdActionLog.Execute(Parameters:=Array(ActionID))
    If Not rs.EOF Then
        If StartedOn Then rs!LAST_STARTED_ON = StartedOn
        If EndedOn Then rs!LAST_ENDED_ON = StartedOn
        rs!SUCCESS_FLAG = SuccessFlag
        rs.Update
    Else
        Debug.Print "No action …