Discussion :

[Pol63]

il y a juste à accepter que ca ne fonctionne pas comme tu le penses ^^

une base de données ressort des données sous forme de tableau, peu importe d'où proviennent les données

dans le while, tu ne lis pas les données d'une table, tu lis les données que la base de données t'envoie

on peut aussi écrire select [nom colonne], 5 as [nom] from [une table]
le 5 n'est pas dans une table mais on peut le lire
ou encore select sum(colonne) as total from table
là aussi la somme n'est pas dans la table

[chuspyto]

Merci pour ton aide ,mais cela est trop complexe pour moi,je n'arrive à rien .je vais rester avec mon code principal

[chuspyto]

Et ce que si je laisse ma requête telle qu'elle est est que j utilise le backgroundworker cela pourra améliore un peu mon temps de traitement?car j'aimerai également utiliser le progressbar pour faire patienter le temps que mes images s'affichent

[Pol63]

Et ce que si je laisse ma requête telle qu'elle est est que j utilise le backgroundworker cela pourra améliore un peu mon temps de traitement?car j'aimerai également utiliser le progressbar pour faire patienter le temps que mes images s'affichent

le backgroundworker ne fait pas gagner de temps, il sert à juste à pouvoir faire un progressbar en gros

[chuspyto]

bonjour,
apres plusieurs test je me confronte toujours au message d'erreur
Le champ spécifié '[ID]' peut désigner plusieurs tables listées dans la clause FROM de votre instruction SQL.
est ce que cela veut dire que lors de ma jointure de mes 2 tables, du fait que les champs portent le meme nom cela porterai a confusion

Code :

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

1
2
3
4
5
6
7
8
9
10
cmd.CommandText = "SELECT  eti, Chm, ID from {0} INNER JOIN {1} ON {0}.ID=BASDEF.ID WHERE [ID] IN ("
 
        For i = 1 To boucle
            cmd.CommandText &= i.ToString & ", "
        Next
 
        cmd.CommandText.Remove(0, cmd.CommandText.Length - 2) ' de tête, à vérifier ; c'est pour retirer le dernier , 
        cmd.CommandText &= ")"
 
        cmd.CommandText = String.Format(cmd.CommandText, jpg, basdef)

[Pol63]

c'est exactement ca

select {0}.id

[chuspyto]

j'avais rectifié egalement

Code :

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

WHERE [{1}.ID];[{0}.ID]

apparament je n'ai plus de probleme avec ma requete saufce message:
Caractères trouvés après la fin de l'instruction SQL.
que signifie ce message?

[Pol63]

un ; signifie fin de requête

le where tu ne dois pas le faire sur les 2 table, mais sur une seule, vu qu'il y a une jointure ...

Code :

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

1
2
 
where {0}.id in

[chuspyto]

la requete a l'air de fonctionner a part que cela m'affiche seulement la dernière video.
dans une table j'ai 8 enregistrements ,il m'affiche seulement le huitieme et non les 8.

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
        cmd.CommandText = "SELECT  eti, Chm, Chms from {1} INNER JOIN {0} ON {1}.ID={0}.ID WHERE [{1}.ID] IN ("
 
        For i = 1 To boucle
            cmd.CommandText &= i.ToString & ", "
        Next
 
        cmd.CommandText.Remove(0, cmd.CommandText.Length - 2)
        cmd.CommandText &= ")"
 
        cmd.CommandText = String.Format(cmd.CommandText, jpg, basdef)
 
 
        cnn.Close()
        cnn.Open()
        Dim Lecturejpg As OleDbDataReader = cmd.ExecuteReader
        For i = 1 To boucle
            While Lecturejpg.Read()
 
                DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).Visible = True
                Xwmp = DirectCast(Me.Controls("AxWindowsMediaPlayer" & i), AxWindowsMediaPlayer).newMedia(Lecturejpg(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()
 
 
                lecture = Lecturejpg.GetString(0).Replace("_", " ")
                DirectCast(Me.Controls("Label" & i), Label).Visible = True
                DirectCast(Me.Controls("Label" & i), Label).Text = System.IO.Path.GetFileNameWithoutExtension(lecture)
            End While
 
        Next

[Pol63]

en même tu ne comprends pas ce que tu écris ...

être développeur ca ne s'improvise pas, il faut apprendre avant de coder
là le bug saute au yeux avec un peu d'expérience

[chuspyto]

j'ai deplace le for.... est cela va mieux pour ce qui est de la video.mais la ou mon problème persiste est au niviveau de la 2 ème partie cela m'affiche dans tous mes labels le même et dernier nom

[chuspyto]

Je suis désole par mon manque d expérience, je ne vois pas d'où viens mon probleme

[Pol63]

il ne faut pas de boucle for, juste le while
par contre le i viendra du coup du DataReader.item("Id")

[chuspyto]

décidement j'ai beaucoup de probleme avec ce language
peux tu me dire si cela correspond car j'ai un message d'erreur
l'exception indexoutofrangeexception n'a pas ete geree

Code :

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

1
2
3
Dim Lecturejpg As OleDbDataReader = cmd.ExecuteReader
 
        While Lecturejpg.Item("ID")

[Pol63]

Code :

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

1
2
3
4
5
While Lecturejpg.Read()
 
   dim i as integer = cint(lecturejpg.item("id"))
 
   ' le reste

par contre moi j'abandonne là
comme je l'ai déjà dit, avant de coder il faut apprendre, là tu écris n'importe quoi au hasard sans connaitre ni l'outil (visual studio) ni le langage ...