社区
VB基础类
帖子详情
怎么解决If rs.RecordCount>1 Then....但是它后面提示,如果对象已关闭,则不执行应用程序所要求操作。
smarter
2001-07-19 10:06:02
...全文
264
12
打赏
收藏
怎么解决If rs.RecordCount>1 Then....但是它后面提示,如果对象已关闭,则不执行应用程序所要求操作。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
12 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
810303
2001-11-07
打赏
举报
回复
应该这样:
rs.CursorLocation = adUseClient
rs.Open "other", mainf.conn, adOpenKeyset, adLockPessimistic
smarter
2001-11-07
打赏
举报
回复
楼上的不要再说我了,
我不都给了你们吗?
要讲点信用对不对?
uguess
2001-11-07
打赏
举报
回复
又一个“保证不给分”的家伙!
baoxiang
2001-11-05
打赏
举报
回复
agree uguess(uguess)
uguess
2001-11-05
打赏
举报
回复
看这段代码就知道了,他把Connection放到了Form_load 事件中,然后再其它的事件中在执行动作,但这个连接他定义的是局部变量!所以应该把定义改称模块变量就OK拉!
houtianxi
2001-11-05
打赏
举报
回复
你吧 regjts.Open "select * from bbbb", cnn, adOpenKeyset, adLockOptimistic, adCmdText该为
regjts.Open "select * from bbbb", cnn,adOpenStatic 试试
little_hero
2001-07-19
打赏
举报
回复
他给出的代码没错,只是没见到rs而已????
sosolong
2001-07-19
打赏
举报
回复
你试一下,在语句If rs.RecordCount>1 Then....前面加上一句:if rs is nothing then
endif 如果该表达式为true 则不要执行If rs.RecordCount>1 Then....了。
ar7_top
2001-07-19
打赏
举报
回复
没有看见你的上面出错的那句话啊
smarter
2001-07-19
打赏
举报
回复
没有啊,我把完整的事件过程给你看一下。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
little_hero
2001-07-19
打赏
举报
回复
此前你肯定执行了rs.close关闭操作,导致你的rs.recordcount不存在!
zhhrlzm
2001-07-19
打赏
举报
回复
1、还没有打开连接
2、把连接关闭了
手机管理系统
If
rs
1.
Record
Count
> 0 Then txtusername.Text = Trim(
rs
1.Fields("
操作
员名称")) End If
rs
1.Close End If If txtusername.Text = "" Then MsgBox "
操作
员编号不存在!", vbOKOnly + vbInformation, "修改...
VB ADODB的小程序(代码)五.rar
在VB ADODB中,
Record
set
对象
的
Record
Count
属性可提供记录总数,但需注意,它可能在游标未完全遍历数据集时返回不准确值。因此,通常需要确保数据集已完全加载或使用支持SequentialAccess的游标类型: ```vb If
rs
....
VB与SQL+Server连接[参照].pdf
If
rs
.
Record
Count
> 0 Then
rs
.MoveFi
rs
t For i = 0 To
rs
.
Record
Count
- 1 Print
rs
.Fields(0),
rs
.Fields(1),
rs
.Fields(2),
rs
.Fields(3),
rs
.Fields(4),
rs
.Fields(5)
rs
.MoveNext Next End If End Sub...
VB与各数据库的几种连接方式
If
Rs
.
Record
Count
> 0 Then
Rs
.MoveLast
Rs
.MoveFi
rs
t End If End Sub ``` **2. 与DBF文件数据库连接** 连接没有密码的DBF文件数据库的代码示例如下: ```vb Private Sub Command2_Click() Dim Db As ...
在ASP中轻松实现记录集分页显示
If
rs
1.
Record
Count
> 0 Then
rs
1.PageSize = 10 ' 每页显示的记录数 num =
rs
1.
Record
Count
' 记录总数 pageNum =
rs
1.Page
Count
' 总页数 End If ``` 2. **获取当前页码**:通过 URL 参数获取用户请求的...
VB基础类
7,785
社区成员
197,585
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章