How to return Key Properties using ADOX

See more:

ADO

ADO.NET

Hi,

I have seen how to set the properties of a column using ADOX, eg,

CascadeKey.DeleteRule = ADOX.RuleEnum.adRICascade

What I need now is how to read the same property values of a key column, ie, the opposite code. I was thinking something like this would work but to my disappointment it didnt:

For Each col In Adox.Tables(tbl).Columns
 'then I successfully filtered the foreign key columns
 'I get the correct field name and type
 Dim cName as string = col.Name
 'but the rest of the code below failed!
 Dim DelRule As String = col.Properties("DeleteRule").Value
 Dim UpdateRule As String = col.Properties("UpdateRule").Value
 Dim RefCol As String = col.RelatedColumn
 Dim RefTable As String = col.Properties("DeleteRule").Value
 Dim RelationName As String = col.Properties("FK_Name").Value
Next

How would I do this?

Thanks.