Discussion :

[chuspyto]

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

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
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

[Pol63]

c'est pourtant simple

écrit comme ca tu dois mieux voir :

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

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 ...)

[chuspyto]

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 :

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
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()

[Rainui]

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 ...)

=

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