Saber si estoy conectado a Base de Datos

[mario_2000]

Buenas tardes

Tengo un sistema de facturación, desarrollado en Delphi 7 con conexion a Firebird 2.1

Necesito verificar, antes que se imprima o se guarde una factura, si tengo conexion con la base de datos.

Les agradezco mucho la ayuda.

A todos feliz navidad y prospero año nuevo.

[[Delphius]]

Hola mario_2000,
¿Y que componentes usas para acceder a la base de datos?
Dependiendo de los componentes se hará de una u otra manera.

Aunque, no es de extrañarse que la gran mayoría (por no decir todos) cuenten con la propiedad Conected para determinar si está conectado.

Saludos,

[[duilioisola]]

Otra forma es hacer un select de algo. Si no funciona, no estás conectado:

Código Delphi [-]
EstoyConectado := False; {inicializo}
try
   {genero un query}
   Query.Close;
   Query.SQL.Text := 'SELECT FIRST 1 ID FROM TABLA';
   Query.ExecQuery;
   {Se realizo con exito}
   EstoyConectado := True;
except
   {Fallo}
   EstoyConectado := False;
end;

[Faust]

Desde los objetos Database, como TADODatabase y TDatabase puedes consultar la propiedad Connected, y en objetos Table y Query la propiedad Active.

Un detalle amigo Duilioisola... cuando en un query ejecutas un SQL que te devuelve un conjunto de datos (p. ej. un SELECT), lo debes ejecutar con Open y cuando el SQL no te devuelve un conjunto de datos (p. ej. INSERT o UPDATE), lo debes ejecutar con ExecSQL. ExecQuery es de TIBSQL y no tiene interfaz para controles DBAware.

Saludos