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 |
