送分题，如何取得一个表的所有字段名？

Question

Dim i As Integer
Dim RS As ADODB.Recordset
......For i = 0 To RS.Fields.Count - 1
    Combo.AddItem RS.Fields(i).Name
Next i

Answer 1

rs.open "select * from tb",cn
for i=0 to rs.fields.count-1
combo1.additem rs.fileds(i).name
next

Answer 2

用循环来历遍Fields.count，用Fields.name取得字段名。

Answer 3

用SQL语句连到你想要得到的所有字段的表中，
再用循环：
 For i = 0 To rs.Fields.Count - 1
 COMBOX.AddItemTRIM(rs.Fields(i).Name)
NEXT I

Answer 4

如果用的是SQLSERVER的话，就用下面的SQL语句吧。
select COLUMN_NAME from INFORMATION_SCHEMA.COLUMNS where TABLE_NAME='tablename'
小写的tablename写你的表名。

Answer 5

rst.fields(i).name
其中 rst 是一个 recordset
fields（i）是rst的属性
name是field的属性