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 |
Partager