首先得引用ADO(工程/引用/Microsoft AcitateX Data Object 2.X Library)
dim cn as new adodb.connectionstring
Private sub Form_Load()
cn.CursorLocation=adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;User Id=admin;Password=;"
End Sub
Private Sub Combo1_click()
Dim rs As New adodb.Recordset
Set rs = cn.Execute("select distinct name from 表 where department='" & Combo1.Text & "'")
Combo2.Clear
While Not rs.EOF
Combo2.AddItem rs(0) & ""
Wend
rs.Close
Set rs = Nothing
End Sub
主要代码(自己把代码补完整):
Private Sub Combo1_DropDown()
Dim rs As New adodb.Recordset
Set rs = cn.Execute("select distinct department from 表")
Combo1.Clear
While Not rs.EOF
Combo1.AddItem rs(0) & ""
Wend
rs.Close
Set rs = Nothing
End Sub
Private Sub Combo2_DropDown()
Dim rs As New adodb.Recordset
Set rs = cn.Execute("select distinct name from 表 where department='" & Combo1.Text & "'")
Combo2.Clear
While Not rs.EOF
Combo2.AddItem rs(0) & ""
Wend
rs.Close
Set rs = Nothing
End Sub