Bonjour/Bonsoir tous le monde,

Donc voilà je travail sur un développement et j'ai une requête suivant :

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
 
    Const SQLSelect = "Select arCode As 'Code Article', arLibelle As 'Libelle' , " & _
                        "CONCAT(Cast(arDimensionPignon as Char),'x', Cast(arDimensionProfondeur As Char)) As 'Dimension', arEssenceBardage, " & _
                        "Case arEssenceBardage When 'DO' Then 'Douglas' When 'RC' Then 'RedCedar' When 'TA' Then 'Autoclave' When 'CH' Then 'Chène' When 'AU' Then 'Aucun' else 'Autre' End 'Essence Bois', " & _
                        "arNombrePente, Case arNombrePente When 1 Then '1 Pente' When 2 Then '2 pentes' When 0 Then 'Toit Plat' Else 'Autre' End 'Nombre de Pente',  " & _
                        "arCodeParticularite As 'Particularité', arValeurVenteTTC As 'Prix de Vente' " & _
                        "From _articles "
 
    Const SQLOrderBy = "Order By arCode"
 
    Private Sub BttStartSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BttStartSearch.Click
        Dim Modele As String = SearchOnDataTable("Libelle", "aaCode", CbBoxModele.Text, DataTableModele)
        Dim Toiture As String = Replace(SearchOnDataTable("Libelle", "arNombrePente", CbBoxToiture.Text, DataTableToiture), ",", ".")
        Dim DimensionPignon As String = Replace(SearchOnDataTable("Libelle", "arDimensionPignon", CbBoxDimension.Text, DataTableDimension), ",", ".")
        Dim DimensionProfondeur As String = Replace(SearchOnDataTable("Libelle", "arDimensionProfondeur", CbBoxDimension.Text, DataTableDimension), ",", ".")
        Dim EssenceBois As String = SearchOnDataTable("Libelle", "arEssenceBardage", CbBoxEssence.Text, DataTableEssence)
        SQLWhere = " Where arCode <> ''"
        'Création de la requete SQL
        If CbBoxModele.Text <> "" Then SQLWhere = SQLWhere & " and arCodeModele = '" & Modele & "' "
        If CbBoxToiture.Text <> "" Then SQLWhere = SQLWhere & " and arNombrePente = '" & Toiture & "' "
        If CbBoxDimension.Text <> "" Then SQLWhere = SQLWhere & " and arDimensionPignon = " & DimensionPignon & " And arDimensionProfondeur = " & DimensionProfondeur
        If CbBoxEssence.Text <> "" Then SQLWhere = SQLWhere & " and arEssenceBardage = '" & EssenceBois & "' "
 
        If AffichePoseOnly.Checked = True Then SQLWhere = SQLWhere & "And arEstPose = '1' "
 
        SQL = SQLSelect & SQLWhere & SQLOrderBy
 
        AfficheDateTable = MySQL_DataTable(SQL)
 
        DataGridAffichage.DataSource = AfficheDateTable
 
    End Sub
 
    Public Function SearchOnDataTable(ByVal NameColonneSearch As String, ByVal NameColonneRecupVal As String, ByVal ValeurSearch As String, ByVal NameTable As DataTable) As String
        SearchOnDataTable = ""
 
        For i As Integer = 0 To NameTable.Rows.Count - 1
            If NameTable.Rows(i)(NameColonneSearch).ToString = ValeurSearch Then
                SearchOnDataTable = NameTable.Rows(i)(NameColonneRecupVal).ToString
            End If
        Next
 
        Return SearchOnDataTable
 
    End Function
Donc jusque là aucun soucis, hors dans la datagridview quand il récupère les information la colonne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
arCodeParticularite As 'Particularité'
le 'é' n'est pas visible il y a a la place un truc genre 'ParticularitÅi'

Je te test ma requête dans Mysql directement rien à dire elle fonctionne très bien

Si quelqu'un à un idée ? car du coup si dans les lignes j'ai des accents à mon avis çà doit se répéter.

Merci