Discussion :

[loverdev]

Mon pb c'est que a chaque fois que j'essaye d'insérer des lignes modifiées dans une table il me met ce msg d'erreur "erreur de syntaxe (opérateur absent) dans l'expression"Contrat d'abonnement logiciels IBM',etc". J'ai l'impression qu'il n'accepte pas les champs avec des apostrophes. Comment faire pour corriger cela SVP?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim cnx As New OleDbConnection
        Dim command = New OleDbCommand("update Abonnement set Abonnement.Num_abonnement='" & Cbxnumab.Text & "'" & ", Abonnement.Lib_abonnement='" & Txtlibab.Text & "'" & ", Abonnement.Date_debut_ab='" & Dates.Value & "'" & ", Abonnement.Date_fin_ab='" & Datef.Value & "'" & ", Abonnement.Montant_ab='" & Txtmontantab.Text & "'" & ", Abonnement.Num_frs='" & Txtnumfrs.Text & "'" & ", Abonnement.Nom_frs='" & Cbxfrs.Text & "'" & "where Num_abonnement='" & Cbxnumab.Text & "'", cnx)
        Try
            cnx.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb"
            cnx.Open()
            command.connection = cnx
            command.executenonquery()
            MsgBox("L'abonnement a été modifié avec succès", MsgBoxStyle.Information + MsgBoxStyle.OkOnly)
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            If Not (cnx Is Nothing) Then
                cnx.Close()
            End If
        End Try

[HULK]

il faut faire :

Code :

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

1
2
 
Txtlibab.Text.replace("'","\'")

pour tout les champs textbox

[loverdev]

A quel niveau je met ca?

[Jere76]

A chaque endroit où tu utilise la valeur d'un champ text box

[loverdev]

Ca ne marche pas
PS : le champs txtliab.text peut être modifié comme il peut ne pas être modifié.

[loverdev]

Le champ txtlibab ne peut pas être modifié (c'est un champ Read Only).

[Aspic]

il faut faire :

Code :

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

1
2
 
Txtlibab.Text.replace("'","\'")

pour tout les champs textbox

Ne marche pas j'avais deja testé avec l'anteslash...

Il faut utiliser les doubles guillemets :

Code :

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

Dim exemple as String = "coucou ""cava "" oui et toi" 'le 'ca va' sera entre guillemets

[loverdev]

Je ne comprend pas. moi par exemple au niveau de ce champ j'ai "contrat d'abonnement logiciels IBM". ce que je veux c'est qu'il accepte l'apostrophe " ' " lors de l'insertion dans la table.

[Aspic]

Je ne comprend pas. moi par exemple au niveau de ce champ j'ai "contrat d'abonnement logiciels IBM". ce que je veux c'est qu'il accepte l'apostrophe " ' " lors de l'insertion dans la table.

Ah ok je pensais que c'etait des guillemets...

Pour les guillemets simples et doubles on utilise ma méthode ci haut.

Pour l'apostrophe je n'ai jamais essayé mais essaye avec la meme technique on ne sait jamais.

Sinon tu peux remplacer ton apostrophe par un guillemet simple !

Code :

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

Txtlibab.Text.replace("'","'")

Ensuite quand tu récupères les infos, tu fais l'opération inverses...

Cdl

[loverdev]

ça ne marche pas