清问一下，如何读出数据库中某一个表的所有字段名？

Question

谢谢先

Answer 1

Rs_Colums.CursorLocation = adUseClient
                Rs_Colums.Open "select top 1 * from 表名", Cn, adOpenStatic, adLockReadOnly
                For I = 0 To Rs_Colums.Fields.Count - 1   ' 循环所有列
                    Debug.Print Rs_Colums.Fields(I).Name   '字段名
              
                    Debug.Print Rs_Colums.Fields(I).DefinedSize  '宽度
                Next

Answer 2

http://www.csdn.net/develop/read_article.asp?id=15422

Answer 3

for i = 0 to recordset.Fields.Count - 1   
x=recordset.fields(i).name
msgbox "第" & str(i+1) & "列为—" & x
next