datagrid中数据显示（语句）

Question

Set cnn = New ADODB.Connection
    cnn.Open ConnectString
    MsgBox ConnectString
    txtSQL = "SELECT * FROM DWB"
    Set rsDw = New ADODB.Recordset
    rsDw.Open txtSQL, cnn, adOpenKeyset, adLockOptimistic
    If rsDw.EOF Then
        MsgBox "aa"
    Else
        MsgBox "bb"
    End If
   
    Set DataGrid1.DataSource = rsDw
怎么DataGrid1中没有显示阿，表中有数据

Answer 1

在rsDw.Open txtSQL, cnn, adOpenKeyset, adLockOptimistic前加上
rsDw.CursorLocation = adUseClient
试试

Answer 2

adUseClient
使用由本地游标库提供的客户端游标
不设置这个应该也可以吧？

Answer 3

用ado控件连接数据库,然后把datagrid的数据源设置为ado,很容易实现

Answer 4

问题解决了吗?如果DataGrid1不能SET用下面这个试一下!
             为里还要看你具体有几列,再自己添加看看!
    For i = 1 To rsDw.RecordCount
        DataGrid1.AddItem Empty
        DataGrid1.TextMatrix(i, 1) = rsDw.Fields(0).Value
        DataGrid1.TextMatrix(i, 2) = rsDw.Fields(1).Value
        DataGrid1.TextMatrix(i, 3) = rsDw.Fields(2).Value
        DataGrid1.TextMatrix(i, 4) = rsDw.Fields(3).Value
        DataGrid1.TextMatrix(i, 5) = rsDw.Fields(4).Value
        rs1.MoveNext
    Next

Answer 5

加一句 cnn.CursorLocation = adUseClient

Answer 6

用ado控件连接数据库,然后把datagrid的数据源设置为ado,很容易实现
用这个吧