| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 
 |  
Dim serv_id as Integer
Dim serv_nom as String
 
connexion = New SQLConnection(strcnx)
                Dim reqSelectService As String = "select serv_id,serv_nom from service"
                Command = New SqlCommand(reqSelectService, connexion)
                connexion.Open()
                Dim oReader As SqlDataReader = Command.ExecuteReader()
                'DropDownListService = New DropDownList()
               ' Do
                    While oReader.Read()
                       If Not (oReader Is Nothing) Then
 
 
                        serv_id = Integer.Parse(oReader("serv_id"))
                        serv_nom = oReader("serv_nom").ToString
                        DropDownListService.Items.Add("Id du serveur: " & serv_id & " Nom du serveur: " & serv_nom)
 
 
                     End If
                    End While
               ' Loop While oReader.NextResult()
                oReader.Close()
                'DropDownListService.DataBind()
connexion.close() |