运行时提示‘对象打开时，不允许操作’

[ZSZHONGAI]

运行时，第一次按COMMAND1，DATAGRID出来列表，可第二次按COMMAND1，出来‘对象打开时，不允许操作’的错误提示。

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click(）

rs.CursorLocation = adUseClient
rs.Open "select * from stu where name like '%" & Text1.Text & "%' ", conn, adOpenKeyset, adLockOptimistic

DataGrid1.ClearFields
Set DataGrid1.DataSource = rs
DataGrid1.Refresh

End Sub


Private Sub Form_Load()

Dim connstr As String
connstr = "Provider = 'Microsoft.Jet.OLEDB.4.0';Data Source=F:\练习\test.mdb"
conn.Open connstr

End Sub

[ZSZHONGAI]

我知道了，谢谢。：）

[cqq_chen]

DataGrid1.ClearFields
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
rs.close

[饮水需思源]

if rs.state<>adstateclosed then rs.close
rs.Open "select * from stu where name like '%" & Text1.Text & "%' ", conn, adOpenKeyset, adLockOptimistic

[galactic]

反复使用对象时 要注意对象的状态
最好是每一次使用完对象就将其关闭 这样可以避免产生‘对象打开时，不允许操作’此类的错误

[guyehanxinlei]

用完之后请记得关闭哟！

[hui_hui_2007]

每次打开时,先判断其是否打开,如果打开则先关闭之

[hui_hui_2007]

反复使用对象时 要注意对象的状态
最好是每一次使用完对象就将其关闭 这样可以避免产生‘对象打开时，不允许操作’此类的错误
-------------------
不尽然吧.如果是窗体级对象,不能随时关闭的,只能是每次使用时,瞬间关闭，然后再打开

[linguishan]

重新建立个对象名了