我想通过VB 6.0实现与ACCESS 2000数据库的连接,但是通过DATA控件连接运行后,
提示无法识别的数据库。怎么办呀?谁有代码贡献一点!先谢了!

解决方案 »

  1.   

    你如果你喜欢用控件,不能用DATA它不支持2000,用
    ADODC
    添加 microsoft ADO Data Controls
    或者用ADO直接连不用控件,这样更灵活
    引用Microsoft ActiveX Data Object 2.5 LibraryPrivate Function GetDatabase(cnDatName As ADODB.Connection, ByVal strDataSource As String) As Long
        If cnDatName.State = adStateOpen Then cnDatName.Close
        cnDatName.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; " & _
        "Data Source=" & strDataSource
        cnDatName.Mode = adModeReadWrite
        cnDatName.Open
        GetDatabase = 0
     
    End Function==天下本无事,庸人自扰之==
    得意淡然,失意泰然
    [email protected]
      

  2.   

    更正
    上面的函数写错了
    应该是:
    Private Function GetDatabase(cnDatName As ADODB.Connection, ByVal strDataSource As String) As Long
        If cnDatName.State = adStateOpen Then cnDatName.Close
        cnDatName.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=" & strDataSource
        cnDatName.Mode = adModeReadWrite
        cnDatName.Open
        GetDatabase = 0
     
    End Function
    Microsoft.Jet.OLEDB.3.51;适用Access97,2000后要用Microsoft.Jet.OLEDB.4.0;==天下本无事,庸人自扰之==
    得意淡然,失意泰然
    [email protected]
      

  3.   

    最简单的方法是打补丁:SP4 和 SP5两个补丁打上后就可以了。然后在connect属性里选择access2000就OK了
      

  4.   

    Option Explicit
    Public MdbConn As New ADODB.Connection'功能简介:建立本地数据库公共链接
    '参数一:MDB数据库地址路径
    '参数二:密码   为空时表示没有密码
    '返回值:"ok"--成功
    Function PulbicMdbConn(ByVal StrPath As String, Optional StrPassword As String) As String
        On Error GoTo MdbConnErr
        Dim StrSql As String
        If StrPassword = "" Then    '无密码
            StrSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPath & ";Persist Security Info=False"
        Else                        '有密码
            StrSql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPath & ";Persist Security Info=True;Jet OLEDB:Database Password='" & StrPassword & "'"
        End If
        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
      

  5.   

    http://expert.csdn.net/Expert/topic/2710/2710006.xml?temp=8.526248E-02