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