Question

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

比如我的表列名分别为 a,b,c。如何得到这三个字段？

Answer 1

1，打开该access，点击创建，然后点击查询设计。

2，在跳出的窗体的显示表中选择列名所在的目标表名。

 

3，双击字段，选择要显示的字段，便会出现在下面的编辑框里。

4，选择完之后点击保存，点击工具栏上的运行，就可以查看效果了。

Answer 2

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

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

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” 或更高版本。

Answer 3

搜索下ADO