Access 对象已关闭,操作不允许!
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Private Sub Command1_Click()
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
Rs.CursorLocation = adUseClient
Rs.Open "Select * from Tm", Conn, adOpenKeyset, adLockOptimistic
End Sub
Private Sub Command2_Click()
Msgbox Rs.RecordCount 这里就显示对象已关闭了
End Sub
郁闷了耶，那位高手帮忙看看！
贴出的代码没有问题，应该其他位置有问题，看其他位置是否有关闭
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
Private Sub Command1_Click()
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
Rs.CursorLocation = adUseClient
Rs.Open "Select * from Tm", Conn, adOpenKeyset, adLockOptimistic
Rs.MoveFirst
Rs.MoveLast
MsgBox Rs.RecordCount
End Sub
先单击Command1
然后单击Command2
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
*********************************
这个定义在公共模块里吗？
要保证变量没�
相关问答：
我有一个表,
大致结构式这个样子的
id itname fenlei1id fenlei2id num
1 物品1 1 &n ......
select max(classname) as classname,max(parentpath) as parentpath,max(rootid) as rootid,max(classid) as classid from prodclass where parentpath like '%0,3%' and Child=0 group by classname order ......
string connectionString = ConfigurationManager.AppSettings["ConnectionString"];
string sql = "insert into times(time) values('" + DateTime.Now + ......
