#1 Field data types
Code:
'uses dao 3.5/6
Dim db As Database
Dim tb As TableDef
Dim fld As Field
Set db = DBEngine.OpenDatabase("Nwind2k.mdb")
Set tb = db.TableDefs("Customers")
For Each fld In tb.Fields
'field data types -- match up with DataTypeEnum members
Debug.Print fld.Type
Next fld
db.Close
Set db = Nothing
#2 -- Table relationship information
Code:
Dim db As Database
Dim rl As Relation
Dim fld As Field
Set db = DBEngine.OpenDatabase("Nwind2k.mdb")
For Each rl In db.Relations
Debug.Print "NAME: " & rl.Name
Debug.Print "TABLES: " & rl.Table & " -- " & rl.ForeignTable
For Each fld In rl.Fields
Debug.Print "FIELDS: " & fld.Name & " -- " & fld.ForeignName
Next fld
Debug.Print "=========================="
Next rl
db.Close
Set db = Nothing