skift af databaser

Fra ini-filen extrakter du xxx.db navnet det angiver du som DataBaseNavn  i din datasource komponent. Start med ikke noget navn, og navngiv først når du får brug for navnet.

Til det behøver du ikke at lave nogen opsætning i BDE.
Læs bibliotek/filnavn fra ini-fil (afhængig af bruger).
I TTable Databasename angiver du 'C:\bla\bla' og i TableName angives 'xxx.db'.
Så kan du åbne TTable.

Hvis du har mange DB´er ville det måske være lettere at knytte et Alias til dine tabeller, så skal du kun ændre på et alias når der skiftes database. Jeg kan komme med noget kode hvis du tror det er noget du kan bruge.

Du bruger ordet databaser forkert. Databasen er det overordnede navn for en bunke af tabeller (i paradox *.db filerne). Hver bruger der logger ind har altså hver sin tabel (sikke dog en skod måde at lave det på).

Hvis du vil skifte mellem brugernes tabeller, så kan du bruge TSession komponenten. Den indeholder oplysninger om de alias'er der er defineret på pc'en. Har man valgt et, så finder den listen af tabeller som du så kan fodre din TTable med.

Hvis du ikke har lavet alias'er i BDEADMIN så må du ud i kataloget og lave en søgning på tabellerne; noget med findfirst, findnext og findclose.

Men som sagt - umiddelbart en helt forkert måde at lave det på.

Her et udsnit af noget gammelt gammelt kode (Bemærk, at cbAlias, cbTable, cbIndex alle er TComboBoxe med en metode koblet på OnChange eventen)

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  Session.GetAliasNames(cbAlias.Items);
end;

procedure TfrmMain.cbAliasChange(Sender: TObject);

  procedure GetTables(aAlias : string; aList : TStrings);
  begin
    Session.GetTableNames(aAlias,'*.db',False,False,aList);
  end;

begin
  with TableDB do begin
    if Active then
      Close; // Don't open table cos' no table is yet selected

    try
      DataBaseName := cbAlias.Text;
      TableName := '';
      cbTable.Items.Clear;
      cbTable.ItemIndex := -1;
      GetTables(DataBaseName,cbTable.Items);
    except
      on E: Exception do begin
        MessageDlg(e.message,mtError,[mbOk],0);
        cbAlias.ItemIndex := -1;
        cbTable.ItemIndex := -1;
        cbIndex.ItemIndex := -1;
      end;
    end; // except
  end; // with
end;

procedure TfrmMain.cbTableChange(Sender: TObject);
var
  i : integer;
begin
  with TableDB do begin
    if Active then
      Close;
    fInitialize := true;
    try
      IndexName := '';
      TableName := cbTable.Text;
    finally
      cbIndex.Clear;
      cbIndex.Hint := '';
      Open;
      TableDB.IndexDefs.Update;
      for i := 0 to TableDB.IndexDefs.Count - 1 do
        cbIndex.Items.Add(TableDB.IndexDefs[i].Name);
      fInitialize := false;
      ShowRecCount;
    end; // try
  end; { with }
end;

procedure TfrmMain.cbIndexChange(Sender: TObject);
var
  i : integer;
  bFound : boolean;
begin
  with TableDB do begin
    if Active then
      Close;
    fInitialize := true;
    try
      IndexName := cbIndex.Text;
      cbIndex.Hint := '';
      i := -1; bFound := false;
      while (i < IndexDefs.Count - 1) and not bFound do begin
        inc(i);
        bFound := (IndexDefs[i].Name = cbIndex.Text);
      end; // while
      if bFound then
        cbIndex.Hint := IndexDefs[i].FieldExpression;
    finally
      Open;
      fInitialize := false;
      ShowRecCount;
    end; // try
  end; // with
end;