help me.VB6.0里不支持ACCess2000数据库怎么办?

[SDK2002]

help me please.

[lihonggen0]

VB6.0不支持ACCess2000数据库??????


不可能的事

[sunnycai]

可以啊，用ADO 2.0以上的来连接啊，DATA控件就不行了，要装上sp5才能使用Access2000的数据库。如果是用代码的就不行怕，VB是支持的。下面有个例子。
在工程引用中引用microsoft activeX data object 2.0
Private cnDB As New ADODB.Connection
Private rs As New ADODB.recordset
Private Sub DBConnection()
cnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\temp.mdb;Persist Security Info=False"
cnDB.CommandTimeout = 15
cnDB.Open
End Sub
Private Sub opentable()
Dim StrSQL As String
StrSQL = "SELECT * from Temptable"
Rs.Open StrSQL, cnDB, adOpenStatic, adLockReadOnly
end sub

[slyse]

用 DAO 或 ADO 正确访问 Access 2000

当你使用 DAO 访问 Access 2000 时，是否会出現以下的错误信息？

"Run-time error 3343 Unrecognized Database Format XXX"

这个错误信息有二个解決的方式：

1、如果你是使用 Data Control 来连結 Access 2000 的资料库时：

你必須在設定 Data Control 的 Source 前先加上一行
Set Data1.Recordset = rsDAO36 'rsDAO36 is a DAO 3.6

2、如果你是引用「Microsoft DAO 3.51 Object Library」来访问 Access 2000 的资料库时：

請加入【工程】【部件】「Microsoft DAO 3.6 Object Library」


如果你是使用 ADO 访问 Access 2000

以往在 VB6 中利用 ADO OLEDB Provider 3.51 使用 Access 97 資料库，程序都能正常的執行。但是自从將 Access 97 升級到 Access 2000 之后，就无法順利的使用 Access 2000 資料库了，不知道您是否也曾遇到这样的情形呢？

其实这种事情在 Microsoft 已经是思空見慣的事情了！任何软件只要有了新的版本，就会有和旧版本不相容的问题产生！

而這一次是因为 Access2000 己经使用 Jet 4.0 Engine，所以解決方法如下：


在您的 ADO 的 Connect String 中的 Provider 必須修改为："PROVIDER=Microsoft,Jet.OLEDB.4.0"

[lihonggen0]

Public adoCNAccess As New ADODB.Connection '定义数据库的连接存放数据和代码

Public Function OpenAccess() As String
With adoCNAccess
If .State <> adStateOpen Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & cProgramPath & "Trade.mdb" ';password=allway"
.ConnectionTimeout = 5
.Open
If .State = adStateOpen Then
OpenAccess = "数据库连接成功"
Else
OpenAccess = "数据库连接失败，请按帮助进行检查 ！"
MsgBox "数据库连接失败，请找系统管理员进行检查 ！", 16, cProgramName
End
End If
End If
End With
End Function

[SDK2002]

我在设计窗体时,在指定data Control的recordsource时会提示我:"不可识别的数据库格式",