Check All, CheckedListBox | VB.net
Résolu
Xineroks
Messages postés
158
Date d'inscription
Statut
Membre
Dernière intervention
-
Xineroks Messages postés 158 Date d'inscription Statut Membre Dernière intervention -
Xineroks Messages postés 158 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Check All, CheckedListBox | VB.net
- Winget upgrade --all - Guide
- Check disk - Guide
- Check flash - Télécharger - Sécurité
- Cd check - Télécharger - Récupération de données
- Asio for all - Télécharger - Audio & Musique
2 réponses
J'obtiens toujours une erreur du style :
InvalidArgument=La valeur '0' n'est pas valide pour 'index'. Nom du paramètre : index
On me demande un entier, je lui donne un entier, mais ça râle quand même !
Voici mon code, sait-on jamais :
:/
InvalidArgument=La valeur '0' n'est pas valide pour 'index'. Nom du paramètre : index
On me demande un entier, je lui donne un entier, mais ça râle quand même !
Voici mon code, sait-on jamais :
For i = 1 To Nbdates.ExecuteScalar - 1
myreader.Read()
CLB_DatesReserv.SelectedIndex = 0
If CLB_DatesReserv.GetItemChecked(CLB_DatesReserv.Items.IndexOf(CLB_DatesReserv.SelectedItem)) = False Then
ajoutDate.CommandText() = "INSERT INTO reservation VALUES(" & maxReserv.ExecuteScalar + 1 & ",'RR','N'," & moncode(0) & ",'" & myreader(0).ToString & "','CPREPRR','O','N')"
Try
ajoutDate.ExecuteNonQuery()
Catch
MsgBox("Reservation non autorisée car aucun parent n'est associé à cet enfant", MsgBoxStyle.OkOnly, "Avertissment")
TB_CharResEnf.Text = ""
CLB_DatesReserv.ClearSelected()
End Try
End If
Next
:/
Xineroks
Messages postés
158
Date d'inscription
Statut
Membre
Dernière intervention
3
Up S'il vos plait
Je suis passé par une autre manière pour résoudre mon soucis.
Le sujet n'est donc pas résolue en lui même mais mon problème si.
Voici le code utilisé :
Le sujet n'est donc pas résolue en lui même mais mon problème si.
Voici le code utilisé :
If NoAction Then Exit Sub
Const monzero As String = "0"
CLB_DatePres.Items.Clear()
Dim moncode() As String
moncode = Split(LB_CharResEnf.SelectedItem, " ")
Dim madate() As String, moismodif As String
madate = Split(CB_DateReserv.SelectedItem, "-")
If madate(1) < 10 Then
moismodif = monzero + madate(1)
Else
moismodif = madate(1)
End If
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 ajoutDate As New System.Data.Odbc.OdbcCommand("", sqlCnx)
Dim verifreserv As New System.Data.Odbc.OdbcCommand("", sqlCnx)
Dim Nbdates As New System.Data.Odbc.OdbcCommand("SELECT COUNT(datedispo) FROM lesdates WHERE CAST(datedispo AS VARCHAR(10)) LIKE '" & madate(0) & "-" & moismodif & "%'", sqlCnx)
Dim mesdates As New System.Data.Odbc.OdbcCommand("SELECT datedispo FROM lesdates WHERE CAST(datedispo AS VARCHAR(10)) LIKE '" & madate(0) & "-" & moismodif & "%' ORDER BY datedispo", sqlCnx)
Dim myreader As Odbc.OdbcDataReader
sqlCnx.Open()
myreader = mesdates.ExecuteReader
For i = 1 To Nbdates.ExecuteScalar
myreader.Read()
verifreserv.CommandText() = "SELECT COUNT(codeelever) FROM reservation WHERE codeelever = " & moncode(0) & " AND CAST(jourreserv AS VARCHAR(10)) = '" & myreader(0).ToString & "'"
If verifreserv.ExecuteScalar = 0 Then
ajoutDate.CommandText() = "INSERT INTO reservation VALUES(" & maxReserv.ExecuteScalar + 1 & ",'RR','N'," & moncode(0) & ",'" & myreader(0).ToString & "','CPREPRR','O','N')"
Try
ajoutDate.ExecuteNonQuery()
Catch
MsgBox("Reservation non autorisée car aucun parent n'est associé à cet enfant", MsgBoxStyle.OkOnly, "Avertissment")
TB_CharResEnf.Text = ""
CLB_DatePres.ClearSelected()
End Try
End If
Next
sqlCnx.Close()
End Sub
