[VB.NET/ACCESS] Identifier les clefs étrangères

Version imprimable

Bonjour,

Je programme en VB.NET et je cherche à connaitre mes clefs étrangères dans une base de données ACCESS.

J'ai trouvé le code suivant :
Code:

1 2 3 4 5 6 7 Dim foreignKeysSchemaTable As DataTable = ObjetConnection.GetSchema("Foreign_Keys") Console.WriteLine("Clés étrangères dans la base de données :") For Each row As DataRow In foreignKeysSchemaTable.Rows Console.WriteLine($"Table FK : {row("FK_TABLE_NAME")}, Colonne FK : {row("FK_COLUMN_NAME")}, Table PK : {row("PK_TABLE_NAME")}, Colonne PK : {row("PK_COLUMN_NAME")}") Next
Mais j'ai le message d'erreur suivant sur la première ligne : "La collection demandée (Foreign_Keys) n'est pas définie."

Connaitriez-vous la syntaxe du "collectionName" adapté ou une autre méthode pour obtenir l'information ?

Je vous remercie par avance.

31/05/2024, 10h01
popo

Tu as essayé ForeignKeys (sans l'underscore, en fait) ?
Sinon, il existe des constantes pour ce paramètre :
https://learn.microsoft.com/en-us/do...s?view=net-8.0

Je pense avoir trouvé la solution :

Code:

1
2
3
4
5
6
7
8
9
                Dim foreignKeys As DataTable = ObjetConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Foreign_Keys, Nothing)
 
                For Each row As DataRow In foreignKeys.Rows
                    MsgBox("Table FK : " & row("FK_TABLE_NAME").ToString() & Chr(10) &
                   "Colonne FK : " & row("FK_COLUMN_NAME").ToString() & Chr(10) &
                    "Table PK : " & row("PK_TABLE_NAME").ToString() & Chr(10) &
                    "Colonne PK : " & row("PK_COLUMN_NAME").ToString() & Chr(10) &
                   "Nom de la relation : " & row("FK_NAME").ToString())
                Next

Je te remercie pour ton aide qui m'a mis sur la bonne voie.

Je termine tous mes tests et je clôture le sujet si cela fonctionne :)