Discussion :

[enibris]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
            For Each cb In cbI
                If cb.value = 1 Then
                    ma_requete = TabInternet(cb.Index + 1) & "=''" & txtI(cb.Index).text & "''"
                    ma_requete = "UPDATE [MS Access;DATABASE=App.Path\tmp.mdb;PWD=pevac].Internet SET " & ma_requete
                    Ma_requete2 = "INSERT INTO [MS Access;DATABASE=" & Path & ".mdb;PWD=pevac].[Sql] ([sql]) VALUES ('" & ma_requete & "')"
                    MyConnection.Execute (Ma_requete2)
                End If
            Next cb

Si txtI(cb.Index).text comporte le caractere ' il me met une erreur, j'ai deja essaie replace( ,"'","''") marche pas non plus

[Najdar]

Bonjour Enibis,

Au lieu d'utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txtI(cb.Index).text

, utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Replace(txtI(cb.Index).text ,"'","''").

Replace toutes les quotes ' par des doubles quote '' (2x ' et non 1x ")

[ThierryAIM]

et vire ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ma_requete = TabInternet(cb.Index + 1) & "=''" & txtI(cb.Index).text & "''"

une seule quote ' suffit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ma_requete = TabInternet(cb.Index + 1) & "='" & txtI(cb.Index).text & "'"

[enibris]

Voila un exple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ma_requete = "UPDATE [MS Access;DATABASE=App.Path\podatke.mdb;PWD=pevac].Podatke SET " & TabPodatke(cb.Index + 1) & "='" & txtP(cb.Index).text & "'"
                    ma_requete = Replace(ma_requete, "'", "''")
Ma_requete2 = "INSERT INTO [MS Access;DATABASE=" & Path & ".mdb;PWD=pevac].[Sql] ([sql]) VALUES ('" & ma_requete & "')"
                    MyConnection.Execute (Ma_requete2)

Voila ce que je retrouve dans ma chaine ma_requete=" UPDATE [MS Access;DATABASE=App.Path\podatke.mdb;PWD=pevac].Internet SET POP3_LOZINKA=''''³ìñZs
Ð^Q!'' "

Il m'indique une erreur

[mdriesbach]

Bonjour.

Tu fais le replace sur ta requête toute entière.
Du coup les quotes qui encadrent la zone de texte sont aussi doublées.
Il faut faire le replace seulement sur la zone de texte avant de l'insérer dans la requête.
Genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ma_requete = "UPDATE [MS Access;DATABASE=App.Path\podatke.mdb;PWD=pevac].Podatke SET " & TabPodatke(cb.Index + 1) & "='" & Replace(txtP(cb.Index).text, "'", "''") & "'"

Mathieu D.

[enibris]

La meme erreur.