关于字段名

Question

请问怎么取出数据库里的字段名呀？
然后显示在表格控件上。。

Answer 1

Dim rst As New ADODB.Recordset
Dim cn as new adodb.connection
dim a,b as string
cn.connectionstring='provider=........."
cn.open
rst.Open "select 字段1,字段2 from TABLENAME", cn, adOpenDynamic, adLockPessimistic
a = rst.Fields(0).Name  '取出字段名
b=rst.fields(1).name

Answer 2

Dim rst As New ADODB.Recordset
Dim cn as new adodb.connection
dim A() as stringcn.connectionstring='provider=........."
cn.open
rst.Open "select * from TABLENAME", cn, adOpenDynamic, adLockPessimisticdim i as integer
dim N as integer
N=rst.columns.count-1
redim preserve A(N) as stringfor i = 0 to N
   a(i) = rst.Fields(i).Name  '取出字段名
next i

Answer 3

http://www.tianyaclub.com/new/TechForum/Content.asp?idWriter=0&Key=0&idItem=14&idArticle=532632'先开心一下吧，顺便顶一下。

Answer 4

如果是SqlServer的话可以用以下语句取出来
Select Name From syscolumns Where ID In (Select ID From sysobjects Where Name='表名') Order By colorder