如何用两个combo控件查询access数据库？ - 编程论坛

#2

Artless2012-05-16 01:42

代码

#3

G小路2012-05-16 11:05

以下是引用Artless在2012-5-16 01:42:04的发言：

代码

版主，能不能再多点拨则个！

#4

风吹过b2012-05-16 13:48

查询会不？

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

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

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

#5

G小路2012-05-16 22:48

以下是引用风吹过b在2012-5-16 13:48:30的发言：

查询会不？

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

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

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

可惜我SQL命令还不是很会写，多谢版主啦！

#6

G小路2012-05-18 13:34

以下是引用风吹过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

#7

Artless2012-05-18 23:43

Text1.Text=rs(combo2.text)

#8

G小路2012-05-19 02:44

以下是引用Artless在2012-5-18 23:43:05的发言：

Text1.Text=rs(combo2.text)

多谢版主！

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