elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


  Mostrar Temas
Páginas: [1]
1  Programación / Programación Visual Basic / vb6 + error -2147217900 en: 31 Octubre 2011, 19:43 pm
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
  1. Const conexion = "driver={SQL Server};server=" & servidor & ";UID=" & UserAdmin & ";PWD=" & password & ";DATABASE=" & Path
  2.  
  3.    Dim codigoAbuscar as string
  4.  
  5.    Set cmd = New ADODB.Command
  6.  
  7.    Dim cnn As ADODB.Connection  'Microsoft ActiveX Data Objects 2.x Library
  8.    Set cnn = New ADODB.Connection
  9.  
  10.    Dim rst As ADODB.Recordset
  11.    Set rst = New ADODB.Recordset
  12.  
  13.    If rst.State = adStateOpen Then rst.Close: Set rst = Nothing
  14.    If cnn.State = adStateOpen Then cnn.Close: Set cnn = Nothing
  15.  
  16. cnn.Open conexion
  17. cnn.CursorLocation = adUseClient
  18. cmd.ActiveConnection = conexion
  19. cmd.CommandType = adCmdStoredProc
  20. cmd.CommandText = "sp_consulta"
  21.  
  22. cmd.NamedParameters = True
  23.  
  24. codigoAbuscar = "MANUAL-1"
  25.  
  26. cmd.Parameters.Append cmd.CreateParameter("@cv", adVarChar, adParamInput, 50, codigoAbuscar)
  27. cmd.Parameters.Append cmd.CreateParameter("@estado", adVarChar, adParamInput, 1, Combo1.Text)
  28. cmd.Parameters.Refresh
  29.  
  30. With rst
  31.    .CursorLocation = adUseClient
  32.    .CursorType = adOpenStatic
  33.    .LockType = adLockOptimistic
  34. End With
  35.  
  36. rst.Open cmd, , adOpenStatic, adLockOptimistic (aqui me salta el error)
  37.  

Desde ya Gracias ¡!!
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines