[vbusers] Error_con_ADO

[hectordanielcorrea]

Agrego algo... la ventana que aparece en el momento de F8 contra comando.execute es T-SQL Debugger "sends the result set to trh output window" y ahi se me cuelga el programa compilado a exe o se me cierra el IDE de VB6 con el famoso aviso de "Se detectó un problema.... desea Enviar... etc. etc." Aguna idea? Héctor Daniel Correa -- Mensaje Original -- Enviado por: <[EMAIL PROTECTED]> Fecha:05/02/2008 9:15:48 Para: vbusers List Member<vbusers@mug.org.ar> Título: [vbusers]_RE:__Error_con_ADO Probé cada uno de los string que supuestamente genera el código en el QA y funciona a la perfección... Tendría que probar el boluejemplo, pero me parece demasiado tener que hacer algo con todo el quilombo de conexiones que hay aquí (el soft no lo programé yo), para ver porque m.... no funciona. Sospecho q son las fechas, sin embargo, insisto, el string final funciona bien y el SP con sus parámetros me los acepta... Alguna idea? Héctor Daniel Correa -- Mensaje Original -- Enviado por: Sebastian Ariel Gambolati <[EMAIL PROTECTED]> Fecha:04/02/2008 19:16:48 Para: vbusers List Member<vbusers@mug.org.ar> Título: [vbusers] Error con ADO 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 <vbusers@mug.org.ar> 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 Yahoo! Encuentros Ahora encontrar pareja es mucho más fácil, probá el nuevo Yahoo! Encuentros. Visitá http://yahoo.cupidovirtual.com/servlet/NewRegistration El mail recibido, fue verificado por el Servicio de Antivirus para mail de Fullzero y se encuentra libre de virus __________________________________________________ Internet gratis. Siempre. http://www.fullzero.com.ar __________________________________________________ Internet gratis. Siempre http://www.fullzero.com.ar