请教各位大侠 关于vb的数据窗体向导 急 在线等!!!

Question

我不知道为什么vb的数据窗体向导在连接数据库的时候会出错
具体就是在第3屏输入数据库路径的时候 我填入一个access(第2屏已选择access)的绝对地址 他居然弹出说布认识这个数据库格式  请问这是怎么回事

Answer 1

vb6.0不支持access2000版本数据库.

Answer 2

那要怎么解决 难道装个低版本的access

Answer 3

VB的数据窗口向导用的是DATA控件,不支持2000及以上的数据库,解决办法:1.升级DAO2.改为ADO连接!!用ADO的连接及操作方法如下:Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Command1_Click()
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
        If Not rs.EOF Then
            Label1.Caption = rs!ID
            Label2.Caption = rs!Memo
        End If
       
        rs.AddNew
        rs!ID = "编号"
        rs!Memo = "备注"
    rs.Update
End SubPrivate Sub Form_Load()
    cn.ConnectionString = "DBQ=" & App.Path & "\TelePhone.mdb;DefaultDir=" & _
        App.Path & ";Driver={Microsoft Access Driver (*.mdb)};" & _
        "DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;" & _
        "MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;" & _
    "Threads=3;UID=ADMIN;UserCommitSync=Yes;PWD=admind1234;"
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

Answer 4

还是不行啊 老大 找不到access驱动