最基本问题

Question

我用vb+access2000。具体操作过程请大家指点一下，要引用哪些？
为什么我这总是报错说不可识别的数据库文件

Answer 1

你可能引用了oledb2.5的版本，使用access2000要用oledb2.6的才行。

Answer 2

ado引用
工程-引用：microsoft activex data objects 2.5 library
Dim con As ADODB.Connection'连接
Dim rs As Recordset'ado
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db.mdb;Persist Security Info=False"
con.Open

Answer 3

qian1126(阿Q) 说的就可以呀，2。5就行了，不一定要2。6

Answer 4

到网上下载vb sp5 安装
呵呵，前几天同样问题

Answer 5

vb sp5是什么东西？大吗？

Answer 6

jet 驱动版本太低，到微软上下一个最新jet驱动就好了

Answer 7

是JET驱动的问题，升级为4.0即可

Answer 8

Option Explicit
Dim MdbConn As ADODB.Connection'连接'功能简介：建立本地数据库公共链接
'参数一：MDB数据库地址路径
'返回值："ok"--成功
Function PulbicMdbConn(ByVal StrPath As String) As String
    On Error GoTo MdbConnErr
    Dim StrSQl As String
    StrSQl = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPath & ";Persist Security Info=False"
    If MdbConn.State <> 0 Then MdbConn.Close
    MdbConn.Open StrSQl
    PulbicMdbConn = "ok"
    Exit Function
MdbConnErr:
    PulbicMdbConn = Err.Description
    If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
End Function'功能简介：关闭本地数据库公共链接
Function PublicMdbClose()
    If MdbConn.State <> 0 Then MdbConn.Close: Set MdbConn = Nothing
End Function