de rien et desole pour les trucs qui ne marchait pas mais je développe en vb.net et j'avais oublie !! :p
-------------------------------
Réponse au message :
-------------------------------
> Merci pour ta réponse, ça me fait gagner un temps précieux!
>
> J'ai juste changé deux trois choses: j'ai remplacé "'" par strcaract dans la fonction (sinon ça ne servait pas), et while end par wend (sinon ça ne marche pas!)
>
> Encore merci!
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > j'ai eu le probleme récemment, et j'ai du créer une fonction qui corrige cette erreur :
> >
> > Public Function AjoutCaractere(ByVal Str_Valeur As String, ByVal Str_Caract As String)
> > Dim Int_Chaine As Integer
> > Dim Str_Chaine As String
> > Dim Str_Chaine_Suiv As String
> >
> > Int_Chaine = InStr(1, Str_Valeur, "'")
> > If Int_Chaine = 0 Then
> > AjoutCaractere = Str_Valeur
> > Else
> > While Int_Chaine > 0
> > Int_Chaine = InStr(1, Str_Valeur, "'")
> > If Int_Chaine = 0 Then
> > Str_Chaine = Str_Valeur
> > Else
> > Str_Chaine = Left(Str_Valeur, Int_Chaine)
> > End If
> >
> > Str_Chaine_Suiv = Str_Chaine_Suiv & Str_Chaine & "'"
> > Str_Valeur = Right(Str_Valeur, Len(Str_Valeur) - Int_Chaine)
> > End While
> >
> > AjoutCaractere = Left(Str_Chaine_Suiv, Len(Str_Chaine_Suiv) - 1)
> > End If
> >
> > End Function
> >
> > cette fonction ajoute un deuxième quote. mais quand tu regardes dans ta base de données il n'en apparait qu'une seule. C'est magique !!!
> >
> > Donc pour que ton code marche voici ce que tu dois ecrire apres avoir créer cette fonction :
> >
> > sqlverif = "select * from maTable where NOM='" & ajoutcaractere(cboChoixNom,"'") & "'"
> >
> > Voilà !!
> >
>
>