展开全部
sp_columns Table
======================================
第四列就是列名,也可以通过查询获得
======================================
dim AdoConn As New ADODB.Connection
dim rs As new ADODB.Recordset
dim SqlString as string
String ="Select top 1 * from Table"
Set rs = AdoConn.Execute(SqlString)
if not rs.EOF
For i = 1 To rs.Fields.Count
debug.print rs(i - 1).Name
next i
end if
Set rs=nothing
AdoConn.Close
======================================
第四列就是列名,也可以通过查询获得
======================================
dim AdoConn As New ADODB.Connection
dim rs As new ADODB.Recordset
dim SqlString as string
String ="Select top 1 * from Table"
Set rs = AdoConn.Execute(SqlString)
if not rs.EOF
For i = 1 To rs.Fields.Count
debug.print rs(i - 1).Name
next i
end if
Set rs=nothing
AdoConn.Close
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询