vb combo控件互动问题

来源：百度知道 编辑：UC知道 时间：2024/05/29 13:50:34
我有两个数据库 是 access 的。 一个是表的表头是班级，第二个表的表头是班级、学生姓名。
我想做2个combo，combo1放的是班级，当选择了班级，combo2中会自动加入选定班级的学生姓名。
请教高手这个程序怎么写。
给20分谢谢~~
用的是 combox 控件 ,连接数据库用的是data控件

前三个函数是操作数据库的，不知道你用的控件还是设置的变量（我的意思是连接数据库你用的控件还是设置的变量）... 最下面的就是 随着combox1 的变化 combox2 中的数据发生变化
Public Function connectstr() As String
strsql = App.Path & "\数据库.mdb"
connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strsql & ""
End Function
Public Function runselect(ByVal sqlm As String) As ADODB.Recordset '返回记录集
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cn = New ADODB.Connection
cn.Open connectstr()
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Open Trim(sqlm), cn, adOpenDynamic
Set runselect = rs
Set rs = Nothing
Set cn = Nothing
End Function
Public Function runsql(ByVal sql As String) '执行更新
Dim cn As ADODB.Connection
'On Error GoTo sql_err
Set cn = New ADODB.Connection
cn.Open connectstr()
cn.Execute Trim(sql)
Set cn = Nothing<