为什么我用DataGrid1不能显示ccess中数据

Question

代码如下：
Dim paramResult As New ADODB.RecordsetstrSql = "SELECT * FROM 参数表 " paramResult.Open strSql, conn, adOpenKeyset
 Set DataGrid1.DataSource = paramResultDataGrid1中没有显示数据

Answer 1

ADO字符串 是3.51的连接 97库可以正常显示 ,4.0连接97库 可能不会正常显示, 你试试 是不是这个问题@

Answer 2

我的数据库连接如下：用的是access2000
strFilePath = App.Path & "\database\caculate.mdb"
'strFilePath = App.Path & "\database\doc.mgt"
 Set cnDatum = New ADODB.Connection
    ' ConnectionString 包含数据库路径。
        With cnDatum
         .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
         & "Data Source=" & _
           strFilePath
         .Open
    End With

Answer 3

Dim paramResult As New ADODB.RecordsetstrSql = "SELECT * FROM 参数表 "
conn.CursorLocation = adUseClient    '加上这一句应该就可以了
 paramResult.Open strSql, conn, adOpenKeyset
 Set DataGrid1.DataSource = paramResult