ACCESS + VB

Question

问题描述：
    现在我用VB6.0 连接VB安装目录下的NWIND数据库时没有问题，但是我新建一个ACCESS数据库的时候，用VB连就失败，错误信息大致如下“不可识别的数据库类型”    如何解决？

Answer 1

连接字符串：
http://www.connectionstrings.com/有SP6就装SP6了。有MDAC2.8就装MDAC2.8了。^_^

Answer 2

将jet3.51改成jet4.0
将data控件换成ado控件

Answer 3

access 2000要用jet 4.0

Answer 4

你是用DATA控件连接的数据库吧,而你新建的是2000或者以上版本的数据库!!原因是DATA控件不支持高版本的数据库!解决办法:
1.升级DATA控件2.使用ADO连接数据库
代码如下:Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset'在MSHFLEXGRID表格控件中显示查询到的内容
Private Sub Command1_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    Set MSHFlexGrid1.DataSource = rs
End Sub'向数据库中添加数据
Private Sub Command2_Click()
    If rs.State = adStateOpen Then rs.Close
    rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenDynamic, adLockOptimistic
    rs.AddNew
    rs!UID = txtUid.Text
    rs!PWD = txtPwd.Text
    rs!TRUENAME = txtName.Text
    rs!CREATEDATE = Format(Now, "YYYY/MM/DD")
    rs.Update
    
    Command1.Value = True
End Sub'从数据库中删除数据
Private Sub Command3_Click()
    cn.Execute "DELETE FROM USERPASSWORD WHERE UID = '" & txtUid.Text & "'"
    Command1.Value = True
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 5

我以前也遇到过,安装了一个DAO3.6就好了

Answer 6

将jet3.51改成jet4.0
将data控件换成ado控件