Autor
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 ¡!!
En línea
