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

[Aspic]

ça ne marche pas

Qu'est ce qui ne marche pas ??

Remplace les apostrophes par des guillemets simples et ca marchera (deja testé chez moi )

[loverdev]

Désolé j'ai fait une erreur. plutôt j'ai des guillemets simple (par exemple " ' ") et il ne les accepte pas lors de l'insertion au niveau du Update.

[Aspic]

Désolé j'ai fait une erreur. plutôt j'ai des guillemets simple (par exemple " ' ") et il ne les accepte pas lors de l'insertion au niveau du Update.

Ok donc ta chaine doit etre sous cette forme :

Code :

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

Dim Chaine as String = "ca va cool la ''vie est belle'' nest ce pas ?" 'vie est belle sera entre guillemets simples

[loverdev]

Je ne comprend pas. Au niveau de mon code qu'est ce que je dois ajouter ou modifier?

[Aspic]

Je ne comprend pas. Au niveau de mon code qu'est ce que je dois ajouter ou modifier?

Rien du tout c'est au niveau de ta textbox que tu dois entrer ce type de chaine. Je ne sais pas comment tu fais ton update mais tu n'as pas besoin de modifier ton code.

[loverdev]

Je ne met rien au niveau de ce champ. Ce champ est rempli automatiquement et je ne peux pas le modifier alors comment par textbox?

[Aspic]

Je ne met rien au niveau de ce champ. Ce champ est rempli automatiquement et je ne peux pas le modifier alors comment par textbox?

Bon je comprends rien pourquoi veux tu que ta BDD accepte les guillemets simples si tu n'entres rien manuellement ?

J'ai loupé quelque chose, je vois pas où tu veux en venir et poste un morceau de code de préférence

[loverdev]

Ce que je veux dire c'est que dans cette forms je choisi un numéro d'abonnement et en faisant le choix j'ai des champs de textbox qui se remplissent automatiquement. En cliquant sur un bouton "editer" j'ai qlq champ textbox qui deviennent accessibles et d'autres non. Le champ txtlibab est parmi les champs inaccessibles. C'est a dire que la valeur du champ txtlibab reste la meme. En faisant qlq modifications des champs accessibles et en cliquant sur le bouton "modifier" tous les champs modifiés ainsi que les champs non modifiés doivent être inséré au niveau de la table. mais j'ai ce msg d'erreur qui apparait au niveau du champ txtlibab.

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

[SaumonAgile]

Ce que je veux dire c'est que dans cette forms je choisi un numéro d'abonnement et en faisant le choix j'ai des champs de textbox qui se remplissent automatiquement. En cliquant sur un bouton "editer" j'ai qlq champ textbox qui deviennent accessibles et d'autres non. Le champ txtlibab est parmi les champs inaccessibles. C'est a dire que la valeur du champ txtlibab reste la meme. En faisant qlq modifications des champs accessibles et en cliquant sur le bouton "modifier" tous les champs modifiés ainsi que les champs non modifiés doivent être inséré au niveau de la table. mais j'ai ce msg d'erreur qui apparait au niveau du champ txtlibab.

Tu dois utiliser des paramètres SQL pour gérer proprement ce genre de problèmes. Les SqlParameter ou OleDbParameter gèrent automatiquement le fait qu'il y ait des apostrophes dans les valeurs. Je t'invite à faire une recherche dans le forum et les tutoriels sur les SqlParameter ou OleDbParameter pour avoir un exemple concret.

Aspic : toujours avec ta méthode horrible de double ', tétu hein ?

[loverdev]

Les oledbparameter sont seulement utilisés dans le cas d'un ajout d'un nouvel enregistrement. Mais moi je suis entrain de mosifier un enregistrement existant déjà dans la table.