Sehr geehrter Community.
Ich habe mal wieder ein Problem.
Und zwar :
Wir sollen aus einer combo box und aus dem MainMenü die Tabellen in einem
Db Grid anzeigen lassen.
Dabei hab ich pbers main Menü die Tabellen aktiviert.
Da ich grad nicht an den pc komme, daher die Frage:
Wie kann man die Tabellen aus der combobox + MainMenü in diese dbgrid öffnen?
Per Click.
Ich Frage deshalb, weil wir sollen sowas erstellen, aber ich wüsste nicht wie.
Für die Erstellung des Unterpunktes der Tabellen aus der Combobox.
Delphi-Quellcode:
procedure TForm2.erra1Click(Sender: TObject);
var tab:TMenuItem;
i:integer;
begin
MainMenu1.items[2].clear;
combobox1.items.Clear;
ADOtable1.active:=true;
ADOConnection1.connected:=true;
ADOConnection2.connected:=false;
ADOConnection3.connected:=false;
ADOQuery1.Connection:=ADOconnection1;
DBGrid1.DataSource.DataSet:=Adotable1;
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;
Der Code funktioniert.. nur wie mache ich das jetzt, dass es in der DBGrid der Inhalt einer Tableunterpunktes angezeigt wird?
Ich würde mich über eure Hilfe freuen.
Mit freundlichen Grüßen
Justin