Discussion :

[alicia26]

Bonjour à tous et heureuse année 2013,

Le script ci dessous permet d'afficher les données d'une requête dans un listbox.
Cette fonction est nickel. Mais , le but du projet est d'afficher les questions et les possibilités de reponse dans un tableau en fonction des rubriques cochées en amont et je rame dessus depuis une semaine.
J'ai essayé avec un listbox pour me rassurer que mon script est fonctionnel.

Merci pour votre aide si précieuse.

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
32
33
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
 
 
        Dim ref As Integer '= CheckBoxList1.SelectedValue
        Dim tab(1000) As String
        Dim i As Integer
        Dim SqlText2 As String
        Dim Reader2 As SqlDataReader
        Dim rs As New ADODB.Recordset
        ListBox1.Items.Clear()
         Try
            DBConn.Open()
            For i = 0 To CheckBoxList1.Items.Count - 1
                If CheckBoxList1.Items.Item(i).Selected Then
                    ref = extract("idrubrique", "RUBRIQUE", "rubrique_name='" & CheckBoxList1.Items.Item(i).Text & "'")
                    SqlText2 = " SELECT     RUBRIQUE.rubrique_name , QUESTION.question_name FROM RUBRIQUE INNER JOIN QUESTION ON RUBRIQUE.idrubrique = QUESTION.idrubrique where QUESTION.idrubrique  = '" & Val(ref) & "'"
 
 
                    Dim cmd2 As New SqlCommand(SqlText2, DBConn)
                    Reader2 = cmd2.ExecuteReader()
                                     While Reader2.Read
                        ListBox1.Items.Add(Reader2.GetValue(0).ToString)
 
                    End While
                                  Reader2.Close()
 
                End If
            Next
        Finally
            DBConn.Close()
        End Try
 
            End Sub

[Rainui]

Bonjour,

Comment avez vous créé votre base de données?

Dans le cas ou vous avez créé 3 tables :
Table Catégories : ID, Catégorie
Table Questions : ID, IDCatégorie, Question
Tables Réponses : ID, IDQuestion, Réponse

Vous pouvez remplir un premier CheckBoxList de catégories avec une requête du type "SELECT * FROM Catégories ORDERBY Catégorie" sur l'évènement .Load du formulaire.
Sur un évènement du CheckBoxList, créer une deuxième requête dynamiquement à partir des sélections de la CheckBoxList. Celle-ci peut remplir une ListBox.
Puis une dernière requête affichant les réponses possibles dans un CheckBoxList doit être créé à partir de la sélection de la question.

Je ne connais pas bien le fonctionnement du CheckBoxList mais il doit être possible de lui passer une DataTable ou n'importe quelle Collection dans son paramètre .DataSource. Ce qui vous réduirait considérablement le code.

Je testerai cet aprem voir si je peux vous apporter plus de précision.