Access穫?cè)?shù)據(jù)錶的所有字段名（列名）

在Access創(chuàng)建的應(yīng)用繫統(tǒng)中，我們需要做的就是與數(shù)據(jù)錶打交道，對數(shù)據(jù)的增刪改查。

通過ADO或者DAO可以快速穫?cè)″l的所有字段名。

詳細代碼如下：

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