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
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 ¡!!