optimiser un select case

Version imprimable

bonjour afin d'eviter les repetition de code j'aimerai optimiser mon code suivant mais je ne sais pas comment mi prendre:

Code:

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
51
52
53
54
55
56
57
58
59
60
61
 Select Case True
 
Case Me.J.Checked And Me.E.Checked And Me.Bo.Checked And Me.Rch_1.SelectedItem = "app"
table1 = "Table_app"
cmd.CommandText = String.Format("SELECT  (Chm) from {0} WHERE [ID] =1", table1)
 
                If cnn.State = ConnectionState.Open Then
                    cnn.Close()
                    cnn.Open()
                ElseIf cnn.State = ConnectionState.Closed Then
                    cnn.Open()
                End If
                Dim LectureUneInfo As OleDbDataReader = cmd.ExecuteReader
 
                While LectureUneInfo.Read()
                    Xwmp = AxWindowsMediaPlayer1.newMedia(LectureUneInfo(0))
                    AxWindowsMediaPlayer1.currentPlaylist.insertItem(0, Xwmp)
                    titre(LectureUneInfo(0))
 
                End While
                LectureUneInfo.Close()
 
Case Me.J.Checked And Me.E.Checked And Me.Bo.Checked And Me.Rch.SelectedItem = "Vo"
table1 = "Table_VO"
cmd.CommandText = String.Format("SELECT  (Chm) from {0} WHERE [ID] =1", table1)
 
                If cnn.State = ConnectionState.Open Then
                    cnn.Close()
                    cnn.Open()
                ElseIf cnn.State = ConnectionState.Closed Then
                    cnn.Open()
                End If
                Dim LectureUneInfo As OleDbDataReader = cmd.ExecuteReader
 
                While LectureUneInfo.Read()
                    Xwmp = AxWindowsMediaPlayer1.newMedia(LectureUneInfo(0))
                    AxWindowsMediaPlayer1.currentPlaylist.insertItem(0, Xwmp)
                    titre(LectureUneInfo(0))
 
                End While
                LectureUneInfo.Close()
Case Me.J.Checked And Me.E.Checked And Me.Bo.Checked And Me.Rch.SelectedItem = "Cons"
table1 = "Table_CONS"
cmd.CommandText = String.Format("SELECT  (Chm) from {0} WHERE [ID] =1", table1)
 
                If cnn.State = ConnectionState.Open Then
                    cnn.Close()
                    cnn.Open()
                ElseIf cnn.State = ConnectionState.Closed Then
                    cnn.Open()
                End If
                Dim LectureUneInfo As OleDbDataReader = cmd.ExecuteReader
 
                While LectureUneInfo.Read()
                    Xwmp = AxWindowsMediaPlayer1.newMedia(LectureUneInfo(0))
                    AxWindowsMediaPlayer1.currentPlaylist.insertItem(0, Xwmp)
                    titre(LectureUneInfo(0))
 
                End While
                LectureUneInfo.Close()
......

merci

13/05/2013, 17h25
Pol63

c'est pourtant simple

écrit comme ca tu dois mieux voir :

Citation:

case 1
A
B
C
D
case 2
E
B
C
D
case 3
F
B
C
D
end select

Citation:

case 1
A
case 2
E
case 3
F
end select

B
C
D

tout ce qui est pareil n'a rien à faire dans le select case mais doit etre fait à l'extérieur (avant ou après selon le cas)

et pour tout ce qu'on écrit plusieurs fois dans un programme on doit se poser la question si on ne peut pas factoriser
(si par exemple plusieurs fois dans ton programme tu fais un new connection, que tu passes la chaine de connexion, que tu ouvres la connexion ...)

en fait j'ai essaye de faire ta methode decrite,mais je n'avais aucun resultat probant.je me pose la question de savoir si de tout ce code je ne peux pas en faire une fonction que j'appelerai dans mon select case

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
cmd.CommandText = String.Format("SELECT  (Chm) from {0} WHERE [ID] =1", table1)
 
                If cnn.State = ConnectionState.Open Then
                    cnn.Close()
                    cnn.Open()
                ElseIf cnn.State = ConnectionState.Closed Then
                    cnn.Open()
                End If
                Dim LectureUneInfo As OleDbDataReader = cmd.ExecuteReader
 
                While LectureUneInfo.Read()
                    Xwmp = AxWindowsMediaPlayer1.newMedia(LectureUneInfo(0))
                    AxWindowsMediaPlayer1.currentPlaylist.insertItem(0, Xwmp)
                    titre(LectureUneInfo(0))
 
                End While
                LectureUneInfo.Close()

13/05/2013, 17h55
Rainui

Citation:

Envoyé par Pol63

et pour tout ce qu'on écrit plusieurs fois dans un programme on doit se poser la question si on ne peut pas factoriser
(si par exemple plusieurs fois dans ton programme tu fais un new connection, que tu passes la chaine de connexion, que tu ouvres la connexion ...)

=

Citation:

Je me pose la question de savoir si de tout ce code je ne peux pas en faire une fonction que j'appelerai dans mon select case

:mrgreen: