一个关于DataGrid的简单问题

Question

我有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,且已打开.

Answer 1

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

Answer 2

myRs.Open myString, gAdoCnn, adOpenStatic, adLockReadOnly, adCmdText
把上面这句改成下面这样试一下
myRs.Open myString, gAdoCnn, adOpenKeyset, adLockOptimistic另外判断好你的连接是否真的成功

Answer 3

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

Answer 4

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