VB6 me sort "Aucune valeur données pour un ou plusieurs des paramètres requis."
Le problème vient de la requètes, mais je vois pas trop ou j'ai fait une erreur.
La requète finale donne :
"UPDATE compte SET al=1 WHERE psd='Public ';"
Pour le code :
sql="UPDATE compte SET al=" & CStr(cmpt(i).al) & " WHERE psd='" & cmpt(i).psd & "';"
compt.Open sql, connect, adOpenDynamic, adLockOptimistic
Si kk1 voit le problème...

Membre fondateur de la Ligue Anti-MacIntoc
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Un expert est quelqu'un qui en sait de plus en plus sur de moins en moins
de choses, jusqu'à ce qu'il connaisse absolument tout à propos de rien.
vince Le 11/12/2003 à 20:31 il manquerait pas des guillemets autour du 1 ???
bah... c pas une string, c un entier (on met pas de ' autour d'un nombre, ou alors g zapper un truc au lycée).

Membre fondateur de la Ligue Anti-MacIntoc
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Un expert est quelqu'un qui en sait de plus en plus sur de moins en moins
de choses, jusqu'à ce qu'il connaisse absolument tout à propos de rien.