怎么解决If rs.RecordCount>1 Then....但是它后面提示，如果对象已关闭，则不执行应用程序所要求操作。

[smarter]

[zhhrlzm]

1、还没有打开连接
2、把连接关闭了

[little_hero]

此前你肯定执行了rs.close关闭操作，导致你的rs.recordcount不存在!

[smarter]

没有啊，我把完整的事件过程给你看一下。Private Sub Form_Load()

Dim cnn As New ADODB.Connection
Dim regjts As New ADODB.Recordset


cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\vbw\xxcx.mdb;Jet OLEDB:Database Password=pwd;"
regjts.CursorLocation = adUseClient
regjts.Open "select * from bbbb", cnn, adOpenKeyset, adLockOptimistic, adCmdText
Set Adodc1.Recordset = regjts

End Sub

[ar7_top]

没有看见你的上面出错的那句话啊

[sosolong]

你试一下，在语句If rs.RecordCount>1 Then....前面加上一句：if rs is nothing then
endif 如果该表达式为true 则不要执行If rs.RecordCount>1 Then....了。

[little_hero]

他给出的代码没错，只是没见到rs而已？？？？

[houtianxi]

你吧 regjts.Open "select * from bbbb", cnn, adOpenKeyset, adLockOptimistic, adCmdText该为
regjts.Open "select * from bbbb", cnn,adOpenStatic 试试

[uguess]

看这段代码就知道了，他把Connection放到了Form_load 事件中，然后再其它的事件中在执行动作，但这个连接他定义的是局部变量！所以应该把定义改称模块变量就OK拉！

[baoxiang]

agree uguess(uguess)　

[uguess]

又一个“保证不给分”的家伙！

[smarter]

楼上的不要再说我了，
我不都给了你们吗？
要讲点信用对不对？

[810303]

应该这样：
rs.CursorLocation = adUseClient
rs.Open "other", mainf.conn, adOpenKeyset, adLockPessimistic