Modificar la base de datos usada.

[Meridano]

Gracias por vuestra rapidez e interes.
Realmente lo que estoy buscando es poder cambiar la base de datos que utiliza el programa sin tener que recompilar y hacer cambios en el ejecutable.

Es decir que si hoy quiero utilizar los datos de la base c:\ruta\base1.gdb pueda usarla, y si mañana quiero utilizar la base d:\xxx\base5.gdb pueda modificar el ini (o cualquier otro sitio de donde la tome) y si dentro de un mes 'me apetece' tomarla de otro sitio que pueda definirlo y tomarla de ese sitio que a priori no conozco.

Dicho de otra manera, lo que quiero es poder indicar la base de datos a mi antojo sin tener que recompilar el ejecutable (obviamente las bases tendrán la misma estructura, solo cambiarán los datos (información) almacenada).

Siento marearos tanto, los ejemplos anteriores eran para tratar de facilitar las cosas, pero veo que no cumplieron su cometido.

A riesgo de ser pesado voy a repetirlo otra vez:


Tengo una aplicación que accede a una base de datos firebird, mediante un alias, que está en la ruta c:\ruta\base1.gdb. Mi objetivo es poder utilizar otra base de datos con la misma estructura, pero con diferentes datos, situada en otra ubicación, sin tener que modificar el código y tener que recompilar nuevamente. La nueva ruta se puede obtener de un archivo ini, que si fuese necesario por seguridad podría estar con la información encriptada para que no sea legible a gente con malas intenciones.


El por qué de esta paranoia, pues realmente no lo sé, puede ser por si la base se hace muy grande reemplazarla por otra y poder volver a utilizar la vieja cambiando el ini, o tener una para cada año, indicando el año el nombre o cosas así.


Espero que me podáis ayudar y se me quite esta 'cosa' de la cabeza.

Reitero mi gratitud.

[Casimiro Notevi]

Entonces, según he entendido, no tienes que cambiar nada en tu programa, lo que tienes que hacer es cambiar el alias.
Mejor dicho, el valor del alias. Ejemplo, el alias tiene el valor: c:\datos\labasedatos.fdb y mañana montas un nuevo servidor, solamente debes cambiar el alias a: 192.168.1.100:/datos/labasedatos.fdb
Pero tu programa no cambia nada.

[Meridano]

Gracias Casimiro
Y como hago ese cambio mediante código.

[Casimiro Notevi]

Empezado por Meridano

Y como hago ese cambio mediante código.

¿Cómo haces el cambio a mano?

[[AgustinOrtu]]

Crea una utilidad externa que modifique el ini con el alias indicado. Luego lo encripta

Tu programa decodifica el ini, y luego lee el alias

Es decir tu programa siempre le hace caso al ini


// no tengo delphi a mano y no recuerdo si la sintaxis es exactamente asi

Código Delphi [-]
Database.Filename := IniFile.ReadString('Alias', EmptyStr);

Si el contenido del ini es

Alias = ASDASDSADSAD

Tu programa intentara (e imagino que fracasara) conectarse a eso

[ecfisa]

Hola Meridiano.

Empezado por Meridano

...
Es decir que si hoy quiero utilizar los datos de la base c:\ruta\base1.gdb pueda usarla, y si mañana quiero utilizar la base d:\xxx\base5.gdb pueda modificar el ini (o cualquier otro sitio de donde la tome) y si dentro de un mes 'me apetece' tomarla de otro sitio que pueda definirlo y tomarla de ese sitio que a priori no conozco.
...

De tu comentario anterior interpreto:

Código Delphi [-]
...
implementation

const
  // ruta a Firebird
  ALIASESPATH = 'C:\Program Files\Firebird\Firebird_2_5\aliases.conf';
  // alias que varia
  MUTANTALIAS = 'MUTANT=';
  MSGASK      = '¿ Desea reemplazar la base de datos ?';
  MSGERR      = 'Error al intentar conectar con la base de datos.';

procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenDialog1.FileName := '';
  OpenDialog1.Filter   := 'Firebird database | *.FDB';
end;

// cambiar base de datos
procedure TForm1.btChangeDBClick(Sender: TObject);
var
  TS : TStrings;
  i  : Integer;
begin
  if OpenDialog1.Execute then
  begin
    TS := TStringList.Create;
    try
      TS.LoadFromFile(ALIASESPATH);
      for i:= 0 to TS.Count-1 do
        if Copy(TS[i],1,Length(MUTANTALIAS)) = MUTANTALIAS then
        begin
          if MessageBox(0,PChar(MSGASK),'', MB_ICONQUESTION+MB_YESNO) = IDYES then
          begin
            TS[i] := MUTANTALIAS + OpenDialog1.FileName;
            TS.SaveToFile(ALIASESPATH);
          end;
          Exit;
        end;
    finally
      TS.Free;
    end;
  end;
end;

// abrir base de datos
procedure TForm1.btConectarClick(Sender: TObject);
var
  db: TIBDatabase;
begin
  db := IBDataBase1;
  if db.Connected then db.Close;
  db.DatabaseName := '\\SERVER_NAME\MUTANT'; // (SERVER_NAME = nombre del servidor)
  db.LoginPrompt  := False;
  db.Params.Clear;
  db.Params.Add('user_name=sysdba');
  db.Params.Add('password=a9g238fu'); // contraseña
  try
    db.Open;
  except
    raise Exception.Create(MSGERR);
  end;
  ShowMessage('¡ Conectado !');
end;

Está probado con IBX, pero con pequeñas adaptaciones a otros componentes, la funcionalidad es la misma.

Saludos

[Meridano]

Gracias Ecfisa.
Con tu código solucioné el problema.

Un saludo y gracias a todos por vuestra colaboración.