Ver Mensaje Individual
  #9  
Antiguo 18-10-2011
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 19
Chris Va por buen camino
Manuel, hay varios códigos de error que pueden indicar un problema con la conexión a la base de datos. Ya sea que ésta no esté disponible, porque no exista el archivo o que halla sido dañada. Un ejemplo para manejar estos casos sería:

Código Delphi [-]
try
    with IBDatabase1 do
    begin
        DatabaseName := '192.168.1.100:c:\datos\datos.gbd';
        Open;
    end;
except
    on E: EIBError do
        case E.IBErrorCode of
            336723983, // gsec_cant_open_db (Unable to open database)
            336920605: // gstat_open_err (Can't open database file)
            begin
                // el archivo de la base de datos no existe o
                // no está disponible para el servicio de Firebird.
                
                // TU CÓDIGO ACÁ
            end;
            
            335544335, // db_corrupt (Database file appears corrupt)
            335544404, // corrupt (Database corrupted)
            335544415: // badrelation (Database corrupted)
            begin
                // hay un error interno en la base de datos. Puede ser
                // que el archivo .gdb o .fdb esté dañado.
                
                // TU CÓDIGO ACÁ
            end;
        end;
end;

Saludos,
Chris
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita