|
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显示时空的？
|
|
|
|
|
|
|
|
#1楼 得分：0回复于：2007-12-07 19:53:32
|
可能是数据提供者不支持。
我也碰到这样的情况，最后我还是使用ADO绑定控件ADODC
如果是数据提供者不支持，RS.RECORDCOUNT返回将会是-1的值
你可以依据这去检测一下
|
|
|
|
|
|
|
#2楼 得分：0回复于：2007-12-08 00:36:39
|
FIELDS 不要先指定，或者指定正確的 FIELDS。
|
|
|
|
|
|
|
#3楼 得分：0回复于：2007-12-08 07:19:46
|
要在ExecuteSQL中指定rs.CursorLocation=adUseClient
|
|
|
|
|
|
|
#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显示时空的？
|
|
|
|
|
|
|
|
#1楼 得分：0回复于：2007-12-07 19:53:32
|
可能是数据提供者不支持。
我也碰到这样的情况，最后我还是使用ADO绑定控件ADODC
如果是数据提供者不支持，RS.RECORDCOUNT返回将会是-1的值
你可以依据这去检测一下
|
|
|
|
|
|
|
#2楼 得分：0回复于：2007-12-08 00:36:39
|
FIELDS 不要先指定，或者指定正確的 FIELDS。
|
|
|
|
|
|
|
#3楼 得分：0回复于：2007-12-08 07:19:46
|
要在ExecuteSQL中指定rs.CursorLocation=adUseClient
|
|
|
|
|
|
|
#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
本文转自 bilinyee博客，原文链接： http://blog.51cto.com/215363/1026890
如需转载请自行联系原作者
