Prob. Requete SQL et VB

Salut,
j'ai un prob un peu con, j'execute une requete sql ds mon prob vb et elle est la suivante:
STR_SQL = "UPDATE CLIENT SET CLIENT.NOM_CLT = '" & Trim$(Me.txtNom.Text) & "';"
CONN_BASE_DONNEES.Execute STR_SQL
mais elle marche tres tres tres bien SAUF qd mon Me.txtNom.text contien le caractère appostrophe "'" là elle deconne car il l'ajoute à la chaine et il le prends comme si c'est le début d'un parametre.
y'a t-il une solution standard pour eviter ca?

Merci

Seedorf

Si tu as VB6, utilise
Replace(Trim$(Me.txtNom.Text), "'", "''")
(Remplacer 1 apostrophe par 2)

Sinon vois mes sources, j'ai écrit une fonction pour VB5 et - (mais personne ne l'as testée :'(




-------------------------------
Réponse au message :
-------------------------------

Salut,
j'ai un prob un peu con, j'execute une requete sql ds mon prob vb et elle est la suivante:
STR_SQL = "UPDATE CLIENT SET CLIENT.NOM_CLT = '" & Trim$(Me.txtNom.Text) & "';"
CONN_BASE_DONNEES.Execute STR_SQL
mais elle marche tres tres tres bien SAUF qd mon Me.txtNom.text contien le caractère appostrophe "'" là elle deconne car il l'ajoute à la chaine et il le prends comme si c'est le début d'un parametre.
y'a t-il une solution standard pour eviter ca?

Merci

Seedorf

Salut,
ca marchera pas car ma requete donnera jamais de resultat sinon il donnera un faux resultat, j'ai besoin d'extraire les enregistrement ayant exactement la meme valeur du champ que mon txtNom.text

Y'a t-il autres idées?

seedorf



-------------------------------
Réponse au message :
-------------------------------

Si tu as VB6, utilise
Replace(Trim$(Me.txtNom.Text), "'", "''")
(Remplacer 1 apostrophe par 2)

Sinon vois mes sources, j'ai écrit une fonction pour VB5 et - (mais personne ne l'as testée :'(




-------------------------------
Réponse au message :
-------------------------------

Salut,
j'ai un prob un peu con, j'execute une requete sql ds mon prob vb et elle est la suivante:
STR_SQL = "UPDATE CLIENT SET CLIENT.NOM_CLT = '" & Trim$(Me.txtNom.Text) & "';"
CONN_BASE_DONNEES.Execute STR_SQL
mais elle marche tres tres tres bien SAUF qd mon Me.txtNom.text contien le caractère appostrophe "'" là elle deconne car il l'ajoute à la chaine et il le prends comme si c'est le début d'un parametre.
y'a t-il une solution standard pour eviter ca?

Merci

Seedorf

Public Function DoubleApostrophe(ze_texte As String) As String

Dim n As Integer
Dim buffer As String

For n = 1 To Len(ze_texte)
If Mid(ze_texte, n, 1) = "'" Then
buffer = buffer & "''"
Else
buffer = buffer & Mid(ze_texte, n, 1)
End If
Next n

DoubleApostrophe = buffer

End Function


-------------------------------
Réponse au message :
-------------------------------

Salut,
ca marchera pas car ma requete donnera jamais de resultat sinon il donnera un faux resultat, j'ai besoin d'extraire les enregistrement ayant exactement la meme valeur du champ que mon txtNom.text

Y'a t-il autres idées?

seedorf



-------------------------------
Réponse au message :
-------------------------------

Si tu as VB6, utilise
Replace(Trim$(Me.txtNom.Text), "'", "''")
(Remplacer 1 apostrophe par 2)

Sinon vois mes sources, j'ai écrit une fonction pour VB5 et - (mais personne ne l'as testée :'(




-------------------------------
Réponse au message :
-------------------------------

Salut,
j'ai un prob un peu con, j'execute une requete sql ds mon prob vb et elle est la suivante:
STR_SQL = "UPDATE CLIENT SET CLIENT.NOM_CLT = '" & Trim$(Me.txtNom.Text) & "';"
CONN_BASE_DONNEES.Execute STR_SQL
mais elle marche tres tres tres bien SAUF qd mon Me.txtNom.text contien le caractère appostrophe "'" là elle deconne car il l'ajoute à la chaine et il le prends comme si c'est le début d'un parametre.
y'a t-il une solution standard pour eviter ca?

