RE:Coneccion a & Firebird
Hay varias formas de acceder a una base de datos Firebird: ODBC (para usar los componentes comunes), o de forma directa, lo cual puedes hacer con IBObjects, dbExpress, Zeos Components. te dejo un ejemplo con dbExpress
sServer: es el servidor, puede ser una IP, un dominio, el nombre de una pc
sDatabase: es la ruta en que se encuentra la base de datos
sUser: usuario de la bd, normalmente SYSDBA
sPass: password del usuario: normalmente MASTERKEY
sqlBase: es un componente TSqlConnection, de dbExpress
function ConectaBD(sServer, sDatabase, sUser, sPass: String):boolean;
var
bRegreso : boolean;
begin
bRegreso := true;
sqlBase.Connected := false;
sqlBase.Params.Clear;
sqlBase.DriverName := 'Interbase';
sqlBase.ConnectionName := 'Ventas';//Este valor lo puedes modificar
sqlBase.Params.Values['Database'] := sServer + ':' + sDatabase;
sqlBase.Params.Values['User_Name'] := sUser;
sqlBase.Params.Values['Password'] := sPass;
sqlBase.Params.Values['SQLDialect'] := '3';
sqlBase.Params.Values['Protocol'] := 'TCP/IP';
sqlBase.Params.Values['BlobSize'] := '-1';
sqlBase.Params.Values['CommitRetain'] := 'False';
sqlBase.Params.Values['Interbase TransIsolation'] := 'ReadCommited';
sqlBase.Params.Values['WaitOnLocks'] := 'True';
sqlBase.Params.Values['EnableBCD'] := '0';
try
sqlBase.Connected := true;
except
bRegreso := false;
end;
Result := bRegreso;
end;
Si esta funcion te regresa true, la conexión fue exitosa, y puedes acceder los datos con las tablas o querys de dbExpress.
Suerte