adodc控件数据查询，新手求救，在线等！

Question

98系统，access200数据库
用adodc1.find（）函数只能查询到满足条件的一条纪录，所以用sql语句实现
我想检索到数据库中的满足查询条件的所有纪录，代码如下，但是不能实现，请帮忙！Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=E:\数据库例子\db1.mdb;Persist Security Info=True"
Adodc1.Recordset.Close
Adodc1.RecordSource = "select * from person where name='" + Text3.Text + "'"
Adodc1.Recordset.Open
Adodc1.Refresh
DataGrid1.Refresh

Answer 1

郁闷！自己顶一下，我就是想要Adodc1.Recordset返回我查询到的数据纪录而已

Answer 2

Adodc1.RecordSource = "select * from person where name='" + Text3.Text + "'"
Adodc1.Recordset.CursorType=adOpenStatic
Adodc1.Recordset.Open

Answer 3

Dim conn As ADODB.Connection
Dim rs As Recordset  Set conn = New Connection
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=E:\数据库例子\db1.mdb;Persist Security Info=True"  Set rs = New Recordset
  rs.CursorLocation = adUseClient
  rs.Open "select * from person where name='" & Text3 & "'", conn, adOpenStatic, adLockOptimistic Set DataGrid1.DataSource=rs

Answer 4

Adodc1.Recordset.RecordCount楼主在后面加这么一句话就知道你查到多少条记录了你的代码没问题。

Answer 5

我用下面的代码可以啊，运行没有问题：
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * FROM TableName"
Adodc1.Refresh
DataGrid1.Refresh