Pasar del error en Vb 6

[rochadtk]

Hola maestros, tengo una aplicacion en Visual Basic 6 que consiste en un bucle que no para de buscar en una tabla de una base de datos SqlServer. A veces me da error al abrir la tabla "Tiempo de espera agotado" pulso F5 y continua sin problemas. Pero con el programa compilado e intalado en el equipo eso no lo puedo hacer. Como puedo remediar este problema?

Gracias

[RootK]

Porque no pones el codigo que tienes para echarle un ojo

Saludos

[rafapaskual]

Prueba a poner On error resume next al principio de la funcion.

Saludos.

[Alexis_m20]

en el objeto conexion pone esto arriba del oconn.open

oconn.commandTimeout = 3000


esto le da un tiempo de espera más largo a tu conexion

ojala te sirva

[rochadtk]

Gracias por vuestra ayuda, no he puesto el código porque es muy largo, aunque si quereis lo pongo para que le echeis un vistazo.

Voy a probar a aumentarle el tiempo y con el On Error Resume Next. Pero tengo una duda con el On Error. Si me da un error al abrir la tabla y he puesto el On Error Resume Next, pasará a la siguiente instrucción y no abrirá la tabla. Entonces el error seria otro al intentar consultar los datos de la tabla, ya que estaría cerrada.

Creo que la solución pasa por el On Error Resume Next, pero no tengo del todo claro como funciona. Por favor ayudarme.

Gracias de nuevo.

[Alexis_m20]

con eso lo debes poner asi

On Error Resume Next ' Atrapamos si hay algun error
'Aqui haces la conexion a tu tabla

if err then
msgbox "HUBO UN ERROR"
end
END IF

asi serie

[rochadtk]

Gracias Alexis, lo voy a probar. Esto es lo que estaba buscando, lo que pasa es que en la ayuda de Visual Basic 6 no veia claro como hacerlo.

Un Saludo.

[jlbarajas]

Hola rochadtk,

dos preguntas:

a) Estas utilizando ODBC ?
b) La consulta que estas haciendo a la base de datos esta filtrada, es decir, te estas trayendo solo los datos necesarios

Este error que tienes se presenta cuando utilizas ODBC, frecuentemente, y ademas se pudo haber bloqueado la base de datos, si otro usuario usa la misma paginacion de la tabla de sql server.

[pabli]

Hola,

hay muchos errores por los que puede saltar un timeout, por ejemplo que la red esté saturada. "On error resume next" está muy bien pero no sigue intentándolo. Prueba:

Sub abrir_tabla()

On Error Goto control_errores

--línea que abre la tabla
--resto de código


Exit Sub
control_errores:

if err.number= (nº de error de timeout) then
resume 'vuelve a ejecutar la misma instrucción que originó el error
'aquí puedes tener un contador para salir si lo ha intentado un nº de veces
else
'lo que quieras(salir, mensaje, etc)
end if
End Sub

Saludos
Pablo