Determine if field is Primary or Compound Key using ADO

[winshent]

Hi Guys

Does anyone have an idea how to determine if a field within a table is a primary key or part of a compound key using ADO?

 

[winshent]

Okay.. So i've managed to get my head around this now.

You need to use the ADO Extension library

Firstly, add a reference to 'Microsoft ADO Ext. 2.x for DDL and Security'

The following code will output all of the information of an index.

    Dim strTableName as string
    Dim objCat As ADOX.Catalog
    Dim objIdx As ADOX.Index
    Dim objIdxCol As ADOX.Column
    Dim objConn As New ADODB.Connection

    objConn.ConnectionString = gstrGetConnectionString

    Set objCat = New ADOX.Catalog
    objCat.ActiveConnection = objConn

    For Each objIdx In objCat.Tables(strTableName).Indexes
        Debug.Print "   Index Name: " & objIdx.Name

        If objIdx.PrimaryKey = True Then
            Debug.Print "       PK"
        End If
        For Each objIdxCol In objIdx.Columns
            Debug.Print "       Column Name: " & objIdxCol.Name
        Next
    Next objIdx