Enlazar base datos con distintos directorios en red

[marcoszorrilla]

Yo hago esto:

Código Delphi [-]
procedure TfrMenu.Ejercicio1Click(Sender: TObject);
var
cServidor:String;
begin
cServidor:='\\servidor\d:\_servidor_ficheros\datosfb\';

Application.CreateForm(TfrCambejer, frCambEjer);
frCambEjer.ShowModal;

  if nOpcion = 1 then
  begin
  DmConex.IBDatabase.Connected:=False;
  cServidor:=cServidor+cDBfb;
  DmConex.IBDatabase.DatabaseName:=cServidor;
  DmConex.IBDatabase.Connected:=True;
  DmConex.IBDtsUsuarios.Open;
  DmConex.IBDtsConf.Open;
  end
  else
  ShowMessage('Atención:Cambio de Ejercicio cancelado por el usuario.');

  Pon_Rotulo_Pantalla();
end;


procedure TfrCambejer.FormCreate(Sender: TObject);
begin
aEjer[00]:='bdatos2006.fdb';
aEjer[01]:='bdatos2007.fdb';
aEjer[02]:='bdatos2008.fdb';
aEjer[03]:='bdatos2009.fdb';
aEjer[04]:='bdatos2010.fdb';
aEjer[05]:='bdatos2011.fdb';
end;


procedure TfrCambejer.BtAceptarClick(Sender: TObject);
begin
cDBfb:=aEjer[rdgEjer.ItemIndex];
nOpcion:=1;
Close;
end;

Un Saludo.