一个关于DataGrid的简单问题

[xinyu_1980]

我有DataGrid显示查询结果时,总是不能显示数据.代码如下.

Dim myRs As ADODB.Recordset
Dim myString As String
myString = "select * from dept"
Set myRs = New ADODB.Recordset

myRs.Open myString, gAdoCnn, adOpenStatic, adLockReadOnly, adCmdText

Set DataGrid1.DataSource = myRs

DataGrid1.Refresh

注:前面有定义gAdoCnn,且已打开.

[馮強]

Dim myRs As ADODB.Recordset
Dim myString As String

gAdoCnn.CursorLocation = adUseClient '<====增加这一句

myString = "select * from dept"
Set myRs = New ADODB.Recordset

myRs.Open myString, gAdoCnn, adOpenStatic, adLockReadOnly, adCmdText


Set DataGrid1.DataSource = myRs

DataGrid1.Refresh

[xinshou1979330]

myRs.Open myString, gAdoCnn, adOpenStatic, adLockReadOnly, adCmdText
把上面这句改成下面这样试一下
myRs.Open myString, gAdoCnn, adOpenKeyset, adLockOptimistic

另外判断好你的连接是否真的成功

[xinyu_1980]

我的数据库中有三条数据,但DataGrid中只显示三条空记录,没有数据

[xinyu_1980]

行了,我调用了一下DataGrid1.ReBind就可以了,
==> xinshou1979330(Success.net)
只把 myRs.Open myString, gAdoCnn, adOpenStatic, adLockReadOnly, adCmdText
改成:myRs.Open myString, gAdoCnn, adOpenKeyset, adLockOptimistic 是不行了.
还是要在前面加 gAdoCnn.CursorLocation = adUseClient