antonioavmelo
asked on
Find table key fields using ADO
Hi
In DAO, I can easily find the set of fields that belong to the key of some table.
How can I do this through ADO?
I tried to use some "select * from t" and look at each field, but had no luck...
What about foreign keys?
In DAO, I can easily find the set of fields that belong to the key of some table.
How can I do this through ADO?
I tried to use some "select * from t" and look at each field, but had no luck...
What about foreign keys?
My friend you cannot do it easily in dao from your example as well. You would have to use TableDefs Ojbect which you didn't say anything about. In ADO you would need to use ADOX and columns collection.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
A high quality answer. Nice working example too.
Thanks.
You must set a reference to "Microsoft ADO Ext 2.1 for DDL and Security".
This way you will have objects like:
Dim col as ADOX.Column, etc.
You will have the properties you need. This is the code sample EMOREAU gave me:
Private Sub Command1_Click()
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim col As ADOX.Column
Dim colprop As ADOX.Property
On Error Resume Next
Kill "c:\test.mdb"
On Error GoTo 0
Set cat = New ADOX.Catalog
cat.ActiveConnection = "Provider=Microsoft.Jet.OL
"Data Source=D:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb;"
Set tbl = cat.Tables("Employees")
For Each col In tbl.Columns
List1.AddItem col.Name & Space(2) & "Type: " & col.Type
For Each colprop In col.Properties
List1.AddItem Space(3) & _
colprop.Name & _
" -- " & _
"Type: " & colprop.Type & _
" -- " & _
"Value: " & colprop.Value
Next colprop
Next col
End