adodc怎么打开本地access数据库？？在线等

Question

怎么用ado打开*.mdb？？

Answer 1

示例如下，如果需要，留个邮箱，发个小例子给你Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
    Dim strSQl As String
    strSQl = "select * from students "
    rs.Open strSQl, cn, adOpenDynamic, adLockOptimistic
    If Not rs.EOF And Not rs.BOF Then    Else
        MsgBox "没有找到学生的记录"
        rs.Close
        Exit Sub
    End If
    rs.Close
End SubPrivate Sub Form_Load()
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb"
End Sub

Answer 2

Set MyConn = New ADODB.Connection
Set MyRs = New ADODB.RecordsetConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=*.mdb;Persist Security Info=False"
MyConn.Open ConnStrstrSQL = "Select * from 管理员 where 用户名='" & Text1.Text & "' and  密码='" & MyRs.Open strSQL, MyConn, adOpenStatic, adLockReadOnly, adAsyncExecuteSet MyRs = MyConn.Execute(strSQL)
If MyRs.EOF() Then
    MsgBox ("记录不存在")
End If

Answer 3

'工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）
'----------------------------------------------------------------------------Dim adoCN   As New ADODB.Connection                '定义数据库的连接
Dim strCnn   As New ADODB.RecordsetstrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Northwind.MDB;Persist Security Info=False"adoCN.Open str1