vb Combo控件与数据库

来源：百度知道 编辑：UC知道 时间：2024/09/21 21:58:30
数据库（请看图片）：
http://p15.freep.cn/p.aspx?u=v20_p15_p_0806062243504338_0.jpg

Combo1 和 Combo2

Combo1 读取 字段1 “移动”“网通”（不可重复）

Combo2 根据字段1 读取字段2 “销售”“领导”（不可重复）

Combo2 选择 “销售”或“领导”

ListView1 显示所有结果

例如：选择--移动--领导

则ListView1显示：
李三
李四

============================

谢谢
QQ 8588051 还望大家帮忙 小女子在这谢谢了

Public Function OpenConnForAccess(ByVal FileName As String) As ADODB.Connection
Dim AdoConn As New ADODB.Connection
With AdoConn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";Persist Security Info=False"
.Open
End With
Set OpenConnForAccess = AdoConn
End Function

Public Function OpenRecordset(ByVal strSql As String, ByVal AdoConn As ADODB.Connection) As ADODB.Recordset
Dim rs As New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open strSql, AdoConn, , , adCmdText
End With
Set OpenRecordset = rs
End Function

Private Sub Form_Load()
Dim conn As ADODB.Connection
Set conn = OpenConnForAccess(App.Path & "\test1.mdb")
Dim rs As ADODB.Recordset
Set rs = OpenRecordset("select distinct 公司 from t