Forum: Datenbanken
Delphi
by Gehstock,
14. Sep 2007
war unterdessen selber draufgekommen
Procedure OpenDB;
var
i: integer;
tnodes : TTreeNodes;
node,Eintrag : TTreeNode;
begin
tnodes := frmmain.TreeView1.Items;
Forum: Datenbanken
Delphi
by Gehstock,
13. Sep 2007
Procedure OpenDB;
var
i: integer;
tnodes : TTreeNodes;
node : TTreeNode;
begin
tnodes := frmmain.TreeView1.Items;
frmmain.ADOConnection1.GetTableNames(st,False);
frmmain.TreeView1.Items.Clear;
for i:=0 to st.Count - 1 do
Forum: Datenbanken
Delphi
by Gehstock,
11. Sep 2007
Procedure OpenDB;
var
i: integer;
node:Tnode;
tnodes:TTreenodes
begin
tnodes := frmmain.TreeView1.Items;
frmmain.ADOConnection1.GetTableNames(st,False);
//frmmain.TreeView1.Items.Clear;
for i:=0 to st.Count - 1 do begin