Изучение ключей базы данных MS Access с использованием VB6

Question

как проверить, сколько первичного ключа, составного ключа в существующей таблице, используя Visual Basic 6.0 и мс доступ в качестве базы данных?

Answer 1

Одна таблица имеет только один первичный ключ, который может быть простым или составным ключом.

Answer 2

Добавить справочную библиотеку ADOX и ADODB.

Function ShowKeys(tbl As String) As String
   'Add reference ADOX library:  Microsoft ADO Ext. 2.8 for DDL and Security.
   'Add reference ADODB library: Microsoft ActiveX Data Objects
   Dim cat As New ADOX.Catalog
   Dim tbl As ADOX.Table
   Dim idx As ADOX.Index
   Dim col As ADOX.Column
   Dim cnn As New ADODB.Connection

   On Error GoTo errh

   cnn.Open "Provider='Microsoft.Jet.OLEDB.4.0';" & _
        "Data Source= 'Northwind.mdb';"

   Set cat.ActiveConnection = cnn

   For Each tbl In cat.Tables
      If tbl.Name = tbl Then
         If tbl.Indexes.Count <> 0 Then
            For Each idx In tbl.Indexes
               With idx
                  If .PrimaryKey Then
                     For Each col In .Columns
                        ShowKeys = col.Name & ", " & ShowKeys
                     Next
                  End If
               End With
            Next
         End If
      End If
   Next

errh:
   If Err <> 0 Then
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly, "Error"
   End If

   Set cat = Nothing
   Set tbl = Nothing
   Set idx = Nothing
   Set col = Nothing
   Set cnn = Nothing
End Function