Cita:
Empezado por maeyanes
Prueba con algo como:
Código Delphi [-]
function CanConnect(Database: TIBDatabase): Boolean;
begin
try
Database.Connect;
Result := True;
Database.Disconnect
except
Result := False
end
end;
No especificas que componentes usas para conectarte, así que puse el ejemplo con los IBX...
Saludos...
|
Sorry.. los estoy realizando con los IBX...
tube los sgtes problemas...
peres
Database.Connected
perro el Disconnect no funca...
ahora, igual encontre la sgte fucción...
Database.TestConnected
y la realizo de la sgte forma... claro que con mas código...
Código Delphi
[-]
If Datos.IBD_Compras.TestConnected = True Then ShowMessage('Funciona Ok');
maeyanes, igual gracias.. me alumbrastes la ampolleta...