Forum: Datenbanken
Delphi
by Gehstock,
7. Sep 2007
Procedure OpenDB;
var
st: TStringList;
i: integer;
tnodes : TTreeNodes;
node : TTreeNode;
begin
tnodes := frmmain.TreeView1.Items;
st:=TStringList.Create;
frmmain.ADOConnection1.GetTableNames(st,False);
Forum: Datenbanken
Delphi
by Gehstock,
7. Sep 2007
procedure TfrmMain.Button1Click(Sender: TObject);
var
st: TStringList;
i: integer;
begin
st:=TStringList.Create;
ADOConnection1.GetTableNames(st,False);
TreeView1.Items.Clear;
for i:=0 to st.Count - 1 do begin
TreeView1.Items.Add(nil,st.Strings);
Forum: Datenbanken
Delphi
by Gehstock,
7. Sep 2007
da ist der wurm drin
ButtonOpen.Caption:=inttostr(st.count) bringt selben fehler