以下是我的程序,测试发现当我的记录数100多条时,会出现“行数不可用!-1“的情况,但当记录为70条至2条时,xlsRowNum有正确的行数,大家帮帮忙,这是为什么?是数据库问题还是我的程序问题,难道要我自己放着RowCount属性不用自己写个行数算法么?
……
Set Rs = cn.OpenResultset(sql_str, 1, 4, 64) 'sql_str为查询语句,肯定有对应记录
If Rs.EOF Then
MsgBox "没有查询到满足的数据!", vbCritical + vbOKOnly, "系统提示"
Exit Sub
End If
With Rs
.MoveLast
xlsRowNum = .RowCount '记录总数
Debug.Print .RowCount
If xlsRowNum < 1 Then
MsgBox "行数不可用!" & xlsRowNum, vbCritical + vbOKOnly, "系统提示"
Exit Sub
End If
……
……
Set Rs = cn.OpenResultset(sql_str, 1, 4, 64) 'sql_str为查询语句,肯定有对应记录
If Rs.EOF Then
MsgBox "没有查询到满足的数据!", vbCritical + vbOKOnly, "系统提示"
Exit Sub
End If
With Rs
.MoveLast
xlsRowNum = .RowCount '记录总数
Debug.Print .RowCount
If xlsRowNum < 1 Then
MsgBox "行数不可用!" & xlsRowNum, vbCritical + vbOKOnly, "系统提示"
Exit Sub
End If
……
解决方案 »
- 请教关于RichTestBox的问题?给连接,UP也给分..........急!急!急!急!急!急!急!急!
- 请问如何在程序中播放.MPG文件?如何在播放过程中截取其中的一幅图像?(JPG OR BMP)
- vb 查重?
- 怎么把一个字符串转换成固定格式?
- 如何控制word active?两次复制图片都在一个word上去了
- 请教有关于RichTextBox的问题,高手进来看!
- 请问在SQL中使用select语句检索数据怎么区分大小写?
- 请问游戏中的人物是用什么软件写?
- 编好的VB程序如何制作key盘(软盘)
- 好东东!我用VB做一个超过市面上的非常实用的打字练习与测试软件,要的话一定邮!
- 请指教:如何才能获得鼠标在一个窗体(Form1)上点击了哪一个控件?
- 请教一个混合编程的问题
cn.CursorLocation= adUseClient