注册 登录
编程论坛 Delphi论坛

[求助]TreeView用法的問題

subway0592 发布于 2007-01-24 15:16, 809 次点击

請問如果想將某數據庫中的所有表的表面做為TreeView的同級項添加到TreeView裡,即:當數據庫打開時,就在TreeView裡列列出表名來,那要怎麼做啊?

6 回复
#2
nongen2007-01-24 15:37
var i:integer;
begin
treeview1.Items.Clear;
adoconnection1.Open;
adotable1.Open;
for i:=1 to adotable1.FieldCount do
treeview1.Items.Add(treeview1.TopItem,adotable1.Fields[i-1].FieldName)
end;
#3
subway05922007-01-29 13:36
謝謝
#4
subway05922007-01-30 10:18
不對啊,我是要將數據庫中所有表名列出來,不是將某表的字段名列出來啊 
#5
nongen2007-01-31 09:06

哪种数据库?

#6
subway05922007-01-31 17:50

用ACCESS或SQL SERVER 2000兩種都說一下吧,謝謝

#7
nongen2007-02-02 15:45
access没注意过,我机器也没装,不知道。
mssql就是将系统表sysobjects里面xtype值 为U的列出来就成了。
SELECT * FROM sysobjects WHERE (xtype = 'u')
1