apostrophe dans combobox Résolu

Question

Bonjour, 
dans ma combobox je récupère des données de ma base, quand je clic sur une donnée comme celle la pas de problème :
Bouche  coupe-feu 2H Ø 125
mais quand il y a une apostrophe comme cette donnée :
Bouteille d'injection 12 litres
j'ai une erreur de syntaxe
y à t'il moyen de contourner ce probleme ?
voila le code :
Private Sub cbb_matiere_Click()
Call Connect
    Sql = "Select * From articles_2 where T_Designation='" & cbb_matiere.Text & "'"
    Rs.Open Sql, Db, adOpenStatic, adLockPessimistic
    If Rs.RecordCount > 0 Then
        txt_prix1.Text = Rs.Fields("T_Prix") & " €"
        Text5.Text = Rs.Fields("T_Index")    
 End If
    Call Deconnect
End Sub

merci
bonne journée

ucfoutu · Answer

Bonjour,
Ta question revient simplement à insérer entre guillemets dans une chaîne de caractères (ce qu'est ta variable SQL), une variable dont la valeur contient ou pourrait contenir une ou plusieurs apostrophes.
Plusieurs manières possibles, dont celle-ci ==>>
sql = "Select * From articles_2 where T_Designation= " & "''" & cbb_matiere.txt & "''"
Vrai que ce soit pour une requête ou pour n'importe quelle autre chaîne de caractères.

EDIT : et peux-tu me confirmer que tu développes bien sous VB,  que je puisse déplacer en connaissance de cause la présente discussion, que tu as ouverte dans le forum général de visual basic, ce qui ne permet pas de déterminer ton langage de développement  ?

cs_petchy · Answer

merci  ucfoutu pour ta réponse,mais j'ai toujours l'erreur de syntaxe

je développe en VB6

ucfoutu · Answer

Quelle "erreur de syntaxe" ? et sur quelle ligne ?
Pour ton info, j'ai testé ma réponse.

ucfoutu · Answer

AH ;;; j'espère que tu as bien corrigé (faute de frappe) : cbb_matiere.txt par cbb_matiere.text Evident ...

cs_petchy · Answer

oui j'avais corrigé 

sinon l'erreur se situe sur cette ligne
Rs.Open Sql, Db, adOpenStatic, adLockPessimistic

ucfoutu · Answer

l;a ligne que tu montres-là n'a rien à voir avec le problème de l'apostrophe, sauf si tu as mal copié/collé mon code.
On va le savoir :
Montre ce que t'affiche Msgbox SQL.

cs_petchy · Answer

pourtant j'ai bien recopié ton code.

le Msgbox m'affiche
"erreur d'exécution

erreur de syntaxe (opérateur absent) dans l'expression 
T_designation=

ucfoutu · Answer

Msgbox SQL 
ne saurait t'afficher "erreur d'exécution " !

Montre ton code, tel qu'il est (copié/collé).
 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

cs_petchy · Answer

Private Sub cbb_matiere_Click()
Call Connect
   sql = "Select * From articles_2 where T_Designation= " & "''" & cbb_matiere.text & "''"
    Rs.Open Sql, Db, adOpenStatic, adLockPessimistic
    If Rs.RecordCount > 0 Then
        txt_prix1.Text = Rs.Fields("T_Prix") & " €"
        Text5.Text = Rs.Fields("T_Index") ' & " €"
    End If
    Call Deconnect
End Sub

cs_petchy · Answer

désolé, je pensais que tu me parlais de l'erreur qui m'affichait.
comment ajoute t'on un msgbox sql ?

cs_petchy · Answer

c'est ça...

Private Sub cbb_matiere_Click()
On Error GoTo err
Call Connect
Sql = "Select * From articles_2 where T_Designation=" & "''" & cbb_matiere.Text & "'"
   'Sql = "Select * From articles_2 where T_Designation='" & cbb_matiere.Text & "'"
    Rs.Open Sql, Db, adOpenStatic, adLockPessimistic
    If Rs.RecordCount > 0 Then
        txt_prix1.Text = Rs.Fields("T_Prix") & " €"
        Text5.Text = Rs.Fields("T_Index") ' & " €"
    End If
    Call Deconnect
err:
MsgBox err.Number & " " & err.Description
End Sub

ucfoutu · Answer

Es-tu certain de ce que ce ne serait pas plutôt du genre :
abracadabra = "je n'en sais rien et m'en fiche"abracadabra = abracadabra & vbCrLf & "je ne veux rien apprendre, mais juste copier/coller"abracadabra = abracadabra & vbCrLf & "De toutes manières, ce qui compte n'est pas de comprendre ce que j'écris, mais que j'obtienne ce que je veux"abracadabra = abracadabra & vbCrLf & "Je trouverai toujours bien un ""complice"" sur un forum qui le fera à ma place et " & _", ce faisant, m'encouragera à continuer ainsi.  Et voilà tout !"MsgBox abracadabra & vbCrLf & "Amen"
Bonne chance, mais je n'ai pas la force de t'aider;

cs_petchy · Answer

déjà ,je jamais eu la prétention d'être un développeur et si ont vient sur des forums c'est justement pour être aidé,
mais bon, Monsieur le magicien est plus malin que tous le monde car tu doit être un développeur.

abracadabra : au revoir

cs_petchy · Answer

voila c'est bon

 Sql = "Select * From articles_2 where T_Designation='" & Replace(cbb_matiere.Text, "'", "''") & "'"

Apostrophe dans combobox

14 réponses

Votre réponse

Discussions similaires