Nunca me paso. Pero... el SP tiene el SET NOCOUNT ON/OFF (segun corresponda)? <span style="font-weight:bold;">Sebastian Gambolati</span>
----- Mensaje original ---- De: "[EMAIL PROTECTED]" <[EMAIL PROTECTED]> Para: vbusers List Member <[email protected]> Enviado: martes 5 de febrero de 2008, 12:23:47 Asunto: [vbusers] Error_con_ADO 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<[email protected]> 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<[email protected]> 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 <[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 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 Los referentes más importantes en compra/ venta de autos se juntaron: Demotores y Yahoo! Ahora comprar o vender tu auto es más fácil. Vistá ar.autos.yahoo.com/
