Cita:
Empezado por oesqueda
Paso una funcion para que revises si esta conectado tu TADOConnection.
Código Delphi [-]Function ConectarDB(var AMsg:string):boolean; begin try ADOConnection.CLOSE; ADOConnection.connectionstring = 'CADENA DE CONEXION'; ADOConnection.OPEN; AMsg := ''; except on e: exception do AMsg := e.message; end; result := ADOConnection.Connected; end;
Pasas la variable AMSG y ahi obtienes el mensaje en caso de no conectarse.
|
Esta buena esta funciona... tambien me sirve...
Salu2