CheckBox avec 2 informations

Version imprimable

Bonsoir à tous,

je suis débutant en vb.net et je realise un programme qui se connecte à une base sqlserver.

J'arrive à effectuer la connexion sqlserver et je remplis une checkbox:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim Requete As String = "select id, Codigo FROM tyusuario where Codigo like 'ab%'" Dim Commande As New SqlCommand(Requete, Connexion) Dim Adaptateur As New SqlDataAdapter(Commande) Dim MonDataSet As New DataSet Adaptateur.Fill(MonDataSet, "BDD2") 'MsgBox(MonDataSet.Tables("BDD2").Rows()) Liste_utilisateur.UseTabStops = True Liste_utilisateur.UseCustomTabOffsets = True Liste_utilisateur.CustomTabOffsets.Add(2) For Each Ligne As DataRow In MonDataSet.Tables("BDD2").Rows() 'MsgBox(Ligne("Codigo")) Liste_utilisateur.Items.Add(Ligne("ID") & vbTab & Ligne("Codigo")) Next
En fait je voudrais remplir la checkbox avec deux informations comme c'est le cas mais je sais pas si c'est comme ça qu'il faut faire :( :
ID (SQL),Codigo (Nom)

Le but est une fois la/les case(s) cocher, je recuperer ID pour exécuter des requêtes SQL.

Est-ce que mon code pour remplir la checkbox est correcte ?

merci d'avance pour votre aide

guigui69

02/10/2016, 03h08
clementmarcotte

Bonjour,

À vrai dire, je vois mal comment tu peux traiter deux choses différentes avec le même checkbox. La "tradition" c'est un checkbox par item. Dans ton cas, tu sembles vouloir des recherches combinées de deux items (toujours les mêmes) déterminées par la valeur du checkbox.

Mais, dans ce cas, tu as besoin d'un checkBox différent par combinaison à tester.

Si tu parles d'afficher plusieurs combinaisons ou plusieurs items et en choisir un(e) seul(e) à la fois, je dirais que tu aurais probablement plus de chance avec un ListBox ou un ComboBox.
02/10/2016, 08h31
wallace1

Bonjour,

Ton code n'implémente pas de Checkbox mais un contrôle de type Liste (ListBox ou ListView). Si tu veux des checkBox devant chaque ligne il faut regarder du côté de CheckedListBox ou ListView avec la propriété CheckBoxes=True.

A+
02/10/2016, 13h39
guigui69

Bonjour,

Je me suis trompé dans les termes :(

Quelle serait (pour vous) le meilleur module (listbox;chexkbox, etc..) pour arriver à renseigner ID et le nom, pour que par la suite quand mon utilisateur sélectionne plusieurs choix je puisse récupérer la valeur de ID?

Merci par avance pour vos conseils

guigui69
02/10/2016, 15h38
rv26t

Bonjour,

Avec le contrôle "ListBox" regardez du coté de DisplayMember et ValueMember. (Pensez à lier la table du dataset au datasource de la listbox)
02/10/2016, 16h54
guigui69

En fait je suis parti sur une ckeckbox car l'utilisateur doit cocher plusieurs utilisateurs mais je voudrais arriver à inserer aussi ID utilisateur car c'est avec ca que je vais faire mes requete SQL à la suite.

Citation:

Envoyé par rv26t

Bonjour,

Avec le contrôle "ListBox" regardez du coté de DisplayMember et ValueMember. (Pensez à lier la table du dataset au datasource de la listbox)

Je suis désolé je n'ai pas compris :

(Pensez à lier la table du dataset au datasource de la listbox)

guigui69

Dans ce cas vous pouvez utiliser une checkListBox (comme l'indique wallace1)

Définir une classe permettant d'identifier les codigo "id, nom"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Class Codigo
    Private _id As Integer
    Private _nom As String
    Public Sub New(ByVal ID As Integer, ByVal Nom As String)
        _nom = Nom
        _id = ID
    End Sub
    Public ReadOnly Property ID() As Integer
        Get
            Return _id
        End Get
    End Property
 
    Public ReadOnly Property Nom() As String
        Get
            Return _nom
        End Get
    End Property
End Class

Sur un form une checklistbox, un bouton "btnVoirSelection", un richtextbox pour visu

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Class Form1
    Dim data As List(Of Codigo) = New List(Of Codigo)
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'exemple de remplissage à remplacer par le votre
        data.AddRange({New Codigo(0, "Zéro"), New Codigo(1, "Un"), New Codigo(2, "Deux"), New Codigo(3, "Trois"), New Codigo(4, "Quatre"), New Codigo(5, "Cinq"), New Codigo(6, "Six"), New Codigo(7, "sept"), New Codigo(8, "Huit"), New Codigo(9, "Neuf"), New Codigo(10, "Dix")})
 
        CheckedListBox1.Items.Clear()
        CheckedListBox1.DataSource = data
        CheckedListBox1.DisplayMember = "Nom"
        CheckedListBox1.ValueMember = "ID"
    End Sub
 
    ' recherche les éléments cochés d'un CheckedListBox
    Private Sub btnVoirSelection_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVoirSelection.Click
        For Each CodigoCoche As Codigo In CheckedListBox1.CheckedItems
            RichTextBox1.Text &= "Le CheckedBox avec l'ID '" & CodigoCoche.ID & "' est coché. " & vbCrLf ' pour info, le texte est dans CodigoCoche.Nom
        Next
    End Sub
End Class