如不使用ODBC，如何连接本地的，ACCESS数据库？？？[在线等待]

Question

Provider=Microsoft.Jet.OLEDB.4.0;
Data Source=F:\a.mdb;
Persist Security Info=False

Answer 1

strConnectString = "Provider=SQLOLEDB.1" & ";Server=" & strServerName & _
      ";database=" & strDBName & ";UID=" & strUID & ";PWD=" & strPassWord把Provider=SQLOLEDB.1改成Access的提供者就OK了返回记录:dim rs as AdoDB.RecordSetset rs.open "Select * from Table",cncn>表示连接..

Answer 2

Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & _
        App.Path & "\keebing.mdb"
    cn.Open
    rs.Open "select * from 表名", cn
    
    rs.Fields(0).Value '当前记录字段一的值
    rs.MoveNext        '移向下一条记录
    rs.MovePrevious    '上一条记录
    rs.MoveFirst       '表首
    rs.MoveLast        '表尾

Answer 3

connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;" _
                   & "Data Source=" & App.Path & "\data\月欠税情况.mdb;" _
                   & "Persist Security Info=False"

Answer 4

Dim cnn As New ADODB.Connection
Dim rs As ADODB.Recordset
dim strcnn as stringstrCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
    strCnn = strCnn & App.Path & MDB名称     '输入MDB名称
    strCnn = strCnn & "Persist Security Info=False"
    
    strSql = "select softname,dir from soft where type = '" 
    cnn.CursorLocation = adUseClient
    cnn.Open strCnn
    Set rs = cnn.Execute(strSql)
    
    If rs.RecordCount = 0 Then
     MsgBox "没有找到，请重新再试", , "提示"
      cnn.Close
      Exit Sub
    End If

Answer 5

另一种方式:
Dim conn As  ADODB.Connection   
Set conn = New ADODB.Connection
    conn.Open "DBQ=" & App.Path & "\Name.mdb;Driver={Microsoft Access Driver (*.mdb)};FIL=MS Access;"

Answer 6

'功能简介:连接数据库
'参数一:路径
'参数二:数据库名
'返回:连接数据库是否成功
Function PublicMdbConn(StrPath As String, StrDataBaseName As String) As Boolean   '打开MDB公共连接
    On Error GoTo MdbConnError
    dim MdbConn as new Adodb.connection
    Dim MdbConnstr As String
    MdbConnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPath & StrDataBaseName & ";Persist Security Info=False"
    If MdbConn.State = 1 Then MdbConn.Close
    MdbConn.Open MdbConnstr
    PublicMdbConn = True
    Exit Function
MdbConnError:
    PublicMdbConn = False
End Function'功能简介:得到数据记录
'参数一:公共表结构
'参数二:字符串sql条件
Public Sub RsToStr(Str1 As string, Str2 As String)as boolean
    On Error Resume Next
    dim Rs as new Adodb.Recordset
    dim SQLStr string
    SQLStr="select * from Table where 关键字段='"& str2 &"'"
    Rs.open SQLStr,MdbConn,3,3
    if not Rs.eof then 
       str1.1=rs.Fields(0).Value
       str1.2=rs.Fields(0).Value
        .
        .
        .
        RsToStr=true
    else
        RsToStr=flase
    endif
End Sub