Question

在vb中如何只用datagrid控件连接数据库并显示出来 要完整的代码

下面是我写的，表里有内容为什么说读取数据失败
Public cnn As adodb.Connection
Public rst As adodb.Recordset
Public Sub setdb()
Set cnn = New adodb.Connection
cnn.Provider = "Microsoft.Jet.OLEDB.4.O"
cnn.ConnectionString = "Data Source=" & App.Path & "\personal.mdb;"
cnn.CursorLocation = adUseClient
cnn.Open
End Sub
Private Sub Form_Load()
On Error Resume Next
Dim Strsql As String
setdb
Set DataGrid1.DataSource = Nothing
Strsql = "select * from 备忘录 order by 编号"
Set rst = cnn.Execute(Strsql)
If Err Then
MsgBox "读取数据失败"
Exit Sub
End If
If rst.EOF Then
Set DataGrid1.DataSource = Nothing
Else
Set DataGrid1.DataSource = rst
End If
End Sub

Answer 1

Public cnn As adodb.Connection
Public rst As adodb.Recordset
Public Sub setdb()
    Set cnn = New adodb.Connection
    cnn.Provider = "Microsoft.Jet.OLEDB.4.O"
    cnn.ConnectionString = "Data Source=" & App.Path & "\personal.mdb;"
    cnn.CursorLocation = adUseClient
    cnn.Open
End Sub
Private Sub Form_Load()
    On Error Resume Next
    Dim Strsql As String
    setdb
    Set DataGrid1.DataSource = Nothing
    Strsql = "select * from 备忘录 order by 编号"
    Set rst = cnn.Execute(Strsql)
    If Err Then
        MsgBox "读取数据失败"
        Exit Sub
    End If
    If rst.EOF Then
        Set DataGrid1.DataSource = Nothing
    Else
        Set DataGrid1.DataSource = rst
    End If
End Sub

我帮你整理了以下，这样好看一些

Answer 2

可以参考一下我这里的问答：
http://zhidao.baidu.com/question/1109909512568167179.html?oldq=1
源程序可以下载，有问题可以再问了....