VB.net | CheckedListBox
Résolu
Xineroks
-
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
lermite222 Messages postés 8724 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je suis actuellement en Stage et je réalise une application en Visual Basic sous Visual Studio 2008.
Je souhaiterais remplir une CheckedListBox à l'aide d'une base de donnée, jusque là tout va bien, je prend les valeurs disponible dans une Table "LesDates", mais j'aimerais aussi que certaines données soit cochées en fonction des valeurs d'une autre table.
J'y arrive plus en moins avec ce code, mais je n'ai actuellement qu'une valeur de cochée.
Vous pouvez voir les requêtes que j'ai effectué dans le code, tout fonctionne avec des DataReader
En espérant que vous puissiez m'aider, merci d'avance
Cordialement,
Xineroks
Je suis actuellement en Stage et je réalise une application en Visual Basic sous Visual Studio 2008.
Je souhaiterais remplir une CheckedListBox à l'aide d'une base de donnée, jusque là tout va bien, je prend les valeurs disponible dans une Table "LesDates", mais j'aimerais aussi que certaines données soit cochées en fonction des valeurs d'une autre table.
J'y arrive plus en moins avec ce code, mais je n'ai actuellement qu'une valeur de cochée.
Vous pouvez voir les requêtes que j'ai effectué dans le code, tout fonctionne avec des DataReader
Private Sub LB_CharResEnf_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LB_CharResEnf.SelectedIndexChanged
CLB_DatesReserv.Items.Clear()
Dim moncode() As String
Dim i As Integer, j As Integer
moncode = Split(LB_CharResEnf.SelectedItem, " ")
Dim sqlCnx As New System.Data.Odbc.OdbcConnection(My.Settings.CS_CantineBDD)
Dim uneleve As New System.Data.Odbc.OdbcCommand("SELECT codeeleve,nome,prenome,ecolee,classee,droitphoto,anneeencour FROM eleves WHERE codeeleve = " & moncode(0) & "", sqlCnx)
Dim Nbdates As New System.Data.Odbc.OdbcCommand("SELECT COUNT(datedispo) FROM lesdates", sqlCnx)
Dim mesdates As New System.Data.Odbc.OdbcCommand("SELECT datedispo FROM lesdates", sqlCnx)
Dim mesdatesreservees As New System.Data.Odbc.OdbcCommand("SELECT jourreserv FROM reservation WHERE codeelever = " & moncode(0) & "", sqlCnx)
Dim myreader As Odbc.OdbcDataReader, myreader2 As Odbc.OdbcDataReader, myreader3 As Odbc.OdbcDataReader
sqlCnx.Open()
myreader = uneleve.ExecuteReader()
myreader2 = mesdates.ExecuteReader()
myreader3 = mesdatesreservees.ExecuteReader()
myreader.Read()
TB_NomE.Text = myreader.GetString(1).ToString
TB_PrenomE.Text = myreader.GetString(2).ToString
TB_EcoleE.Text = myreader.GetString(3).ToString
TB_ClasseE.Text = myreader.GetString(4).ToString
For i = 0 To Nbdates.ExecuteScalar - 1
myreader2.Read()
CLB_DatesReserv.Items.Add(myreader2.GetDate(0))
For j = 0 To CLB_DatesReserv.Items.Count
myreader3.Read()
Try
If myreader2.GetDate(0) = myreader3.GetDate(0) Then
CLB_DatesReserv.SetItemChecked(j, True)
End If
Catch
'Rien
End Try
Next
Next
sqlCnx.Close()
End Sub
En espérant que vous puissiez m'aider, merci d'avance
Cordialement,
Xineroks
A voir également:
- VB.net | CheckedListBox
- Vb.net express - Télécharger - Langages
- Vb.net - Télécharger - Langages
- Convert | VB.net ✓ - Forum Framework .NET
- Vb.net editor - Télécharger - Langages
- Listview vb.net ✓ - Forum Framework .NET
11 réponses
Bonjour,
A première vue, Je ne vois rien qui cloche sauf..
Tu dis.
Edit: Dans ton Catch.. met un stop
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
A première vue, Je ne vois rien qui cloche sauf..
' Set flag to true to know when this code is being executed. Used in the ItemCheck
' event handler.
insideCheckEveryOther = True
.....
insideCheckEveryOther = False
Tu dis.
Edit: Dans ton Catch.. met un stop
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Le soucis c'est que j'utilise l'événement SelectedIndexChanged, donc je ne peux pas ajouter
Du moins je crois, m'enfin j'aimerais garder cet événement car ensuite je dois faire une requête qui ajoutera dans la base une date.
Edit : si je ne met pas de try catch, j'ai l'erreur comme quoi je n'ai pas de valeur dans mon reader3, et si je met un stop, bah ça stop ^^'
J'aimerai que l'appli tourne, même si erreur.
Je crois que ça vient de mon reader3 en fait
insideCheckEveryOther = True
.....
insideCheckEveryOther = False
Du moins je crois, m'enfin j'aimerais garder cet événement car ensuite je dois faire une requête qui ajoutera dans la base une date.
Edit : si je ne met pas de try catch, j'ai l'erreur comme quoi je n'ai pas de valeur dans mon reader3, et si je met un stop, bah ça stop ^^'
J'aimerai que l'appli tourne, même si erreur.
Je crois que ça vient de mon reader3 en fait
C'est bien ça, je viens de tester une ListB avec quelque lignes et tes commandes fonctionnent parfaitement.
Mais pour voir si toute ta table reader3 est défectueuse tu devrais tester plusieurs passages.
Si tu connais oublie ceci..taper F8 pour continuer après un stop.
Mais apparemment ( tu dis qu'il y a une seule date cochée) c'est toute la table qui va pas.
Edit : Je pense à une chose ?
Reader2 et Reader3 ont le même nombre d'enregistrements?
quand ça plante regarde les valeurs de J et i
Mais pour voir si toute ta table reader3 est défectueuse tu devrais tester plusieurs passages.
Si tu connais oublie ceci..taper F8 pour continuer après un stop.
Mais apparemment ( tu dis qu'il y a une seule date cochée) c'est toute la table qui va pas.
Edit : Je pense à une chose ?
Reader2 et Reader3 ont le même nombre d'enregistrements?
quand ça plante regarde les valeurs de J et i
Le nombre d'enregistrement est différent oui, mais le nombre d'enregistrement qu'on manipule dans la boucle J est forcément inférieur ou égal au nombre de valeur dans la boucle I. Donc, je pense qu'on parcourt bien toute les valeurs.
Car pour remplir ma 2ème table on s'inspire des valeurs de la première.
Car pour remplir ma 2ème table on s'inspire des valeurs de la première.
Mais si, C'est pour éviter que l'évènement se rappel, (récursive)
Tu est certain de tes données ?
Et qu'il y en à plusieurs qui sont égales
Met aussi un stop en dessous de cette ligne, tu verras ainsi combien de fois il s'arrête.
EDIT : Et comme tu met la liste Clear au début de la sub...
Humm.. oui, c'est pas la même :-)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Tu est certain de tes données ?
If myreader2.GetDate(0) = myreader3.GetDate(0) Then
Et qu'il y en à plusieurs qui sont égales
Met aussi un stop en dessous de cette ligne, tu verras ainsi combien de fois il s'arrête.
EDIT : Et comme tu met la liste Clear au début de la sub...
Humm.. oui, c'est pas la même :-)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Oui, mes données sont correctes.
Car justement une donnée est cochée
en gros je passe dans i avec la date 15/12/2012, venant de myreader2 par exemple,
je regarde si dans myreader3 si j'ai la date qui est égale, parmi toutes les dates de myreader3 donc, je tombe forcément dessus. J'ai mis en sorte que 3 enregistrements soit identique sur la date par rapport à l'autre table donc ça va.
Sinon, je ne connaissais pas "insideCheckEveryOther = True", alors je ne sais pas où le placer ( j'ai tenté partout ^^" )
Car justement une donnée est cochée
en gros je passe dans i avec la date 15/12/2012, venant de myreader2 par exemple,
je regarde si dans myreader3 si j'ai la date qui est égale, parmi toutes les dates de myreader3 donc, je tombe forcément dessus. J'ai mis en sorte que 3 enregistrements soit identique sur la date par rapport à l'autre table donc ça va.
Sinon, je ne connaissais pas "insideCheckEveryOther = True", alors je ne sais pas où le placer ( j'ai tenté partout ^^" )
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bon, Oublie mon poste précédant je n'avais pas bien lu.
Je pense que tu devrais séparer tes deux boucles.
La première remplir la liste et la deuxième tester les dates.
Mon avis le problème vient de là,
Explique un peu, tout les indices sont à zéro ? je ne comprend pas.
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Je pense que tu devrais séparer tes deux boucles.
La première remplir la liste et la deuxième tester les dates.
Mon avis le problème vient de là,
Explique un peu, tout les indices sont à zéro ? je ne comprend pas.
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
J'avais tester tout à l'heure mais sans résultat car je n'avais pas tester le try catch. Je testerai ça demain au plus tôt afin de régler ce problème qui me gène vraiment.
Si d'autres idées viennent, je serais ravi de les lire.
Bonne soirée,
Xineroks
Si d'autres idées viennent, je serais ravi de les lire.
Bonne soirée,
Xineroks
Solution :
On parcourt la première boucle pour insérer les données. La Deuxième boucle pour comparer les données. Si une valeur est correspond aux 2 tables alors on recupère l'index de la CLB, pour la mettre à True.
Merci à lermite222 pour son aide apportée pour résoudre mon problème.
For i = 0 To Nbdates.ExecuteScalar - 1
myreader2.Read()
CLB_DatesReserv.Items.Add(myreader2.GetDate(0))
Next
For j = 0 To CLB_DatesReserv.Items.Count
Try
myreader3.Read()
If CLB_DatesReserv.Items.Contains(myreader3.GetDate(0)) Then
CLB_DatesReserv.SetItemChecked(CLB_DatesReserv.Items.IndexOf(myreader3.GetDate(0)), True)
End If
Catch
End Try
Next
On parcourt la première boucle pour insérer les données. La Deuxième boucle pour comparer les données. Si une valeur est correspond aux 2 tables alors on recupère l'index de la CLB, pour la mettre à True.
Merci à lermite222 pour son aide apportée pour résoudre mon problème.
Essaye un peu ça..
For j = 0 To CLB_DatesReserv.Items.Count
For i = 0 To Nbdates.ExecuteScalar - 1
Try
myreader3.Read()
If CLB_DatesReserv.Items(j) = (myreader3.GetDate(0)) Then
CLB_DatesReserv.SetItemChecked(j, True)
Exit For
End If
Catch
End Try
Next
Next
Si je fais ça, je ne remplis pas avant ma CLB. même en ajoutant
dans entre les 2 for, j'aurai qu'une seule donnée. C'est pourquoi je vais opter pour la solution que j'ai mis ^^
Merci beaucoup encore d'avoir prit un peu de ton temps pour m'aider :)
myreader2.Read()
CLB_DatesReserv.Items.Add(myreader2.GetDate(0))
dans entre les 2 for, j'aurai qu'une seule donnée. C'est pourquoi je vais opter pour la solution que j'ai mis ^^
Merci beaucoup encore d'avoir prit un peu de ton temps pour m'aider :)
Correction:
Je pense que tu peu garder la boucle comme toi tu l'a montrer.
Pour le décalage il faudrait réinitialiser la table Reader3 au début mais en net je sais pas la commande à appliquer et ça fait longtemps que je n'ai plus fait de DB en VB
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Je pense que tu peu garder la boucle comme toi tu l'a montrer.
Pour le décalage il faudrait réinitialiser la table Reader3 au début mais en net je sais pas la commande à appliquer et ça fait longtemps que je n'ai plus fait de DB en VB
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Ca fonctionnait, ça ne fonctionne plus o_O
Je comprend pas pourquoi, ça ne coche plus rien alors que le code est le même
Une fois après avoir remarqué que ça ne fonctionnait plus j'ai remplacer getDate() par getString(). Ca ne pose pas de soucis normalement, et c'est pour des soucis de simplicité dans une autre requête.
EDIT : En fait ça ne fonctionne plus quand j'ajoute ce code, qui permet d'ajoute dans la base une date pour un reservation si c'est coché, et ça supprime la reservation si c'est décoché
avec ce code
For i = 0 To Nbdates.ExecuteScalar - 1
myreader2.Read()
CLB_DatesReserv.Items.Add(myreader2.GetString(0))
Next
myreader2.Close()
For j = 0 To CLB_DatesReserv.Items.Count
Try
myreader3.Read()
If CLB_DatesReserv.Items.Contains(myreader3.GetString(0)) Then
CLB_DatesReserv.SetItemChecked(CLB_DatesReserv.Items.IndexOf(myreader3.GetString(0)), True)
End If
Catch
End Try
Next
Je comprend pas pourquoi, ça ne coche plus rien alors que le code est le même
Une fois après avoir remarqué que ça ne fonctionnait plus j'ai remplacer getDate() par getString(). Ca ne pose pas de soucis normalement, et c'est pour des soucis de simplicité dans une autre requête.
EDIT : En fait ça ne fonctionne plus quand j'ajoute ce code, qui permet d'ajoute dans la base une date pour un reservation si c'est coché, et ça supprime la reservation si c'est décoché
avec ce code
Private Sub CLB_DatesReserv_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CLB_DatesReserv.ItemCheck
Dim moncode() As String
moncode = Split(LB_CharResEnf.SelectedItem, " ")
Dim sqlCnx As New System.Data.Odbc.OdbcConnection(My.Settings.CS_CantineBDD)
Dim maxReserv As New System.Data.Odbc.OdbcCommand("SELECT MAX(codereservation) FROM reservation", sqlCnx)
Dim selectParent As New System.Data.Odbc.OdbcCommand("SELECT codeparenta FROM avoir, parents, eleves WHERE eleves.codeeleve=avoir.codeelevea AND avoir.codeparenta=parents.codeparent AND codeelevea = " & moncode(0) & "", sqlCnx)
Dim ajoutDate As New System.Data.Odbc.OdbcCommand()
Dim suppDate As New System.Data.Odbc.OdbcCommand()
sqlCnx.Open()
If CLB_DatesReserv.GetItemChecked(CLB_DatesReserv.Items.IndexOf(CLB_DatesReserv.SelectedItem)) = False Then
ajoutDate.Connection() = sqlCnx
ajoutDate.CommandText() = "INSERT INTO reservation VALUES('" & maxReserv.ExecuteScalar + 1 & "','RR','N','" & moncode(0) & "','" & selectParent.ExecuteScalar & "','" & CLB_DatesReserv.SelectedItem & "')"
ajoutDate.ExecuteNonQuery()
Else
suppDate.Connection() = sqlCnx
suppDate.CommandText() = "DELETE FROM reservation WHERE codeelever = " & moncode(0) & " AND jourreserv = " & CLB_DatesReserv.SelectedItem & ""
suppDate.ExecuteNonQuery()
End If
sqlCnx.Close()
End Sub
C'est ici que ma remarque est importante.
Mais comme tu travaille sur la ListBox dans un autre évènement ces commande ne fonctionneront pas.
Pour remédier à ce problème j'emploi un variable boolean public.
Public NoAction as Boolean = False
Avant d'attaquer les modif dans la liste je la met à True
quand c'est terminer pas oublier de la remettre à False
Et dans l'événement change je met la ligne en tout début
If Noaction then exit sub
Bon, ça régler je me demande si tu peu ouvrir deux même table en même temps, quel est le type d'erreur ?
Essaye le system avec NoAction et refaire une boucle à part en retestant les items de la ListB
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
Mais comme tu travaille sur la ListBox dans un autre évènement ces commande ne fonctionneront pas.
Pour remédier à ce problème j'emploi un variable boolean public.
Public NoAction as Boolean = False
Avant d'attaquer les modif dans la liste je la met à True
quand c'est terminer pas oublier de la remettre à False
Et dans l'événement change je met la ligne en tout début
If Noaction then exit sub
Bon, ça régler je me demande si tu peu ouvrir deux même table en même temps, quel est le type d'erreur ?
Essaye le system avec NoAction et refaire une boucle à part en retestant les items de la ListB
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
