查人人中国名人网超大陆罗迪尼亚的熔岩:DropDownList 绑定sqldatareader?
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/27 19:12:18
我已经该为：
Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
Dim constr As String = "SELECT h2 FROM History_sp "
Dim conn As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\spdb.mdb;" & _
"User ID=Admin;" & _
"Password="
Dim mycon As OleDb.OleDbConnection = New OleDb.OleDbConnection(conn)
Dim da As DropDownList
Dim mycmd As OleDb.OleDbCommand
Dim myreader As OleDb.OleDbDataReader
mycon.Open()
mycmd = New OleDb.OleDbCommand(constr, mycon)
myreader = mycmd.ExecuteReader
da = e.Item.FindControl("DropDownList1")
da.DataSource = myreader
da.DataBind()
'在此处放置初始化页的用户代码
End Sub
但还是不行，是哪里的问题呀
Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemDataBound
Dim constr As String = "SELECT h2 FROM History_sp "
Dim conn As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\spdb.mdb;" & _
"User ID=Admin;" & _
"Password="
Dim mycon As OleDb.OleDbConnection = New OleDb.OleDbConnection(conn)
Dim da As DropDownList
Dim mycmd As OleDb.OleDbCommand
Dim myreader As OleDb.OleDbDataReader
mycon.Open()
mycmd = New OleDb.OleDbCommand(constr, mycon)
myreader = mycmd.ExecuteReader
da = e.Item.FindControl("DropDownList1")
da.DataSource = myreader
da.DataBind()
'在此处放置初始化页的用户代码
End Sub
但还是不行，是哪里的问题呀
可以使用这个方法
while myreader.read
Dim tempitem As New ListItem
tempitem.Text = CType(reader("fieldname"), String)
tempitem.Value = CType(reader("blogclassname"), String)
dropdownlist1.Items.Add(tempitem)
end while
绝对可以的,记着要把字段名改成你的字段名方可以.