vb datagrid mysql_在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

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