cs_joflo
Messages postés156Date d'inscriptionmardi 9 juillet 2002StatutMembreDernière intervention23 septembre 2011
-
2 juil. 2007 à 13:09
cs_Nicko11
Messages postés1141Date d'inscriptionmercredi 7 mars 2007StatutMembreDernière intervention19 septembre 2007
-
2 juil. 2007 à 14:13
bonjour a tous
mon problème
quand j'affiche (par le code) les champs d'une base access j'ai trouvé le code pour savoir si le champ est (numérique ou text) mais je cale pour afficher si le champ est indexé ou non
cs_Nicko11
Messages postés1141Date d'inscriptionmercredi 7 mars 2007StatutMembreDernière intervention19 septembre 20073 2 juil. 2007 à 14:13
Salut,
si ta table contient un champ clé primaire, mon code te donnera normalement le nom du champ.
A toi d'adapter pour faire ce que tu veux :
'Aller dans projet -> référence puis cocher ADO Ext 2.8 For DLL and Security
Dim bdd As New ADOX.Catalog
Dim table As ADOX.table
Dim ind As ADOX.Index
Set bdd.ActiveConnection = ta_connection_ADO For Each table In bdd.Tables
For Each ind In bdd.Tables(table.Name).Indexes
If (ind.PrimaryKey) Then
MsgBox ind.Columns(0).Name
End If
Next
Next