office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

Access获取数据表的所有字段名(列名)

2017-11-22 16:05:00
tmtony8
原创
23487

在Access创建的应用系统中,我们需要做的就是与数据表打交道,对数据的增删改查。

通过ADO或者DAO可以快速获取表的所有字段名。


详细代码如下:

Public Sub GetFieldsName()
    
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM 表1")    
    For i = 0 To rs.Fields.Count - 1
        
        Debug.Print rs.Fields(i).Name
    Next
    
End Sub

    分享