Optimisation de code [Fait]

**Anaxagore** · 22/03/2009, 17h51

Bonjour,

J'essaye depuis un petit moment d'optimiser ce code afin de le rendre un peu plus 'industriel' on va dire

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
 
        Dim NbRow As Integer = Nothing
        Dim rqSql As String = Nothing
        Dim Table As String = Nothing
        Dim Champ As String = Nothing
        Dim ValueToFind As String = Nothing
 
        Select Case sender.name
            Case "CB_Project"
                rqSql = "SELECT * FROM Project ORDER BY Project_Name"
                Table = "Project"
                Champ = "Project_Name"
                ValueToFind = CB_Project.Text
            Case "CB_Branch"
                rqSql = "SELECT * FROM Location ORDER BY Location_Name"
                Table = "Location"
                Champ = "Location_Name"
                ValueToFind = CB_Branch.Text
        End Select
 
        NbRow = FindRecord(rqSql, Table, Champ, ValueToFind)
 
        If NbRow = 0 Then
            Select Case sender.name
                Case "CB_Project"
                    Dim f As New Form_Add_Project(sender)
                    f.Show()
                Case "CB_Branch"
                    Dim f As New Form_Add_Branch(sender)
                    f.Show()
            End Select
        End If

Je but en fin de compte sur cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
        If NbRow = 0 Then
            Select Case sender.name
                Case "CB_Project"
                    Dim f As New Form_Add_Project(sender)
                    f.Show()
                Case "CB_Branch"
                    Dim f As New Form_Add_Branch(sender)
                    f.Show()
            End Select
        End If