数据库查询提示:"对象打开时不允许操作"

Question

一个数据库,
两个DATAgrid控件
第一个DATAgrid控件,要浏览出数据库的所有记录.
第二个DATAgrid控件,要浏览出查询的记录.
但用一个记录集,
如果用来浏览,刚才查询的结果就浏览不出来,
如果用来查询,浏览的结果就出不来.
现在我要怎么来做才能同时在两个DATAgrid控件里面显示出相要看到的数据呢?

Answer 1

Dim Cnn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Set Cnn = New ADODB.Connection
   Cnn.CursorLocation = adUseClient
   Cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
   '实例化recordset对象
   Set Rs = New ADODB.Recordset
   Set sel_RS = New ADODB.Recordset
   'rs.Open "data", cnn, adOpenDynamic, adLockOptimistic
   Rs.Open "select * from data ", Cnn, adOpenDynamic, adLockOptimistic
   '用datagrid浏览出数据库的记录
   Set DataGrid1.DataSource = Rs
 

Answer 2

在浏览查询记录之前加一个判断语句:
if rs.state=stateopen then
rs.close
endif

Answer 3

如果执行rs.close，那第一个用来浏览的DATAgrid控件就看不到数据了

Answer 4

建立两个数据源连接数据库,如ADODC1和ADODC2,分别连接DATAGRID