Access用VBA循环获取表的所有字段名称

时　间:2017-06-08 07:46:08
作　者:宏鹏   ID：21115  城市：上海
摘　要:用DAO获取所有字段名称
正　文:

表1截图：

获取表1所有字段名称：

命令按钮代码：

Private Sub Command1_Click()
    Dim rst As DAO.Recordset
    Dim fldName As String
    Dim str As String
    Dim i As Integer
    str = "": i = 0
    Set rst = CurrentDb.OpenRecordset("表1", dbOpenDynaset)
    For i = 0 To rst.Fields.Count - 1
        fldName = rst.Fields(i).Name
        str = str & fldName
    Next
    rst.Close
    Set rst = Nothing
    Me.Text2 = str
End Sub