1180
社区成员
- 主页
数据库查询问题?
如何用combobox实现下拉选项菜单,下拉选项中的选出的关键字作为在数据库中进行索引的关键字,最后把查询的结果显示在listbox中.
那位高手能帮帮我的忙,小弟先谢谢啦!
那位高手能帮帮我的忙,小弟先谢谢啦!
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
haohaohappy 2004-10-15
用DATAGRID控件比你用的LISTBOX好多了
tj123 2004-10-14
" & Trim(IIf(Combo1.Text = "", "'=ALL'", "学校='" & Trim(Combo1.List(Combo1.ListIndex)) & "'")) & "
这是选择的内容
然后把结果放到listbox的text里就行了
自己改一下就行了
这是选择的内容
然后把结果放到listbox的text里就行了
自己改一下就行了
aiur2000 2004-10-14
sql="select xxmc,x2 from biao where xxmc='" & combo1.text & "'"
其中x2字段为你要的
中间省去取rs
do while not rs.eof
List1.AddItem rs!x2
rs.movenext
loop
就ok了
其中x2字段为你要的
中间省去取rs
do while not rs.eof
List1.AddItem rs!x2
rs.movenext
loop
就ok了
autonow 2004-10-14
我数据库已经连接打开，数据库名中表的名字叫报名表，有多个字段，现在我想通过combobox下拉进行选择，从中选出学校名称，表中学校名称字段名称为xxmc,学校名称作为在表中的查询条件，把符合条件的记录的另一字段kh(考号)显示在listbox中
autonow 2004-10-14
我数据库已经连接打开，数据库名中表的名字叫报名表，有多个字段，现在我想通过combobox下拉进行选择，从中选出学校名称，表中学校名称字段名称为xxmc,学校名称作为在表中的查询条件，把符合条件的记录的另一字段显示在listbox中
starsoulxp 2004-10-14
up
caihong 2004-10-14
Private Sub Combo1_Change()
Dim prd As Recordset
Set prd = gdb.OpenRecordset("select * from bianma where name='" + Combo1.Text + "'", 2)
List1.Clear
While Not pRd.EOF()
List1.AddItem pRd("name")
pRd.MoveNext
Wend
End Sub
Dim prd As Recordset
Set prd = gdb.OpenRecordset("select * from bianma where name='" + Combo1.Text + "'", 2)
List1.Clear
While Not pRd.EOF()
List1.AddItem pRd("name")
pRd.MoveNext
Wend
End Sub