Merci

Seedorf

Public Function DoubleApostrophe(ze_texte As String) As String

Dim n As Integer
Dim buffer As String

For n = 1 To Len(ze_texte)
If Mid(ze_texte, n, 1) = "'" Then
buffer = buffer & "''"
Else
buffer = buffer & Mid(ze_texte, n, 1)
End If
Next n

DoubleApostrophe = buffer

End Function


-------------------------------
Réponse au message :
-------------------------------

Salut,
ca marchera pas car ma requete donnera jamais de resultat sinon il donnera un faux resultat, j'ai besoin d'extraire les enregistrement ayant exactement la meme valeur du champ que mon txtNom.text

Y'a t-il autres idées?

seedorf



-------------------------------
Réponse au message :
-------------------------------

Si tu as VB6, utilise
Replace(Trim$(Me.txtNom.Text), "'", "''")
(Remplacer 1 apostrophe par 2)

Sinon vois mes sources, j'ai écrit une fonction pour VB5 et - (mais personne ne l'as testée :'(




-------------------------------
Réponse au message :
-------------------------------

Salut,
j'ai un prob un peu con, j'execute une requete sql ds mon prob vb et elle est la suivante:
STR_SQL = "UPDATE CLIENT SET CLIENT.NOM_CLT = '" & Trim$(Me.txtNom.Text) & "';"
CONN_BASE_DONNEES.Execute STR_SQL
mais elle marche tres tres tres bien SAUF qd mon Me.txtNom.text contien le caractère appostrophe "'" là elle deconne car il l'ajoute à la chaine et il le prends comme si c'est le début d'un parametre.
y'a t-il une solution standard pour eviter ca?

Merci

Seedorf

Salut,
oui en effet ca marche et avec les deux methode, en fait les deux ils font la meme chose, mais j'avais pas bien remarqué pour la proposition de makabey alors je m'excuse. merci à makabey et a pimousse75.

Seedorf




-------------------------------
Réponse au message :
-------------------------------

Salut,
j'ai un prob un peu con, j'execute une requete sql ds mon prob vb et elle est la suivante:
STR_SQL = "UPDATE CLIENT SET CLIENT.NOM_CLT = '" & Trim$(Me.txtNom.Text) & "';"
CONN_BASE_DONNEES.Execute STR_SQL
mais elle marche tres tres tres bien SAUF qd mon Me.txtNom.text contien le caractère appostrophe "'" là elle deconne car il l'ajoute à la chaine et il le prends comme si c'est le début d'un parametre.
y'a t-il une solution standard pour eviter ca?

Merci

Seedorf

En fait tu dois comprendre que quand SQL vois deux apostrophes qui se suivent, ça veux dire que c'est pas la fin du paramètre mais que le paramètre lui-même contient un apostrophe, ex:

'l'avion' boum, pcq recherche "l" {param inconnu}
'l''avion' ça marche pcq il vas rechercher "l'avion"



-------------------------------
Réponse au message :
-------------------------------

Salut,
ca marchera pas car ma requete donnera jamais de resultat sinon il donnera un faux resultat, j'ai besoin d'extraire les enregistrement ayant exactement la meme valeur du champ que mon txtNom.text

Y'a t-il autres idées?

seedorf



-------------------------------
Réponse au message :
-------------------------------

Si tu as VB6, utilise
Replace(Trim$(Me.txtNom.Text), "'", "''")
(Remplacer 1 apostrophe par 2)

Sinon vois mes sources, j'ai écrit une fonction pour VB5 et - (mais personne ne l'as testée :'(




-------------------------------
Réponse au message :
-------------------------------

Salut,
j'ai un prob un peu con, j'execute une requete sql ds mon prob vb et elle est la suivante:
STR_SQL = "UPDATE CLIENT SET CLIENT.NOM_CLT = '" & Trim$(Me.txtNom.Text) & "';"
CONN_BASE_DONNEES.Execute STR_SQL
mais elle marche tres tres tres bien SAUF qd mon Me.txtNom.text contien le caractère appostrophe "'" là elle deconne car il l'ajoute à la chaine et il le prends comme si c'est le début d'un parametre.
y'a t-il une solution standard pour eviter ca?

Merci

Seedorf