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

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;

謝謝

不對啊，我是要將數據庫中所有表名列出來，不是將某表的字段名列出來啊　

哪种数据库？

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

access没注意过，我机器也没装，不知道。
mssql就是将系统表sysobjects里面xtype值 为U的列出来就成了。
SELECT * FROM sysobjects WHERE (xtype = 'u')