[Delphi] Foreign Key velden ophalen, hoe?

[MPEG]

Ik ben net na zo'n 2 jaar weer eens begonnen met Delphi, maar het wil nog niet zo lukken. Momenteel probeer ik een applicatie te maken die met een database moet gaan werken. Hierbij wil ik het programma zelf de primary en foreign keys laten opzoeken in de diverse tabellen.

Voor de primary key heb ik al het volgende commando gevonden:

code:

oConnection.OpenSchema(
   siPrimaryKeys, 
   VarArrayOf([unassigned, unassigned, sTableName]), 
   emptyparam, 
   oDataSet
);

Waarbij oConnection van het type TADOConnection is en oDataSet van het type TADODataSet.

Echter het opvragen welke velden als foreignkey zijn gedefinieerd lukt me niet, ik denk dat het zoiets moet zijn:

code:

oConnection.OpenSchema(
   siForeignKeys, 
   VarArrayOf([unassigned, unassigned, sTableName, unassigned, unassigned, unassigned]), 
   emptyparam, 
   oDataSet
);

Iemand die weet wat wel het goede stuk code is?

[ Voor 4% gewijzigd door MPEG op 29-05-2003 17:49 ]

[LordLarry]

Wat lukt er dan niet? Wit is niet lukken?

[MPEG]

Ben er al achter denk ik. Ik dacht in eerste instantie dat je de tabel die een foreign key bezit moest uitvragen, echter is het net andersom. Als je de tabel uitvraagt waar de primary key te vinden is dan krijg je ook de relaties eruit.

[_Thanatos_]

Mag hier ff aan toevoegen dat je de meta-informatie uit een database ook kunt ophalen met ADOX...