Find primary key i field collection

Du er nødt til at bruge ADOX til at finde metadata - det er beskrevet i ADO-hjælpen.

Jeg kan kaste et eksempel sammen hvis du er interesseret?

/venne

suk, havde håbet at undgå ADOX.
:)

jeg er meget interesseret i et eksempel.
Såfremt der ikke straks dukker en op med løsningen i AD0, er pointene dine

Det er slet ikke så svært med ADOX. Jeg har ændret funktionen til at returnere Columns-collection'en fra ADOX, da en PK kan være sammensat af flere kolonner. Hvis det ikke er relevant for dig kan du jo nøjes med at returnere første element fra Columns.

Der skal selvfølgelig også være en reference til ADOX-komponenten i dit projekt.

Function GetPrimaryKey(db As ADODB.Connection, sTableName As String) As Columns
  Dim cat As Catalog
  Dim tb As Table
  Dim ky As Key
 
  Set cat = New Catalog
  Set cat.ActiveConnection = db
 
  Set tb = cat.Tables(sTableName)
  For Each ky In tb.Keys
    If ky.Type = adKeyPrimary Then
      Set GetPrimaryKey = ky.Columns
      Exit Function
    End If
  Next
End Function

/venne

det er bare perfekt.
pointene er dine

tak !