Enlazar base datos con distintos directorios en red

[ozsWizzard]

Constantes del formulario

Código Delphi [-]
const
   kCarpeta = 'DATOS';

Función para mostrar el formulario y devolver ruta completa de conexión

Código Delphi [-]
function TForm1.Mostrar(const Ruta: String): String;
var
   i, j: Integer;
   Nom: String;
begin
   ComboBox1.Clear;
   for i := 1 to 100 do
   begin
      Nom := kCarpera + IntTostr(i);
      if FileExists(Ruta + Nom) then
         j := ComboBox1.Items.Add(Nom);
   end;
   //Por defecto se marca la última campaña
   ComboBox1.ItemIndex := j;
   
   ShowModal;
   
   Result := Ruta + kCarpeta + IntToStr(ComboBox1.ItemIndex);

En el archivo ini separaría la ruta del nombre de la base de datos

Código Delphi [-]
path="192.168.1.88:C:\ProyectoMaestro\"
nom= "MAESTRO.IB"

Create del DataModule

Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var
     Ruta, Nombre, BaseDeDatos: String;
     ElIniFile: TIniFile;
     f: TForm1;
begin
   // Obtiene la ruta y el nombre de la base de datos
   ElIniFile := TIniFile.Create(ExtractFilePath(Application.exename)+'BDatos.ini');
   Ruta := ElIniFile.ReadString('BD','Path','');
   Nombre := ElIniFile.ReadString('BD','Nom','');

   f := TForm1.Create(Self);
   try
      BaseDeDatos := f.Mostrar(Ruta) + '\' + Nombre;
   finally
      f.Free;
   end;
   If BasedeDatos = '' then
      ShowMessage('Error al cargar Base de Datos') 
   else begin
      ibdatabase1.Connected:=false;
      ibdatabase1.DatabaseName:=BasedeDatos;   // BaseGeneral es el TIbDatabase y le asigno la ruta de la base de datos segun .ini
      ibdatabase1.Connected:=true;
   end;

[ozsWizzard]

¡Ostras!, se me acaba de venir un error a la cabeza, lo primero es que faltaría sumarle 1 al itemIndex de la última línea de la función Mostrar y ni por esas está bien, eso sería asumiendo que existen todos los años desde el 2000, pero no es así.

Tal y como está ahora, lo mejor es sutituir por ComboBox1.Text.

Código Delphi [-]
function TForm1.Mostrar(const Ruta: String): String;
var
   i, j: Integer;
   Nom: String;
begin
   ComboBox1.Clear;
   for i := 1 to 100 do
    begin
      Nom := kCarpera + IntTostr(i);
      if FileExists(Ruta + Nom) then
         j := ComboBox1.Items.Add(Nom);
   end;
   //Por defecto se marca la última campaña
    ComboBox1.ItemIndex := j;
   
   ShowModal;
   
   Result := Ruta + ComboBox1.Text;
end;

El error es por empezar con una solución y acabar con otra... quería mostrar en el combobox "campaña 20XX" y me lié.

Para hacerlo de esta segunda forma, mejor sería hacer un array simultáneo al combobox y un procedimiento AddCampana:

Variables globales al formulario

Código Delphi [-]
var
   ArrOfString: Array of string;

Procedimiento AddCampana

Código Delphi [-]
procedure TForm1.AddCampana(const Eje: Integer);
var
   j: Integer;
  Dat, Cam: String;
begin
   Dat := kCarpeta + IntTostr(Eje);
   Cam := 'Campaña 20' + IntTostr(Eje);
   j := ComboBox1.Items.Add(Cam);
   SetLeng(ArrOfString, ComboBox1.Items.Count);
   ArrOfString[j] := Dat; 
end;

Nuevamente la función Mostrar

Código Delphi [-]
function TForm1.Mostrar(const Ruta: String): String;
var
   i: Integer;
begin
   ComboBox1.Clear;
   for i := 1 to 100 do
       if FileExists(Ruta + Nom) then
         AddCampana(i);
   //Por defecto se marca la última campaña
    ComboBox1.ItemIndex := j;
   
   ShowModal;
   
   Result := Ruta + ArrOfString[ComboBox1.ItemIndex];
end;

Saludos.

[ginesgomezlopez]

Al final he hecho un híbrido a lo que me habéis dicho, he creado un Combobox en el Formulario Principial donde están los distintos ejercicios, 12,13,14...., al ejecutar el programa por primera vez coge el ejercicio que hay en el combobox


Código Delphi [-] procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var
BaseDeDatos: String;
ElIniFile: TIniFile;
ejercicio:string;
begin
// Obtiene la ruta y el nombre de la base de datos
ElIniFile := TIniFile.Create(ExtractFilePath(Application.exename)+'BDatos.ini');
BasedeDatos := ElIniFile.ReadString('BD','Path','');
If BasedeDatos = '' then
// ShowMessage('Error al cargar Base de Datos') else
ibdatabase1.Connected:=false;
ejercicio:=FormPrincipal.Combobox1.text;
BaseDeDatos:=BaseDeDatos+'Datos'+ejercicio;
ibdatabase1.DatabaseName:=BasedeDatos+'\Maestro.ib'; // BaseGeneral es el TIbDatabase y le asigno la ruta de la base de datos segun .ini
ibdatabase1.Connected:=true;
end;




y luego al cambiar el Combobox de ejercicio he hecho lo siguiente:


Código Delphi [-]procedure TFormPrincipal.ComboBox1Change(Sender: TObject);
Var
BaseDeDatos: String;
ElIniFile: TIniFile;
ejercicio:string;
begin
// Obtiene la ruta y el nombre de la base de datos
dat.DataModule1.IBDatabase1.Connected:=false;
ElIniFile := TIniFile.Create(ExtractFilePath(Application.exename)+'BDatos.ini');
BasedeDatos := ElIniFile.ReadString('BD','Path','');
If BasedeDatos = '' then
// ShowMessage('Error al cargar Base de Datos') else
dat.DataModule1.IBDatabase1.Connected:=false;
ejercicio:=FormPrincipal.Combobox1.text;
BaseDeDatos:=BaseDeDatos+'Datos'+ejercicio;
dat.DataModule1.IBDatabase1.DatabaseName:=BasedeDatos+'\Maestro.ib'; // BaseGeneral es el TIbDatabase y le asigno la ruta de la base de datos segun .ini
dat.DataModule1.IBDatabase1.Connected:=true;
end;





Falta mejorar algunos detalles, pero funciona bien, espero que sea estable en el tiempo que esa es otra

Gracias por vuestra ayuda.