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
|
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() |