Discussion :

[chuspyto]

bonjour,

sur mon formulaire ,pour le moment j'ai 3 media player miniature destiné a afficher des images differentes d'une table access.
le problème est que cela pourrait fonctionner si seulement je n'aurrait pas la même image qui s'affiche partout

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
Private Sub Valider_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Valider.Click
        Dim Xwmp As IWMPMedia
        Dim cmd As OleDbCommand = cnn.CreateCommand
        Dim i As Integer
        Select Case True
 
            Case Jour.Checked And Eté.Checked And A.Checked
                For i = 1 To 3
                    cmd.CommandText = "SELECT clip FROM testa WHERE [n°] =" & i
                Next i
                Dim LectureUneInfojpg As OleDbDataReader = cmd.ExecuteReader
 
                While LectureUneInfojpg.Read()
                    For i = 1 To 3
 
                        Xwmp = DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).newMedia(LectureUneInfojpg(0))
                        DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).currentPlaylist.insertItem(0, Xwmp)
                        DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).Ctlcontrols.play()
                        DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).Ctlcontrols.pause()
                    Next i
                End While
        End Select
    End Sub

[Rainui]

Bonjour,

En plus, c'est la dernière image qui s'affiche, non?

Relis ton code, tu devrais comprendre.

[chuspyto]

je debute dans le vb net,et j'essai de refaire mon code qui etait fonctionnel sous access.je supose que c'est au niveau de la boucle mais je ne sais pas comment faire cela

Code :

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

1
2
3
 For i = 1 To 3
   cmd.CommandText = "SELECT clip FROM testa WHERE [n°] =" & i
      Next i

[Rainui]

Bonsoir,

Code :

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

1
2
3
4
 
For i = 1 To 3
    cmd.CommandText = "SELECT clip FROM testa WHERE [n°] =" & i
Next i

fait bien ce que vous lui demandez, c'est à dire incrémenter la valeur de i et créer la string du .CommandText.

Là ou ça coince c'est :

Code :

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

1
2
3
 
Dim LectureUneInfojpg As OleDbDataReader = cmd.ExecuteReader
    While LectureUneInfojpg.Read()

Le code en lui même est bon et ne présente pas d'erreur de syntaxe, mais à ce moment là, cmd.CommandText vaut la dernière valeur prise c'est à dire
"SELECT clip FROM testa WHERE [n°] = 3".
Vous pouvez le vérifier en lançant votre application en mode pas à pas.

Pour résoudre votre problème, il vous faut trouver une solution pour que tout le code soit dans la même boucle ou renvoyer un OleDbDataReader contenant toutes les données dont vous avez besoin ou encore créer une fonction avec paramètre qui renvoie le résultat de la requête ou ...

Comme vous l'a dit Pol63 dans un autre de vos post, prenez l'habitude d'ouvrir et fermer votre connection quand vous en avez besoin. S'il le faut écrivez une petite procédure ou fonction (suivant vos besoins).

Bon dev.