Dim rs as adodb.recordsetSet rs = New ADODB.Recordset
With rs
Set .ActiveConnection = gCn
.Source = "Select * From tbl_Client"
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With
set grd.datasource=rs
msgbox grd.rows-1每次返回的记录数都是1365,实际上有5000多条记录。如果把CursorLocation = adUseClient改为adUseServer,每次返回的记录数都是2048.不知道是什么原因造成的,如何解决?问题比较急,谢谢!
With rs
Set .ActiveConnection = gCn
.Source = "Select * From tbl_Client"
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Open
End With
set grd.datasource=rs
msgbox grd.rows-1每次返回的记录数都是1365,实际上有5000多条记录。如果把CursorLocation = adUseClient改为adUseServer,每次返回的记录数都是2048.不知道是什么原因造成的,如何解决?问题比较急,谢谢!
解决方案 »
- 读取网络上一个txt文件,用什么方法好?
- api 动态菜单 中 实现 记录已打开的多个窗口 从而通过菜单实现窗体切换(在MDI子窗体中 )
- 有想换工作的VB程序员吗?
- VB ActiveX CLISID相关
- 如何即时在程序中放大显示鼠标经过地方的图像?
- 如何始终在自己程序中打开超级链接?使用webbrowser+vb6编程
- 关于datagrid如何访问当前行数据
- 哪位兄弟能帮我找到关于微软的MEDIA服务器端和客户端编程的资料啊,用VB做,100分赠送
- MsComm传送数据时接收与发送的控制
- GetValueFromINIFile后面变量的问题
- 一条SQL语句(如何筛选表中的重复记录?)
- 如何实现局域网内所有计算机同时操作一个数据库啊,请大家帮忙啊!
set grd.datasource=rs
MSHFlexGrid1.Redraw = true
试试 msgbox grd.rows-1
http://www.microsoft.com/downloads/details.aspx?FamilyID=e41b1d62-f3cb-4867-b86a-a2fe4932cf70&DisplayLang=en
就是在set grd.datasource=rs后
不用rs.close
直接用set rs=nothing