j'ai un probleme ... aider moi

Question

Ocean[size=3]dans mon code j'ai
un module1
'connection a la BD
dim cnx as new ADODB.Connection
controleur.show


'la feuille controleur


Private Sub Effacer_Click()
Dim ch As Integer
ch = Val(Text1.Text)
cnx.Execute "Delete from controleur where cod_cont='" & ch & "' "
msgbox "Suppression r&#233;uissite !"
End Sub



Private Sub Modifier_Click()
Dim ch As Integer
ch = Val(Text1.Text)
cnx.Execute "update controleur set nom_art='" & text2.text & "' where cod_cont='" & ch & "' "
msgbox "Modification r&#233;uissite !"
End Sub



au cours de l'execution j'ai le message d'erreur suivant
"Data type mismatch in criteria expression"


sachant que dans la base de donn&#233;e cod_art est un integer
et lorsque je fait la suppression ou la modification 
avec la m&#234;me req&#232;te mais le teste where sera sur une chaine
de caract&#232;re le code fonctionne correctement !


svp aider moi et merci pour votre aide

fiko81 · Answer

Salut, Essaye plutôt cnx.Execute "Delete from controleur where cod_cont=" & ch Pour une chaine de caractère, il faut mettre un rem mais pas pour les nombres il me semble. Fiko ;-) Proverbe chinois : Connaître son ignorance est la meilleur part de la connaissance.

Simo_TSSI · Answer

le probleme peut etre il est la pour les vraibles numerique tu doit ecrir 
" & nom_variable & " 
et pour un vraiable du chaine du caractere 
'" & nom_variable & "' 
                                          bon courage

asecher · Answer

Et puis, apr&#232;s avoir enlev&#233; les doubles-quotes autour de ton param&#232;tre, comme le dit FiKo, corrige "Modification r&#233;ussite !" en "Modification r&#233;ussie !", maintenant que &#231;a marche 

Alain 31

ahmedarous312 · Answer

Ocean[size=3]merci pour votre aide
le code fonctionne correctement

J'ai un probleme ... aider moi

4 réponses

Discussions similaires