access vba表字段_vba中如何在access的一张表中得到所有的列名？

展开全部

这里提供下列ACCESS 窗体VBA示例代码供参考

假设数据库里有一张“定价表”，为e69da5e887aa62616964757a686964616f31333335343430ACCESS 窗体命令按钮编写单击事件过程，单击该按钮后即可弹出消息框，告知该表共有多少个字段和它们的名称Private Sub Command0_Click()

Dim rs As New ADODB.Recordset

Dim strSql As String

Dim i As Integer

Dim colNames As String

strSql = "select * from 定价表 where false"  '“where false”的作用是只提取字段信息不要数据

rs.CursorLocation = adUseClient

rs.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly

'循环读取字段名

For i = 0 To rs.Fields.Count - 1

colNames = colNames & "," & rs(i).Name

Next i

colNames = Mid(colNames, 2)

'弹出消息框

MsgBox "定价表共有" & rs.Fields.Count & "个字段，字段名分别是：" & colNames

rs.Close

Set rs = Nothing

End Sub

注意上述代码需要引用ADO。引用方法，于窗体代码窗口，菜单——工具——引用

在弹出的“引用”对话框，勾选“Microsoft ActiveX Data Object 2.1” 或更高版本。