VB Code:
Public Sub FillDpdBoxes()
Dim con As New SqlConnection("Server=test.com;pwd=ytr;user id=hju;Database=driftstopp;")
con.Open()
Dim sqlcom As New SqlCommand
sqlcom.Connection = con
sqlcom.CommandText = "SELECT namn, attributtyp FROM dbo.attribut WHERE attributtyp = '83285585-B3DD-4B7A-86D8-65857683EA67' ORDER BY namn"
drpServer.DataSource = sqlcom.ExecuteReader(CommandBehavior.CloseConnection)
drpServer.DataTextField = "namn"
drpServer.DataValueField = "attributtyp"
drpServer.DataBind()
con.Open()
sqlcom.CommandText = "SELECT namn, attributtyp FROM dbo.attribut WHERE attributtyp = '6E71059A-1B21-44E1-8C07-9522B46F90C3' ORDER BY namn"
drpAnsvarig.DataSource = sqlcom.ExecuteReader(CommandBehavior.CloseConnection)
drpAnsvarig.DataTextField = "namn"
drpAnsvarig.DataValueField = "attributtyp"
drpAnsvarig.DataBind()
end sub
VB Code:
Public Sub FillDpdBoxes()
Dim server() As String = {"A", "B", "C", "D"}
Dim resp() As String = {"A", "B", "C", "D"}
drpServer.DataSource = server
drpAnsvarig.DataSource = resp
drpServer.DataBind()
drpAnsvarig.DataBind()
End Sub