set DataGrid1.DataSource = rs DataGrid1为什么时空的？

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     如需转载请自行联系原作者