Ver Mensaje Individual
  #5  
Antiguo 05-06-2012
MartinS MartinS is offline
Miembro
NULL
 
Registrado: nov 2011
Ubicación: Villa Cacique - Argentina
Posts: 283
Reputación: 15
MartinS Va por buen camino
Hola: Bueno, ahi te adjunto la imagen de la configuración del componente TIbDatabase.
Otra configuracion que hago es mediante un archivo .ini que coloco junto al ejecutable donde coloco la direccion que tiene la base de datos. El contenido del archivo Bdatos.Ini es el siguiente:

Cita:
[BD]
Path=":C:\Desarrollos\RegistroGeneral\MASTERBASE.FDB"
Esto es para el .ini si la base esta en la misma pc (observa los : antes de C - No se si es igual para interbase)

y para el caso que quiera ejecutar el programa desde otra PC: Copio el ejecutable y el ini en esa pc y lo edito asi:

Cita:
[BD]
Path="xxx.xxx.xxx.xxx:C:\Desarrollos\RegistroGeneral\MASTERBASE.FDB"
Donde xxx.xxx.xxx.xxx es la direccion de IP donde se encuentra la base de datos junto con la direccion del archivo en la Pc (Directorio).
Dado que podes editar el .ini de acuerdo a la ubicación física de la base de datos no tendrias inconvenientes en llevar esa base y ponerla donde tu desees.

el codigo para leer el .ini es el siguiente y lo tengo en el evento OnCreate del DataModule


Código Delphi [-]

Uses IniFiles;

procedure TDm.DataModuleCreate(Sender: TObject);
Var BaseDeDatos: String;
    IniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'BDatos.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then
    ShowMessage('Error al cargar Base de Datos') else
    BaseGeneral.DatabaseName := BaseDeDatos;   // BaseGeneral es el TIbDatabase y le asigno la ruta de la base de datos segun .ini
end;

Acordate de los servicios de Firebird o Interbase que deben estar ejecutandose.-

Saludos.-

Última edición por MartinS fecha: 25-07-2012 a las 01:04:54.
Responder Con Cita