Ver Mensaje Individual
  #6  
Antiguo 05-02-2009
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 19.439
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Pues vendías a ser algo así:

Código Delphi [-]
var
  IBDB      :TIBDataBase;
begin
  // Objeto TIBDataBase
  IBDB := TIBDataBase.Create(nil);
  // Servidor
  case Self.NetworkProtocol of
    npNETBEUI : DBName := '\\' + Self.ServerName + '\' + Self.DataBaseName;
    npSPX     : DBName := Self.ServerName + '@' + Self.DataBaseName;
    // Se asume TCPIP
    else        
      DBName := Self.ServerName + ':' + Self.DataBaseName;
  end;
  // La ruta incluyendo servidor
  IBDB.DatabaseName := DBName;
  // Parámetros de conexion
  IBDB.params.Add('user ' + '''' + Self.UserName + '''');
  IBDB.params.Add('password ' + '''' + Self.Password + '''');
  IBDB.SQLDialect := 1;

  // Conectar
  ...

Es un código antiguo que tenía por ahí hace mucho tiempo, te puede servir de guía. En cuanto a TIBTransaction, es mucho más sencillo, puesto el número de propiedades a asignar es mucho menor.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita