Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  txtSQL = "select * from 采样点基本情况"
  Set rs = ExecuteSQL(txtSQL, Msgtext)' 这个函数得到一个记录集，
  MsgBox rs.RecordCount
' rs.Open "select * from 采样点基本情况", cn, adOpenKeyset, adLockBatchOptimistic '连接
  Set DataGrid1.DataSource = rs

注：Set rs = ExecuteSQL(txtSQL, Msgtext)' 这个函数得到一个记录集，验证也是成功的，rs不为空，为什么DataGrid1显示时空的？
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP

回复次数：4
  • MHYCX198497
  • (孤独十五楼)
  • 等　级：
#1楼 得分：0回复于：2007-12-07 19:53:32
可能是数据提供者不支持。
我也碰到这样的情况，最后我还是使用ADO绑定控件ADODC
如果是数据提供者不支持，RS.RECORDCOUNT返回将会是-1的值
你可以依据这去检测一下
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：讨论：浅谈winsock ConnectionRequest事件

  • cangwu_lee
  • (小橙)
  • 等　级：
  • 3
#2楼 得分：0回复于：2007-12-08 00:36:39
FIELDS 不要先指定，或者指定正確的 FIELDS。
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：【塞北雪貂】我这十年之回忆录

  • vbman2003
  • (深呼吸)
  • 等　级：
#3楼 得分：0回复于：2007-12-08 07:19:46
要在ExecuteSQL中指定rs.CursorLocation=adUseClient  
 
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：VB变态应用活动：我最近写的FlashBit。

  • liangqiugis
  • (凉秋)
  • 等　级：
#4楼 得分：0回复于：2007-12-10 10:27:32
可以了，谢谢楼上的vbman2003 ，帮了大忙了哈
Set rs = New ADODB.Recordset
  rs.CursorLocation = adUseClient
  txtSQL = "select * from 采样点基本情况"
  Set rs = ExecuteSQL(txtSQL, Msgtext)' 这个函数得到一个记录集，
  MsgBox rs.RecordCount
' rs.Open "select * from 采样点基本情况", cn, adOpenKeyset, adLockBatchOptimistic '连接
  Set DataGrid1.DataSource = rs

注：Set rs = ExecuteSQL(txtSQL, Msgtext)' 这个函数得到一个记录集，验证也是成功的，rs不为空，为什么DataGrid1显示时空的？
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP

回复次数：4
  • MHYCX198497
  • (孤独十五楼)
  • 等　级：
#1楼 得分：0回复于：2007-12-07 19:53:32
可能是数据提供者不支持。
我也碰到这样的情况，最后我还是使用ADO绑定控件ADODC
如果是数据提供者不支持，RS.RECORDCOUNT返回将会是-1的值
你可以依据这去检测一下
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：讨论：浅谈winsock ConnectionRequest事件

  • cangwu_lee
  • (小橙)
  • 等　级：
  • 3
#2楼 得分：0回复于：2007-12-08 00:36:39
FIELDS 不要先指定，或者指定正確的 FIELDS。
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：【塞北雪貂】我这十年之回忆录

  • vbman2003
  • (深呼吸)
  • 等　级：
#3楼 得分：0回复于：2007-12-08 07:19:46
要在ExecuteSQL中指定rs.CursorLocation=adUseClient  
 
  • 对我有用[0]
  • 丢个板砖[0]
  • 引用
  • 举报
  • 管理
  • TOP
精华推荐：VB变态应用活动：我最近写的FlashBit。

  • liangqiugis
  • (凉秋)
  • 等　级：
#4楼 得分：0回复于：2007-12-10 10:27:32
可以了，谢谢楼上的vbman2003 ，帮了大忙了哈
set DataGrid1.DataSource = rs DataGrid1为什么时空的？
要在ExecuteSQL中指定rs.CursorLocation=adUseClient  

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
  Me.Caption = "经手人管理"
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kfgl.mdb;Persist Security Info=False"
  
  
   Set rs = New ADODB.Recordset
   
   
    rs.CursorLocation = adUseClient
   
rs.Open "select * from kf", cn

        
        Set DataGrid1.DataSource = rs

  
  
End Sub
本文转自9pc9com博客，原文链接：    http://blog.51cto.com/215363/1026890    如需转载请自行联系原作者

