Ver Mensaje Individual
  #2  
Antiguo 31-07-2003
Avatar de guillotmarc
guillotmarc guillotmarc is offline
Miembro
 
Registrado: may 2003
Ubicación: Huelva
Posts: 2.638
Reputación: 23
guillotmarc Va por buen camino
Hola.

Pón un código de este estilo en el evento BeforeConnect del IBDataBase :

Código:
procedure TForm1.IBDatabase1BeforeConnect(Sender: TObject);
begin
  (Sender As TIBDatabase).DatabaseName := '190.190.0.220:c:\proyecto\bd\datos.gdb';
end;
Normalmente lo que hago es guardar la cadena de conexión en un archivo .ini. De forma que para especificar la ruta solo hay que configurarlo en el archivo. De esta forma el evento queda (lee la ruta en la Clave BaseDeDatos del archivo Config.ini que está en la misma carpeta que la aplicación) :

Código:
procedure TForm1.IBDatabase1BeforeConnect(Sender: TObject);
var Config: TStringList;
begin
  Config := TSTringList.Create;
  Config.LoadFromFile(ExtractFilePath(Application.ExeName) + 'Config.ini');
  (Sender As TIBDatabase).DatabaseName := Config.Values['BaseDeDatos'];
  Config.Free;
end;
Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no).
Responder Con Cita