Tabellenblatt in Dialog auswählen

[ksh]

Hey!

Bisheriger Stand:
Lese meine Tabelle bisher so ein:
Eingabe.ADOQuery.SQL.Text := 'SELECT * FROM Eingangsdaten2005'; Jetzt wärs aber ja ganz nützlich, den Namen des Tabellenblattes nicht immer im Quellcode ändern zu müssen.
Wollte das so realisieren:
Dialogfenster, wo alle Tabellenblätter angezeigt werden und der Anwender durch Anklicken des gewünschten Blattes dieses öffnen kann bzw. das dann eingelesen wird.

Leider habe ich keine Ahnung, ob das geht und wenn ja, wie. Bisher leider auch nix im Netz gefunden.

[marabu]

Hallo.

Der SQL.Text ist doch ein String. Angenommen du hast die verfügbaren Tabellennamen in einer ListBox, dann geht sowas:

Delphi-Quellcode:

const
  FMT_SELECT = 'SELECT * FROM %s';

begin
  // ...
  with TabellenListBox do
    Eingabe.ADOQuery.SQL.Text := Format(FMT_SELECT, [Items[ItemIndex]]);
  Eingabe.ADOQuery.Open;
  // ...
end;

Grüße vom marabu

[ksh]

aber wie bekomme ich die Tabellennamen? Ich will ja nicht von vorneherein alles festlegen und bestimmte Abfragen machen... Das ist eben der Haken - ich greife ja bisher auf diese eine explizite zu, aber wie geht das allgemein?

Einen Dialog und eine Listbox sind das wenigste Problem.

[marabu]

Da gibt es verschiedene Möglichkeiten. Für dich ist wahrscheinlich die Methode GetTableNames() der ADOConnection geeignet.

marabu

[ksh]

Danke! Das hat mir gefehlt! Werde jetzt mal ausprobieren.