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