Clé d'une table
neo3015
Messages postés
35
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
19 mai 2003
-
13 mars 2003 à 18:23
pelw Messages postés 148 Date d'inscription dimanche 12 janvier 2003 Statut Membre Dernière intervention 14 février 2005 - 13 mars 2003 à 21:31
pelw Messages postés 148 Date d'inscription dimanche 12 janvier 2003 Statut Membre Dernière intervention 14 février 2005 - 13 mars 2003 à 21:31
1 réponse
pelw
Messages postés
148
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
14 février 2005
6
13 mars 2003 à 21:31
13 mars 2003 à 21:31
Voici un exemple avec une base Access 2000 et DAO 3.6 :
Dim Db As DAO.Database
Dim Fi As DAO.Field
Dim Ix As DAO.Index
'Ouvrir la base de données "MaBase"
Set Db = OpenDatabase("C:\MaBase.mdb")
'Parcourir les index de la table "MaTable"
For Each Ix In Db.TableDefs("MaTable").Indexes
'S'il s'agit de la clé primaire
If Ix.Name = "PrimaryKey" Then
'Parcourir les champs de la clé primaire
For Each Fi In Ix.Fields
'Afficher le nom du champ
MsgBox Fi.Name
Next Fi
End If
Next Ix
@+
pelw
Dim Db As DAO.Database
Dim Fi As DAO.Field
Dim Ix As DAO.Index
'Ouvrir la base de données "MaBase"
Set Db = OpenDatabase("C:\MaBase.mdb")
'Parcourir les index de la table "MaTable"
For Each Ix In Db.TableDefs("MaTable").Indexes
'S'il s'agit de la clé primaire
If Ix.Name = "PrimaryKey" Then
'Parcourir les champs de la clé primaire
For Each Fi In Ix.Fields
'Afficher le nom du champ
MsgBox Fi.Name
Next Fi
End If
Next Ix
@+
pelw