Discussion :

[Ashireon]

Re bonjour a tous
J'ai l'erreur suivante

Erreur de syntaxe : opérande manquant après l'opérateur

En fait je charge une variable string d'un texte venant d'une Datatable.

Cependant j'ai parfois un ' dans le texte et cela me fait planter l'execution, comment ignorer le ' ?

[Er3van]

Peux-tu montrer le code en question?
Le caractère d'échappement en vb.net c'est ".

[Ashireon]

voici le code

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Dim Nme As String = Convert.ToString(ComboBox1.SelectedItem.ToString.Substring(0, 3)) 'récupération des initiales
        Dim Dtview1 As New DataView
        Dim tbl01 As New DataTable
        Dim x As Integer
 
        TreeView1.Nodes.Clear()
 
        With Dtview1
            .Table = DBGMAODataSet.Tables("contrat")
            .RowFilter = "[Chargé d'affaires] ='" & Nme & "'"
            .Sort = "Chantier,N° contrat ASC"
        End With
        tbl01 = Dtview1.ToTable
 
 
        X = tbl01.Rows.Count - 1
        Dim Tab(X) As String
        For a As Integer = 0 To X
            Tab(a) = tbl01.Rows(a).Item(1).ToString
        Next
        Dim requete3 = Tab.Distinct()
        Dim z As Integer = requete3.Count
 
        For y As Integer = 0 To z - 1
            TreeView1.Nodes.Add(New TreeNode(requete3(y)))
 
            Dim tablex As New DataTable
            Dim dtvi2 As New DataView
            Dim str01 As String = Convert.ToString(requete3(y))
            'str01 = str01.Replace("'", " ")
            With dtvi2
                .Table = tbl01
                .RowFilter = "[Chantier]='" & str01 & "'"
            End With
 
            tablex = dtvi2.ToTable
            Dim xx As Integer = tablex.Rows.Count - 1
            For zz As Integer = 0 To xx
                TreeView1.Nodes(y).Nodes.Add(tablex.Rows(zz).Item(5))
            Next
 
 
        Next
 
        TreeView1.Sort()
 
 
 
    End Sub

j'ai essayer de remplacer ' par un espace mais ca ne fonctionne plus car du coup je n'ai plus dans le rowfilter qui suit le bon string a filtrer car dans la table il existe tous les string avec des quotes

la variable en question est Str01 quand elle est chargé par du texte pharmacie l'elephant ca plante le rowfilter qui suit

[Ashireon]

Pour le moment j'ai contourner le problème en enlevant les quotes dans la base de données.
Mais j'aurai quand même aimé savoir si on pouvait ignorer ou réecrire le string

[Vince]

Et si tu fais :

Code :

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

str = str.Replace("'","''")

En gros tu remplace le simple quote par un double quote quand tu stocke tes données...

[Kropernic]

Même si certains SGBD le permettent, il vaut mieux ne jamais mettre d'espace ou de caractères spéciaux dans les noms des objets d'une DB.

Plus d'infos

Cela a en plus l'avantage d'éviter de rencontrer ce genre de problème dans le code applicatif.