Discussion :

[Riton69]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[Riton69]

Je pense avoir trouvé la solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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