存储过程的问题

Question

Private Sub Command1_Click()
    Dim mrc As ADODB.Recordset
    
    zz = "zz": zzz = "zz"
    
    Set mrc = New ADODB.Recordset
    Set mrc = cnn.Execute("exec getUser @cn=" & zz & ",@ps=" & zzz & "")
    If mrc.EOF = False Then
        Print Trim(mrc.Fields(0)) & "----" & Trim(mrc.Fields(1))
    Else
        mrc.AddNew
        mrc.Fields(0) = zz
        mrc.Fields(1) = zzz
        mrc.Update
    End If
        mrc.Close
End Sub上面是我的代码，执行时提示不支持添加，请问，这个记录集的参数应该怎么设。

Answer 1

不会啊，我用数据环境操作存储过程，结果集就可以修改，我现在想用ado试试，不可以的嘛。

Answer 2

兄弟们，我自己已经有答案了，贴出来供大家参考Private Sub Command1_Click()
    Dim mrc As ADODB.Recordset
    
    zz = "zzzz": zzz = "zzzz"
    txtsql = "getUser " & zz & "," & zzz
    
    Set mrc = New ADODB.Recordset
    mrc.Open txtsql, cnn, adOpenKeyset, adLockOptimistic
    If mrc.EOF = False Then
        While Not mrc.EOF
            Print Trim(mrc.Fields(0)) & "----" & Trim(mrc.Fields(1))
            mrc.MoveNext
        Wend
    Else
        mrc.AddNew
        mrc.Fields(0) = zz
        mrc.Fields(1) = zzz
        mrc.Update
        MsgBox "成功添加"
    End If
        mrc.Close
End Sub