DataDrid控件怎么不显示数据

[xjb3166]

在一个表单中放一个DataDrid控件然后写下如下代码：

Private sub Form_load()
Dim constr As String, sqlstr As String
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Di + _
"\Dat.mdb;Persist Security Info=False"
conn.Open constr
sqlstr = "select * from Hcp "
cp.Open sqlstr, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = cp

end sub

控件怎么不显示数据呢？当然数据库中有数据

[1984bobby]

我也有这个问题~~同问~~留个印

[上官云峰]

你试试吧，好用的
记得要引用ado

Dim WithEvents adoPrimaryRS As Recordset '数据库连接对象
Private Sub Command1_Click()
'strsql 是你的查询语句 你可以order by 排序的字段
'strsql="select xh as 学号 from 表" 这里的学号就是你datagrid中列的标题

strsql="select 字段 from 表"
Set Db = New Connection
Db.CursorLocation = adUseClient
'下面的连接数据字符串你要修改一下
Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\计划管理系统.mdb;Persist Security Info=False"
Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open strsql, Db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = adoPrimaryRS
end sub

[faysky2]

DataDrid控件怎么不显示数据
------------------------------------
一般有三种情况DataGrid不显示数据：
1.记录集对象里没有记录(可以用MsgBox cp.Eof 来判断)
2.记录集对象里有记录，但是没有设置客户端游标（在cp.Open 或conn.Open 前加上：cp.CursorLocation=adUseClient/conn.CursorLocation=adUseClient）
3.记录集对象里有记录，也设置了客户端游标，如果还没显示数据，那么可能是你对DataGrid进行了某些编辑（估计是DataGrid的Bug），换一个DataGrid就好了

[bbhere]

设置客户端游标
conn.CursorLocation=adUseClient

[daisy8675]

对CursorLocationEnum，没有做控制，CursorLocationEnum在默认的状态下为adUseServer,而Datagrid显示Access数据库需要使用客户端游标adUseClient。


Private sub Form_load()
Dim constr As String, sqlstr As String
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Di + _
"\Dat.mdb;Persist Security Info=False"
Conn.CursorLocation = adUseClient'------->加这句话

conn.Open constr
sqlstr = "select * from Hcp "
cp.Open sqlstr, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = cp

end sub