Private Function dropdl_fill()
Dim da As SqlDataAdapter
Dim ds As New DataSet
Dim sql As String
sql = "SELECT BC01_LOCATION, LOC_NAME FROM dropdownlist WHERE BC01_DOMAINUSER =" + Session("UserID") + ""
Dim cnn As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings().Item("conn_30"))
cnn.Open()
da = New SqlDataAdapter(sql, cnn)
da.Fill(ds, "list")
cnn.Close()
Me.Dropdownlist1.Items.Clear()
Dim dt As DataTable = ds.Tables("list")
Dropdownlist1.Items.Add(New ListItem("--请 选 择--", "-1"))
For Each datarow As DataRow In dt.Rows
Dropdownlist1.Items.Add(New ListItem(datarow(1).ToString, datarow(0).ToString))
Next
End Function
本文介绍了一个使用Visual Basic.NET实现从数据库获取数据并填充到Web页面下拉列表的方法。通过连接数据库,执行SQL查询来获取特定于用户的地点信息,并将其转换为可供下拉列表使用的项。
3944

被折叠的 条评论
为什么被折叠?



