La Web del Programador: Comunidad de Programadores
 
    Pregunta:  54648 - TESTEANDO CONEXIÓN A BD ORACLE DESDE VB
Autor:  Renato Tenorio
Hola a todos, quisiera saber si alguien ha programado una rutina en Visual Basic para saber a cada momento (transparente al usuario) si la conexión a la base de datos Oracle está activa o inactiva (osea si alguien sacó el cable, si se cayó el router, si se apagó el servidor, etc).
Muchas Gracias

  Respuesta:  Gabriel Fernandez
Estimado, yo lo hice pero no con oracle sino con informix, igual es lo mismo.
Crea una tabla fantasma.
Conexion(atrib) y hacemos un insert cualquiera "insert into conexion values 'pepe';"

Creamos un Timer, lo ajustamos segun el gusto y le hacemos que corra un sql cualquiera

sql="select * from conexion"

Si nos da error entonces no hay conexion, si devuelve algo, hay conexion. Simple

quedaria un codigo asi adentro del timer

on error go to SinCon
sql="select * from conexion"
set RS=coneccion.execute (SQL) 'forma de obtener datos (no te guies por ella)
exit sub
SinCon:
msgbox "No hay Conexion"
end sub

Aca lo que hace es hacer el sql, ejecutarlo y resivir datos. Si todo anda, hay conexion, si hay un error, aparece el cartel "No hay Conexion"

Cualquier cosa me avisas, un saludo