ACCESS: Liste der Felder mit Eigenschaften ausgeben

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
 
Verweis auf ADODB notwendig
Visual Basic:
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.
 
Zurück