Delphi-Quellcode:
// den folgenden Teil verstehe ich garnicht
// if ADOconnection1.Connected=true then
// ADOconnection1.GetTableNames(combobox1.Items,false);
// y:=combobox1.Items.count;
// for i := 0 to y-1 do begin
// tab:=TMenuItem.create(MainMenu1);
// MainMenu1.items[2].add(tab);
// tab.caption:=combobox1.items[i];
// tab.tag:=i;
// tab.OnClick:=erra1click; // Rekursion?
// end;
Wenn ich mich richtig erinnere gibt es bei
ado eine Standardfunktion um die Tabellen zu erhalten "GetTableNames". Damit bastelt er jetzt die Combobox und das Hauptmenue zusammen.
Gruß
K-H
P.S.
ich empfehle in solchen Fällen immer die Abfrage der entsprechenden System-Views oder Aliasse z.B. ALL_TABLES in Oracle
http://www.java2s.com/Tutorial/Oracl...Dictionary.htm