Mensajes

Buenas tardes!!
estoy llamando desde vb6, con un objeto recordset ADO, un store procedure pero me salta el error '-2147217900 (80040e14)' en tiempo de ejecucion: [Microsoft][ODBC SQL Server Driver][SQL Server]El procedimiento o la funcion 'sp_consulta' esperaba el parametro '@cv' , que no se ha especificado.

por favor , ¿me podria ayudar? estoy con este tema hace tiempo

he corroborado el codigo y esta ok y el store procedure en el sql server 2005 corre bien.

Código (vb) [Seleccionar] Expandir


Const conexion = "driver={SQL Server};server=" & servidor & ";UID=" & UserAdmin & ";PWD=" & password & ";DATABASE=" & Path
     
    Dim codigoAbuscar as string

    Set cmd = New ADODB.Command
         
    Dim cnn As ADODB.Connection  'Microsoft ActiveX Data Objects 2.x Library
    Set cnn = New ADODB.Connection
       
    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

    If rst.State = adStateOpen Then rst.Close: Set rst = Nothing
    If cnn.State = adStateOpen Then cnn.Close: Set cnn = Nothing

cnn.Open conexion
cnn.CursorLocation = adUseClient
cmd.ActiveConnection = conexion
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "sp_consulta"

cmd.NamedParameters = True

codigoAbuscar = "MANUAL-1"

cmd.Parameters.Append cmd.CreateParameter("@cv", adVarChar, adParamInput, 50, codigoAbuscar)
cmd.Parameters.Append cmd.CreateParameter("@estado", adVarChar, adParamInput, 1, Combo1.Text)
cmd.Parameters.Refresh

With rst
    .CursorLocation = adUseClient
    .CursorType = adOpenStatic
    .LockType = adLockOptimistic
End With

rst.Open cmd, , adOpenStatic, adLockOptimistic (aqui me salta el error)

Desde ya Gracias ¡!!