ACCESS: Liste der Felder mit Eigenschaften ausgeben

[kaltwasserseife]

Hallo, ich möchte von mehreren Tabellen einer ACCESS-Datenbank eine Felderliste erstellen, die auch die Feldeigenschaften enthält. Einfach eine TXT oder etwas Ähnliches. Danke für Tips

 

[Zvoni]

Verweis auf ADODB notwendig

Sub Main()
Dim RS As New ADODB.Recordset
Dim i As Long
    RS.Open "SELECT * FROM Tabelle1", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
    For i = 0 To RS.Fields.Count - 1
        Debug.Print "name=" & RS.Fields(i).Name & " - Typ=" & RS.Fields(i).Type
    Next
End Sub

Type ist ein Integer, den du selbst auf die Enumeration mappen musst.