Discussion :

[caps_corp]

bonjour,

Est-ce qu'il existe un moyen simple et efficace de tester l'existence d'un colonne dans une table ?
Je veux executer une commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ALTER TABLE ... ADD COLUMN ...

seulement si la colonne en question n'existe pas deja dans la table

Merci

[marot_r]

En DAO

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
17
18
 
Private Function ColonneExiste(prmNomTable as string, prmNomColonne as string) as boolean
   dim result as boolean:result=false
 
   dim db as database:set db=currentdb
   dim t as tabledef:set t=db.tabledefs(prmNomTable)
   dim f as field
   for each f in t.fields
      if f.name=prmNomField then
        result=true
        exit for
      end if
   next f
   set t=nothing
   db.close:set db=nothing
 
   ColonneExiste=result
End Function

[caps_corp]

Merci pour ton code
Juste une petite question pourquoi la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
...
db.close 
...

?

[marot_r]

Pour être tout à fait honnète, je ne sais pas avec certitude si c'est vraiment utile mais c'est une vielle habitude de programmation.

Quand tu ouvres un objet, ici db, tu le ferme toi-même. Tu ne fais jamais confiance au système pour faire le ménage dérière toi.

A+

[caps_corp]

Merci j'ai teste et ca marche
par contre au niveau de ton code il y avait une petite erreur au niveau
de la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if f.name=prmNomField then

il fallait mettre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if f.name=prmNomColonne then

mais sinon c'est nickel merci encore