VB+ACCESS的数据库连接
请教怎么实现VB+ACCESS的数据库连接,以及怎样才能在DataGrid中显示指定表中的数据啊
在引用里添加Microsoft ActiveX Data Object 2.X Library
添加命令按扭,
编写如下代码:
Option Explicit
Private Sub Command1_Click()
Dim iConn As New ADODB.Connection '定义ADO对象
Dim iRs As New ADODB.Recordset
Dim ConnStr As String
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info =False;" _
& "Data Source=D:\vb60实例\mdb\score01.mdb"
iConn.Open ConnStr '连接数据库
iRs.CursorLocation = adUseClient
iRs.Open "SELECT * FROM 成绩单", iConn, adOpenKeyset, adLockPessimistic '打开数据表
Set DataGrid1.DataSource = iRs '将表格的数据源设置为iRs
End Sub