数据库查询问题?

autonow 2004-10-14 01:08:57
如何用combobox实现下拉选项菜单,下拉选项中的选出的关键字作为在数据库中进行索引的关键字,最后把查询的结果显示在listbox中.
那位高手能帮帮我的忙,小弟先谢谢啦!
...全文
126 点赞 收藏 7
写回复
7 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
haohaohappy 2004-10-15
用DATAGRID控件比你用的LISTBOX好多了
回复
tj123 2004-10-14
" & Trim(IIf(Combo1.Text = "", "'=ALL'", "学校='" & Trim(Combo1.List(Combo1.ListIndex)) & "'")) & "

这是选择的内容

然后把结果放到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了
回复
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
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告