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
*********************************
这个定义在公共模块里吗？
要保证变量没�
相关问答：
问题如下：
用查询语句
select * from tab where fil like 'CK090902'能查找出一条记录并显示出来
改为
select * from tab where fil = 'CK090902'
就不能查找到，也显示不出来 ......
_RecordsetPtr CMyAdo::SelectRecord(string &where, string &tablename,string &field, int way )
{
int ret = 0;
_RecordsetPtr pset;
CString sql;
& ......
哪里出错了，输出这样的结果？？
<%@ Page Language="VB" AutoEventWireup="false" aspcompat="true" CodeFile="Default.aspx.vb" Inherits="_Default" %&g ......
如题在我打开access修改的时候报错
我装的Ghost 的XP版 sp3的补丁
错误签名
AppName: msaccess.exe AppVer: 11.0.8166.0 AppStamp:46437912
ModName: pintlgnt.ime&n ......
最近准备为公司网站用VB做个产品展示生成，生成部分基本没问题，
问题出现在查询部分，使用了MSHFelxGrid(DATAGrid不能满足操作需求)，本来以为收工了，昨天再次测试的时候发现了以下问题
当数据库字段为� ......
