[AC-2003] Passage de DAO en ADO : equivalent de Tabledefs? [Résolu]

[candrau]

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 :

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 :

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?

[argyronet]

Bonjour,

Si la références pas ADO Ext. 2.8 for DDL and Security n'existe pas, tu ne peux bénéficier de l'intellisence sur propriétés des objets.
En l'occurence, une table en ADO possède des Columns.

Argy

[candrau]

La référence existe bien...
En gros, le code que j'ai essayé ne convient pas du tout en ADO, c'est ça?

[argyronet]

Si, ce code est opérationel ; disons qu'il tourne...
Que veux-tu faire en fait ?

Argy

[candrau]

Je veux juste vérifier si le "champ1" existe ou non dans ma table (si non, la variable "trouve" est à false, et je le rajoute dans ma table via un ALTER TABLE).

J'ai modifié avec "Columns" comme suggéré, et apparemment, ça compile et je n'ai pas d'erreur, mais après, je ne sais pas si la condition du 1er "if" a été respecté pour que le cas se présente...
On va dire que c'est résolu pour l'instant...