Bonjour,
J'essaye de passer un bout de code de DAO en ADO. Sur les conseils d'un membre du forum sur un de mes posts précédents, je suis allé sur le tutorial "Utiliser le modèle ADOX", mais je débute, et je dois avouer que je n'y comprend pas grand chose....
Mon code en DAO est le suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim tdf As TableDef
 
For Each tdf In CurrentDb.TableDefs
    If tdf.Name = Table_In Then
        For Each f In tdf.Fields
            If f.Name = "champ1" Then
                trouve = True
                Exit For
            End If
        Next f
        Exit For
    End If
Next tdf
J'ai commencé par faire le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & dbTemplate & ";"
Set Cat = New ADOX.catalog
Cat.ActiveConnection = conn
Dim tbl As ADOX.table
 
For Each tbl In Cat.Tables
    If tbl.Name = Table_In Then
        For Each f In tbl."je ne sais pas quoi mettre ici"
            If f.Name = "champ1" Then
                trouve = True
                Exit For
            End If
        Next f
        Exit For
    End If
Next tbl
Je n'arrive pas à savoir l'équivalent de tdf.Fields.......si il existe...
Quelqu'un aurait une idée?