Retrouver la relation champ <--> INDEX dans TABLE ACCESS
Bonjour à tous !
Comme je n'ai pas trouvé de forum VB6, je poste ici ma demande. Merci à un modérateur de déplacer ce post dans le bon forum si besoin est.
Ceci dit, ma question : je sais extraire les noms des champs d'une table Access ainsi que les noms des index. J'utilise le code suivant ::
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
Option Explicit
Dim db As Database
Dim tb_def As TableDef
Dim tb As Recordset
Dim idxLoop As Index
Dim fic As String
Dim wk As String
Dim champ As Field
Private Sub Form_Load()
fic = App.Path & "\jam.mdb"
Set db = OpenDatabase(fic)
Set tb = db.OpenRecordset("tb_mots")
wk = "tb_mots"
Set tb_def = db.TableDefs(wk)
With tb
For Each idxLoop In tb_def.Indexes
.Index = idxLoop.Name
Debug.Print "Index = " & .Index
Next idxLoop
For Each champ In tb.Fields
Debug.Print "Champ = " & champ.Name
Next champ
.Close
End With
db.Close
End Sub |
Dans la fenêtre Debug j'ai bien les noms:
Index = idx_mots
Champ = mots
Champ = nombre
Champ = page
Champ = auteur
Champ = ligne
Ce que je ne sais pas faire, c'est associer le nom d'un index à un champ. Dans mon exemple, comment savoir que l'index idx_mots se réfère au champ mots ?
Merci d'avance pour votre aide à venir
Notpa