[vbusers] Error con ADO

[hectordanielcorrea]

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