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)