[vbusers] Error con ADO

Mon, 04 Feb 2008 13:18:07 -0800 

Dos cosas:
1) Si ejecutas el sp desde el QueryAnalaiser, la ejecucion te va bien? 
2) Si te haces un boluejemplo con unicamente un boton que ejecute ese SP, que 
onda? 
Sebastian Gambolati



----- Mensaje original ----
De: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>
Para: vbusers List Member <[email protected]>
Enviado: lunes 4 de febrero de 2008, 13:58:21
Asunto: [vbusers] Error con ADO


Buenas tardes listeros...

Tengo un problema q me está volviendo loco!!!

una rutina llamada crea un objeto Command de ADO

Creo los parametros (es un SP de SQL) y cuando lo ejecuto me cuelga el 
programa...

Si lo sigo con F8, cuando llego a la instruccion comando.execute me aparece una 
aviso que dice "sends de result set in the output window" y se cierra el IDE y 
todo lo demas (!?).

Probé la ejecución de todas las formas posible y no hay caso, lo peor... ES QUE 
EL SISTEMA TRABAJABA BIEN HASTA EL VIERNES, y hoy NO!!!!

El SP NO DEVUELVE NADA, solo hece unas comprobaciones en las tablas y carga una 
variable @resultado con un string o con nada, esta variable es OUTPUT.

 

Function ChequeoExistaProgramacion(Tipo As String, IDsenial As Long, _
sFechaInicio As String, sFechaFinal As String, Optional resultado As String) As 
Boolean

 Dim comando As ADODB.Command, ssql As String
 Dim parametro As ADODB.Parameter
 
 ChequeoExistaProgramacion = True
 
 On Error GoTo Bandera_error
 
 resultado = ""
 ssql = "Sp_ChequeoExistenciaProgramacion"
 Set comando = New Command
 Set parametro = New ADODB.Parameter
 With comando
    .ActiveConnection = DE.SQL
    .CommandText = ssql
    .CommandType = adCmdStoredProc
    
    Set parametro = comando.CreateParameter("@Tipo", adChar, adParamInput, 1)
    parametro.value = Tipo
    comando.Parameters.Append parametro
    
    Set parametro = comando.CreateParameter("@IDsenial", adInteger, 
adParamInput, 8)
    parametro.value = IDsenial
    comando.Parameters.Append parametro
 
    Set parametro = comando.CreateParameter("@FechaInicio", adDate, 
adParamInput, 8)
    parametro.value = sFechaInicio
    comando.Parameters.Append parametro
    
    Set parametro = comando.CreateParameter("@FechaFin", adDate, adParamInput, 
8)
    parametro.value = sFechaFinal
    comando.Parameters.Append parametro
    
    Set parametro = comando.CreateParameter("@resultado", adVarChar, 
adParamOutput, 1000)
    parametro.value = ""
    comando.Parameters.Append parametro
    
    .Execute <-- AQUÍ ME DA EL ERROR
 End With
   
 resultado = comando.Parameters("@resultado").value
 
 ChequeoExistaProgramacion = IIf(resultado = "", True, False)
 
 Set comando = Nothing
  
 Exit Function

Bandera_error:
 ChequeoExistaProgramacion = False
 resultado = resultado & "ERROR"
 Set comando = Nothing

End Function

Héctor Daniel Correa

__________________________________________________

Internet gratis. Siempre.
http://www.fullzero.com.ar






      Tarjeta de crédito Yahoo! de Banco Supervielle.
Solicitá tu nueva Tarjeta de crédito. De tu PC directo a tu casa. 
www.tuprimeratarjeta.com.ar

Responder a