Question

VB怎样用combo控件实现多条件查询access数据库？在线等。。。

Public conn As ADODB.Connection

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.CursorLocation = adUseClient
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=鸟图查询.mdb"
conn.CommandTimeout = 30
conn.Open
End Sub

Private Sub 查询_click()
Adodc1.RecordSource = "select * from 鸟图查询 where 头 = '" & Combo1.Text & "'"
Adodc1.RefreshAdodc1.RecordSource = "select * from 鸟图查询 where 胸 = '" & Combo2.Text & "' and 头 = '" & Combo1.Text & "'"
Adodc1.Refresh
Set 鸟图查询.DataGrid1.DataSource = Adodc1
End Sub

我这个是通过选择鸟各个部位的特征来查询鸟的名字。代码已经写成了这个样子。然后显示“未找到方法或数据成员”显示是最后一框的Private Sub 查询_click()用黄色框了起来，Adodc1.RefreshAdodc1.RecordSource 中的refreshAdodc1也用蓝色描了出来。条件很多，有十个八个，如何解决？

Answer 1

Private Sub 查询_click()
Adodc1.RecordSource = "select * from 鸟图查询 where 胸 = '" & Combo2.Text & "' and 头 = '" & Combo1.Text & "'"
Adodc1.Refresh
Set 鸟图查询.DataGrid1.DataSource = Adodc1
End Sub

追问

直接换上去后显示“未发现数据源名称并且未指定默认驱动程序”

追答

你要先给Adodc1建立数据库连接。你在Form_Load中建立的是数据库连接对象，与Adodc1没有半毛钱关系。

追问

不好意思我不会怎么写代码，，能不能教一下？谢谢！

追答

不用写代码。右键点Adodc1控件，选ADODC属性，然后在“使用连接字符串”那里输入：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=鸟图查询.mdb

再点确定即可。

追问

然后呢？

追答

然后就可以运行了

追问

但是我这还是出现问题，，，
显示实时错误“424”