标题:如何用两个combo控件查询access数据库?
只看楼主
G小路
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2011-7-6
结帖率:100%
已结贴  问题点数:18 回复次数:7 
如何用两个combo控件查询access数据库?
例如有两个combo控件:
combo1“姓名”下拉菜单:张三,李四,王五;
combo2“科目”下拉菜单:语文,数学,英语;
现可有access数据库表:
姓名  语文 数学 英语
张三  80    90    80
李四  90    80    80
王五  90    80    90
还有一个文本控件text1,和一个命令控件command1。
要求根据两个combo下拉菜单的选择,点击命令按钮command1确定后,在文本控件text1输出相应的成绩。
我刚学VB,只会用adodc和datagrid控件,调出数据库显示出来。请哪位高人能够不吝赐教,在此多表谢意!
搜索更多相关主题的帖子: access 菜单 数据库表 如何 数学 
2012-05-16 01:28
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:9 
代码

无知
2012-05-16 01:42
G小路
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2011-7-6
得分:0 
以下是引用Artless在2012-5-16 01:42:04的发言:

代码

版主,能不能再多点拨则个!
2012-05-16 11:05
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4912
专家分:29900
注 册:2008-10-15
得分:9 
查询会不?

1、初始化。
   列出所有的姓名,添加到 combo1 中。
   列出所有的科目,添加到 combo2 中。

2、按钮。
   根据 combo1 和 combo2 的内存,生成  SQL 查询命令,然后查出结果,显示到 text1 中。


adodc 中一样可以接受 SQL 命令。你再确定一下 SQL 命令吧。
还要 adodc 对象及对象层次。

授人于鱼,不如授人于渔
早已停用QQ了
2012-05-16 13:48
G小路
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2011-7-6
得分:0 
以下是引用风吹过b在2012-5-16 13:48:30的发言:

查询会不?

1、初始化。
   列出所有的姓名,添加到 combo1 中。
   列出所有的科目,添加到 combo2 中。

2、按钮。
   根据 combo1 和 combo2 的内存,生成  SQL 查询命令,然后查出结果,显示到 text1 中。


adodc 中一样可以接受 SQL 命令。你再确定一下 SQL 命令吧。
还要 adodc 对象及对象层次。


可惜我SQL命令还不是很会写,多谢版主啦!
2012-05-16 22:48
G小路
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2011-7-6
得分:0 
以下是引用风吹过b在2012-5-16 13:48:30的发言:

查询会不?

1、初始化。
   列出所有的姓名,添加到 combo1 中。
   列出所有的科目,添加到 combo2 中。

2、按钮。
   根据 combo1 和 combo2 的内存,生成  SQL 查询命令,然后查出结果,显示到 text1 中。


adodc 中一样可以接受 SQL 命令。你再确定一下 SQL 命令吧。
还要 adodc 对象及对象层次。


版主,在combo控件的list已经添加了下拉菜单。SQL语句写了,但后面怎么写?老写不对!
Option Explicit
   Dim conn As ADODB.Connection
   Dim rs As ADODB.Recordset
Private Sub Command1_Click()
   Set conn = New ADODB.Connection
   Set rs = New ADODB.Recordset
   conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                        "Data Source=" & App.Path & "\科目.mdb;" & _
                        "Persist Security Info=False"
   conn.Open                                               '打开连接
   rs.Open "select '&combo2.text&' from 成绩 'where 姓名 = '&combo1.text&", conn, adOpenKeyset

   Text1.Text =
End Sub
2012-05-18 13:34
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
得分:0 
Text1.Text=rs(combo2.text)

无知
2012-05-18 23:43
G小路
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2011-7-6
得分:0 
以下是引用Artless在2012-5-18 23:43:05的发言:

Text1.Text=rs(combo2.text)

多谢版主!

[ 本帖最后由 G小路 于 2012-5-19 02:45 编辑 ]
2012-05-19 02:44



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-367574-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.461077 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved