Modificar la base de datos usada.

[Meridano]

Gracias por responder.
El problema es que no puedo crear varios alias por adelantado, porque no se el nombre de las bases de datos que se van a utilizar, mi idea era crear un alias con una base de datos y luego mediante código modificar la base de datos a la que apunta el alias.

AgustinOrtu: No puedo meter el alias en el ini, porque estan creados los alias de antemano (solo tengo 1 con la base de prueba, que luego quiero cambiar a la que tenga que usar cada uno)

El problema que tengo es que no se que código utilizar para modificar la base de datos a la que apunta el Alias.

Puede que como dice ecfisa pueda modificar el archivo aliases.conf para indicar alli las nuevas rutas. Investigaré esto.

Muchas gracias.

[Casimiro Notevi]

Recordar que la función principal de los alias es que los usuarios no sepan la ruta real de la base de datos.
Si estos la conocen, es un gran agujero de seguridad para acceder a ella.
Al menos, así debería ser tratado.

[Meridano]

Gracias Casimiro, en realidad los usuarios no verían la base de datos, es decir no se les pedirá introducir la base de datos, sino que en función de su nombre, numero de identidad, u otra información única accederían a una base de datos u otra, por lo que no quedaría al descubierto la ubicación y nombre de la base de datos.

Tu (u otra persona, claro) me podrías explicar, o indicarme un sitio donde lo hagan, como conectar una base de datos firebird con un control TDataBase sin utilizar los alias y por medio de código, yo lo he probado todo lo que se me ocurría y no conseguí nada.

Muchas gracias por los comentarios y las ayudas.

[[AgustinOrtu]]

Pero entonces estarias trabajando a priori con dos bases:

1) Base de autenticacion por llamarlo de una manera. En este paso identificas cual es el alias que le tenes que dar al usuario en cuestion. Es decir que esta base conoce a todos los usuarios y la base real que usa cada uno

2) Base real; con la que se va a trabajar

Decime si estoy encaminado porque no te entendi muy bien

[Casimiro Notevi]

Pregunto lo mismo que AgustinOrtu.

[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.

[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