Function txOpenTBSe(ByVal sql As String, ByVal tbName As String) As System.Data.DataTable '打开数据集,并返回装有数据的Table变' Dim conn As System.Data.OleDb.OleDbConnection Dim Adapter As System.Data.OleDb.OleDbDataAdapter Dim prov = txGetDBConnStr() Dim ds As New System.Data.DataSet() conn = New System.Data.OleDb.OleDbConnection(prov) conn.Open() Adapter = New System.Data.OleDb.OleDbDataAdapter(sql, conn) Adapter.Fill(ds, tbName) txOpenTBSe = ds.Tables(tbName) conn.Close() End Function Sub txDSToDDList(ByVal sql As String, ByVal fldText As String, ByVal fldValue As String, ByVal ddList As Object) '将数据集添加到ListBox下拉列表中。 Dim tb As DataTable tb = txOpenTBSe(sql, fldText) ddList.DataSource = tb ddList.DataTextField = fldText ddList.DataValueField = fldValue ddList.DataBind() End Sub '使用: dim sql as string="Select ID,NAME from ..." txDSToDDList(sql,"NAME","ID",dropdownlist)
DropDownList1.DataTextField="value";DropDownList1.DataSource=ht;
DropDownList1.DataBind();前面两句一般是放在aspx页上的。--------------------------------
AspNetPager 免费分页控件4.2版发布,同时发布最新源代码,欢迎下载:http://www.webdiyer.com
'打开数据集,并返回装有数据的Table变'
Dim conn As System.Data.OleDb.OleDbConnection
Dim Adapter As System.Data.OleDb.OleDbDataAdapter
Dim prov = txGetDBConnStr()
Dim ds As New System.Data.DataSet()
conn = New System.Data.OleDb.OleDbConnection(prov)
conn.Open()
Adapter = New System.Data.OleDb.OleDbDataAdapter(sql, conn)
Adapter.Fill(ds, tbName)
txOpenTBSe = ds.Tables(tbName)
conn.Close()
End Function
Sub txDSToDDList(ByVal sql As String, ByVal fldText As String, ByVal fldValue As String, ByVal ddList As Object)
'将数据集添加到ListBox下拉列表中。
Dim tb As DataTable
tb = txOpenTBSe(sql, fldText)
ddList.DataSource = tb
ddList.DataTextField = fldText
ddList.DataValueField = fldValue
ddList.DataBind()
End Sub
'使用:
dim sql as string="Select ID,NAME from ..."
txDSToDDList(sql,"NAME","ID",dropdownlist)