Hola, espero que seas lo que buscas:
procedure TForm1.ConectaIBDb();
begin
IB.LoginPrompt := FALSE;
IB.DataBaseName := 'IBServer:c:\Ruta\BaseIB.gdb';;
IB.Params.add( 'user_name=' + xUSERNAME );
IB.Params.add( 'password =' + xPASSWORD );
IB.Connected := TRUE;
end;
__________________
Alberto C.
|