pb d ecriture sqlRésolu

Question

bonjour je trouve pas le pb a l aide 


Private Sub UpdateEnregistrement()


dbsBase.Execute ("UPDATE infosous SET sousnom '" & UCase(Replace(txtnom.Text, "'", "''")) & "', sousadre '" & Replace(txtadre.Text, "'", "''") & "', soustel = '" & Replace(txttel.Text, "'", "''") & "', sousfax = '" & Replace(txtfax.Text, "'", "''") & "', souscp = '" & Replace(txtcp.Text, "'", "''") & "', sousville = '" & Replace(txtville.Text, "'", "''") & "', souscont = '" & Replace(txtcont.Text, "'", "''") & "', sousinfo = '" & Replace(txtinfo.Text, "'", "''") & "', sousmarque = '" & Replace(txtmarque.Text, "'", "''") & "', idagree = '" & Replace(Txt1.Text, "'", "''") & "', idagree1 = '" & Replace(Txt2.Text, "'", "''") & "' where idsous = '" & Val(frmSous.lblIDSous.Caption) & ";")


End Sub


 


et sa me mais le message suivant erreur de syntaxe dans la chaine dans l expression 'idsous = '25;'.

cs_ITALIA · Accepted Answer

Coches Reponse Accept&#233;s si c'est OK

It@li@

cs_ITALIA · Answer

..... idsous = '" & Val(frmSous.lblIDSous.Caption) & "';")

It@li@

cs_ITALIA · Answer

Je vois que pour tous les champs mis &#224; jour tu as :

' " &............& " '

Cela Signifie que tous tes champs  sans exeptions sont de type Texte....  c'est normal ???

It@li@

cs_ITALIA · Answer

>>stef33260 Evites les messages persos les autres ne pourrons pas suivre..
Si IdAgree est un Numerique alors idagree = " & Replace(Txt1.Text, "'", "''") & ",

Pour les champs de Type Texte  c'est : ' " & ......& " '
Pour les champs de Type Num&#233;rique c'est : " & ......& "

[mailto:It@li It@li]@

Pb d ecriture sql

4 réponses

Discussions similaires