在线等，简单问题！！
datagrid控件如何直接显示数据集（rst）的记录？？不通过adodc控件。 问题点数：20、回复次数：8Top
1 楼ljhdi（ ）回复于 2005-01-27 14:34:05 得分 10
是用代码？
工程->引用->Microsoft ActiveX Data Objects 2.X Library
Option Explicit
Private Rs As New ADODB.Recordset
Private Conn As New ADODB.Connection
Private Sub Form_Load()
Dim strConn As String
' 连接数据库的字符串
' 连接带密码的数据库,直接在连接符后面加上Jet OLEDB:DataBase Password='您的密码'
' 连接Access97数据库需要使用Jet.OLEDB.3.5,Access2K和以上数据库使用Jet.OLEDB.4.0
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
' 使用客户端数据游标
Conn.CursorLocation = adUseClient
' 打开Access的连接
Conn.Open strConn
' 如果RecordSet的状态不是关闭状态,则关闭Recordset
If Rs.State <> adStateClosed Then Rs.Close
' Recordser打开表People
Rs.Open "Select * from People", Conn, adOpenKeyset, adLockOptimistic
' 报告出 一共多少笔数据,测试是否存在数据
' MsgBox Rs.RecordCount
' 绑定进DataGrid
Set DataGrid1.DataSource = Rs
End Sub
Top
2 楼wea1978（川）回复于 2005-01-27 14:34:13 得分 2
不好意思，借个地方，
我到处都不能提问，连投诉都发不了。
为什么我发表不了贴子？Top
3 楼huasuiltd（晚风）回复于 2005-01-27 14:58:40 得分 0
TO： ljhdi()
我用这种方法试了，但是提示无此方法或数据成员。Set DataGrid1.DataSource = Rs 是不是我少加了什么，工程->引用->Microsoft ActiveX Data Objects 2.X Library（我的机子是2.5的库）
Top
4 楼tmd007（学而时习之，不亦乐乎。姓菜名了字灌之号蹭之。）回复于 2005-01-27 15:03:27 得分 4
DataGrid1.Refresh
Top
5 楼tmd007（学而时习之，不亦乐乎。姓菜名了字灌之号蹭之。）回复于 2005-01-27 15:03:48 得分 4
DataGrid1.Refresh
Top
6 楼huasuiltd（晚风）回复于 2005-01-27 15:06:56 得分 0
TO： ljhdi()
调试结果：
（1）Set DataGrid1.DataSource = Rs 实时错误：7004。行集合不能作为标签。
（2）DataGrid1.DataSource = Rs 编译错误：未找到方法或数据成员
Top
7 楼ljhdi（ ）回复于 2005-01-28 17:19:55 得分 0
不好意思，刚刚才看到，应该不会出现这种错误的呀
工程->引用->Microsoft ActiveX Data Objects 2.X Library
X表示你机子上的版本，版本不同X就不一样
能不能把你的代码贴出来看一下Top
8 楼ljhdi（ ）回复于 2005-01-28 17:25:03 得分 0
注释掉最后一句，编译一下
看看能不能看到有几条记录Top
