form上有两个控件combo1和combo2,想从数据库中取出来两个字段的数据,分别是这两个字段department和name,combo1对应的是department,combo2对应的是name,combo1通过click事件变动,如何使combo2也跟着变动.
解决方案 »
- 关于文本文件(急~)
- 通过createprocess,waitforsingleobject.这两个函数,在执行外部程序时。如:执行aa.exe在aa.exe程序执行的时候,我拖动它,在主程序里它
- 请问VB里有类似于C里的floor取整函数吗
- 为何得不到应有的编程结果?
- ADSL 如何定时 自动拨号,自动断线?
- 远程数据库备份??急!
- 我有10张图片,要求每次显示其中三张,图片文件名由一个循环变量产生,应该怎么做?
- 怎么实现label1.backcolor一秒种变一次颜色?
- fpSpread表格中获取的类容
- 向VB爱好者们请教!如何在VB代码中引用CREATE TABLE,CREATE VIEW等语句呢?
- qq(8017281)vb编程俱乐部
- 怎样把几个函数封装成DLL
Me.Combo1.Clear if not rs.eof then
combo2.additem rs.fileds("name")
rs.movenext
end if
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 SubPrivate 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
combo1.clearif not rs.eof then
combo2.additem rs.fileds("name")
rs.movenext
end if
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
cn.CursorLocation=adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;User Id=admin;Password=;"
End Sub上面是连接Access库的代码,App.Path 表示当前工程所在的目录
Private Sub Combo1_DropDown()
......
End SubPrivate Sub Combo2_DropDown()
......
End Sub
在窗体加载的时候我添加了combo1,在点击了combo2的时候我执行这条SQL语句("select distinct name from 表 where department='" & Combo1.Text & "'")系统提示 rs.Open "select budget from subject where department='" & Combo1.Text & "'"
这句错误. 在此上下文中它可能已被关闭或无效!