Show field name, type and value data type : Table Column Field « Access « VBA / Excel / Access / Word

Show field name, type and value data type

Sub rec_fields()
  Dim conn As New Connection
  Dim rec As New Recordset
  Dim f As Field
  Dim ws As Worksheet
  Dim i&
  Set ws = ThisWorkbook.Worksheets("fields")
  conn.Open "Provider=microsoft.jet.oledb.4.0;" + _
    "Data Source=" + ThisWorkbook.Path + "\nwind.mdb;"
  rec.Open "employees", conn
  For Each f In rec.Fields
    i = i + 1
    ws.[a1].Cells(i) = f.Name
    ws.[b1].Cells(i) = f.Type
    ws.[c1].Cells(i) = TypeName(f.Value)
  rec.Close: conn.Close
End Sub


Related examples in the same category

1.Append new columns to new table
2.Delete a column
3.Adding a New Field to a Table
4.Removing a Field from a Table
5.Set column properties by using ADOX.Table
6.Listing Field Properties
7.Get field properties
8.Listing Tables and Their Fields Using the OpenSchema Method
9.Adding a New Money type Field to an Existing Table
10.Adding a Field with SQL command
11.Changing the Field Data Type with SQL command
12.Changing the Size of a Field with SQL command
13.Deleting a Field from a Table with SQL command
14.Setting a Default Value for a Field with SQL command
15.Changing the Start (Seed) Value of the AutoNumber Field with SQL command
16.Read record in recordset by referening the field name with '!'
17.Open a table and read data by column
18.Read specific columns from Recordset
19.Checking for Existence of a Field