Champ access indexe
cs_joflo
Messages postés
156
Date d'inscription
mardi 9 juillet 2002
Statut
Membre
Dernière intervention
23 septembre 2011
-
2 juil. 2007 à 13:09
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 septembre 2007 - 2 juil. 2007 à 14:13
cs_Nicko11 Messages postés 1141 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 19 septembre 2007 - 2 juil. 2007 à 14:13
2 réponses
cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
15
2 juil. 2007 à 13:24
2 juil. 2007 à 13:24
Salut,
Que veux-tu dire par indéxé ?
A+
Exploreur
Linux a un noyau, Windows un pépin
Que veux-tu dire par indéxé ?
A+
Exploreur
Linux a un noyau, Windows un pépin
cs_Nicko11
Messages postés
1141
Date d'inscription
mercredi 7 mars 2007
Statut
Membre
Dernière intervention
19 septembre 2007
3
2 juil. 2007 à 14:13
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
End Sub
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
End Sub