set DataGrid1.DataSource = rs DataGrid1为什么时空的？相关推荐

  1. Excel2003配置为SQL Server2000的【链接服务器】

    Excel2003配置为SQL Server2000的[链接服务器] 现在进行的工作是用vb和sql server2000管理公司的仓库.今天接到一张xsl的库存表,记录量非常大.首先的是用sql s ...

  2. vb mysql 更新数据库_VB数据库更新update的问题

    有高手么,我还遇到个千年费解的问题,学了那么久楞是看不懂, 下面的是一段代码 可以说无懈可击,但是运行时候datagrid控件什么内容都不显示,数据库中记录确实被删除啦,但是奇怪的是datagrid控 ...

  3. 给被Access过大问题困扰的网站，提供几种解决方案

    问题: 1.我的Access数据库里面没存多少数据,为什么体积很大,别人和我存一样的数据为什么只有我的文件体积的1/10. 2.为什么我删除了数据,但是数据库体积没有减小? 3.为什么我存了几张图片到 ...

  4. 导入EXCEL数据更新access数据库里的信息

    'Public fn As String '保存Access文件名 'Public fn1 As String '保存Excel文件名 'Public fncount As Integer '保存Ac ...

  5. sql server

    sql server 作者:Sanle  来源:博客园  发布时间:2006-04-27 13:06  阅读:3402 次  原文链接   [收藏]   1.清空日志:DUMP TRANSACTION ...

  6. 不错VB代码，收藏！！！

    实现毫秒精度的延时 'Module Code: Option Explicit Declare Function QueryPerformanceFrequency Lib "kernel3 ...

  7. VB与各数据库的几种连接方式

    VB与各数据库的几种连接方式 -.用DAO控件连接数据库 1.与Access2000数据库连接 Private Sub Command1_Click() '也可直接在控件属性中设置以下各项但在控件属性 ...

  8. js事件大全，看完我也就醉了

    事件源对象 捕获释放 event.srcElement.setCapture();   event.srcElement.releaseCapture(); 事件按键 event.keyCode  e ...

  9. DataGrid读写txt文件

    工程|部件->Microsoft DataGrid Control 6.0(SP6):工程|引用->Microsoft Scripting Runtime:工程|部件->Micros ...

最新文章

  1. 两小时搞定负载均衡51CTO技术沙龙现场视频2
  2. linux ubuntu kubuntu与xubuntu等各版本差别
  3. python多线程爬取_python 多线程方法爬取微信公众号文章
  4. JS中的prototype、__proto__与constructor（图解）
  5. [树套树] 网络管理
  6. 获取本地 qt_用QT实现视频/音乐播放组件
  7. xcode checkout验证错误解决方法
  8. java程序设计_Java程序设计-类和对象（笔记）
  9. [Node] 基础知识
  10. 国科大 - 模式识别与机器学习（黄庆明等）- 期末复习 - 试卷
  11. android手机界面分区,Android手机fastboot 刷机命令(示例代码)
  12. 《数据结构》陈越老师课后题详解
  13. 简单文本API的解析(一言)
  14. matlab左侧栏没了,AI软件左侧的工具栏不见了没有了怎么显示出来
  15. NIST PQC候选方案 SIKE 以及 Rainbow签名 破解
  16. 钻石DIAMOND一词来源于古法文DIAMAUND钻石
  17. Java面向对象之线程相关概念 和 线程基本使用
  18. 基于Matlab绘制自定义边长的正多边形
  19. 信号发生器基础知识学习
  20. 网页中插入视频无法播放解决问题

热门文章

  1. 认真学习系列：数据结构与算法——慕课网笔记
  2. Mac系统安装Windows系统
  3. labelImg（pyqt4 ）出现错误(segmentation fault(core dumped) )
  4. requests库post方法如何传json类型的data
  5. Java21天打卡day19-异常
  6. HR：不录用她，是因为她“太傻白甜了……”
  7. PAT甲级1016 （map,排序）
  8. Endnote在word中每次启动都要加载，或者无法加载的解决办法
  9. java反射最佳实践_Java 反射最佳实践 – 码农网
  10. relu函数_ECCV 2020，在视觉任务上大幅超越ReLU的新型激活函数