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

[bobointo]

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

[dbcontrols]

查询和浏览分开,放到不同的窗体里做

[bobointo]

那能不能放在一个窗体上面呢,谢谢

[dbcontrols]

可以放在一个上面的,至于你是怎么做的你并没说明白,比如数据源和相关代码都没有

[Quote=引用 2 楼 bobointo 的回复:]
那能不能放在一个窗体上面呢,谢谢
[/Quote]

[bobointo]

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

[shuisjshuisj]

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

[bobointo]

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

[lcsfxs]

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