Ver Mensaje Individual
  #2  
Antiguo 05-09-2010
Avatar de duilioisola
[duilioisola] duilioisola is online now
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.734
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Creo entender que quieres saber formas de conectar con Firebird desde cófigo.

Código Delphi [-]
procedure TDMMain.Conectar;
var
  oIni: TIniFile;
begin
  oIni := TIniFile.Create('MiPrograma.ini');
  with DBMain do //Con la base de datos
  begin
    // Si está conectada, la desconectamos
    if (DefaultTransaction.InTransaction) then
      DefaultTransaction.Commit;
    if Connected then
      Close;
    // Asignamos la base de datos del archivo ini
    DataBaseName := oIni.ReadString('Datos', 'BaseDeDatos', '');
    // Nombre de usuario y contraseña
    Params.Clear;
    Params.Add('user_name=SYSDBA');
    Params.Add('password=masterkey');
    // Abrimos la base de datos
    Open;
    // Abrimos la transacción principal
    DefaultTransaction.StartTransaction;
  end;
  oIni.Free;
end;
Responder Con Cita