VB能打开ACCESS2000的数据库吗？

[zsyzero]

Dim db as database
Set db = OpenDatabase(App.Path & "\database\db1.mdb")
调试时提示“实时错误3343”，程序认为此数据库不可识别。我用的是VB6。0中文版，
但6。0能打开并操作ACCESS97的数据库，我认为是6。0对2000不支持，此看法对吗？
另外，有没有6。0对ACCESS2000型数据库操作的成功事例可以借鉴一下？

[fontain]

不要引用dao3.51,在工程中引用dao3.6即可.

[0xFFCD]

VB当然可以喽，给你个例子吧

使用 ADO Data 控件

ADO Data 控件使用 Microsoft ActiveX 数据对象(ADO) 来快速建立数据绑定的控件和数据提供者之间的连接。数据绑定控件是任何具有“数据源”属性的控件。数据提供者可以是任何符合 OLEDB 规范的数据源。使用 Visual Basic 的类模块也可以很方便地创建子集的数据提供者。

尽管可以在应用程序中直接使用 ActiveX 数据对象，但 ADO Data 控件有作为一个图形控件的优势（具有“向前”和“向后”按钮），以及一个易于使用的界面，使您可以用最少的代码创建数据库应用程序。

图 7.4 ADO Data 控件



在 Visual Basic 的“工具箱”中不少控件都可以作为数据绑定的控件，包括复选框、组合框、图像、标签、列表框、图片框、以及文本框控件等。此外，Visual Basic 还包括了若干种数据绑定的 ActiveX 控件，诸如 DataGrid、DataCombo、Chart、以及 DataList 控件等。用户也可以创建自己的数据绑定的 ActiveX 控件，或从其他开发商购买控件。

Visual Basic以前的版本提供了内在的 Data 控件和 Remote Data 控件 (RDC) 来进行数据访问。这两种控件仍包括在 Visual Basic 中，以提供向后兼容。不过，因为 ADO 的适应性更广，因此建议用户使用 ADO Data 控件来创建新的数据库应用程序。

详细信息 关于数据绑定的控件的完整列表位于“绑定到 ADO Data 控件的控件”中。要了解如何使用这些内在的Data 控件或 Remote Data 控件，请参阅“使用 Data 控件”或“使用 Remote Data 控件”。关于创建数据提供者的详细信息，请参阅“创建数据识别类”。

可能的用法
连接一个本地数据库或远程数据库。


打开一个指定的数据库表，或定义一个基于结构化查询语言 (SQL) 的查询、或存储过程、或该数据库中的表的视图的记录集合。


将数据字段的数值传递给数据绑定的控件，可以在这些控件中显示或更改这些数值。


添加新的记录，或根据对显示在绑定的控件中的数据的任何更改来更新一个数据库。
要创建一个客户、或前端数据库应用程序，应在窗体中添加 ADO Data 控件，以及其它所需要的任何 Visual Basic 控件。可以根据您的需要在窗体中放置多个 ADO Data 控件。不过，请注意，这种控件是一种相当“昂贵”的创建连接的方法，应在第一个控件至少有两个连接，且以后的每个控件至少多一个连接时使用。

用最少的代码创建一个前端数据库应用程序
通过在设计时设置一些属性，可以用最少的代码来创建一个数据库应用程序。如果正在使用OLE DB 数据源，则相应的Microsoft 数据链接名称（Data Link Name）(.MDL) 必须是在您的机器上创建的。请参阅“创建 Northwind 的OLE DB Data Link”，以获得一个循序渐进的示例。

要创建一个简单的前端数据库应用程序

窗体上放置一个 ADO Data 控件。（该图标的工具提示为 "ADODC"。）
如果该控件不在“工具箱”中，请按 CTRL+T 键，显示“部件”对话框。在这个“部件”对话框中，单击“Microsoft ADO Data Control”。

在“工具箱”中，单击选定“ADO 数据控件”。然后按 F4 键显示“属性”窗口。


在“属性”窗口中，单击“ConnectionString”显示“ConnectionString”对话框。


如果您已经创建了一个 Microsoft 数据链接文件（Data Link file）(.UDL)，请选择“使用 OLE DB 文件”并单击“浏览”，以找到计算机上的文件。如果使用 DSN，则单击“使用 ODBC 数据源名”，并从框中选择一个 DSN，或单击“新建”创建一个。如果想创建一个连接字符串，请选择“使用 ConnectionString”，单击“生成”，然后使用“数据链接属性”对话框创建一个连接字符串。在创建连接字符串后，单击“确定”。ConnectionString 属性将使用一个类似于下面这一行的字符串来填充：
driver={SQL Server};server=bigsmile;uid=sa;pwd=pwd;database=pubs

在“属性”窗口中，将“记录源”属性设置为一个 SQL 语句。例如：
SELECT * FROM Titles WHERE AuthorID = 72

在访问一个表时，应始终包括一个 WHERE 子句。如果这样做失败，则会锁定整个表，这样对其他用户将是一个严重的障碍。

在窗体上再放置一个“文本框”控件，用来显示数据库信息。


在其“属性”窗口中，将 Text1 的“数据源”属性设为 ADO Data 控件的名称 (ADODC1)。这样就将这个文本框和 ADO Data 控件绑定在一起。


在其“属性”窗口中，单击“数据字段”将下拉得到一个可用的字段列表。单击所要显示的字段的名称。


对希望访问的其它每个字段重复第 6、7、8 步。


按 F5 键运行该应用程序。用户可以在 ADO Data 控件使用四个箭头按钮，从而允许用户地到达数据的开始、记录的末尾、或在数据内从记录移动到另一个记录。
在程序中设置 ConnectionString、Source、DataSource、以及 DataField
下面的代码演示了如何在程序中设置这四个属性。注意设置 DataSource 属性要使用 Set 语句。

Private Sub Form_Load()
With ADODC1
.ConnectionString = "driver={SQL Server};" & _
"server=bigsmile;uid=sa;pwd=pwd;database=pubs"
. RecordSource = "Select * From Titles Where AuthorID = 7"
End With
Set Text1.DataSource = ADODC1
Text1.DataField = "Title"
End Sub
ADO Data 控件的事件
ADO Data 控件提供了若干个可以编程的事件。下表说明了这些事件及其何时产生，不过这个表不是一个关于这些事件何时发生的所有条件的完整列表。更完整的信息，请参阅各个事件的参考主题。

事件 产生条件
WillMove 当执行 Recordset.Open、Recordset.MoveNext、Recordset.Move、Recordset.MoveLast、Recordset.MoveFirst、Recordset.MovePrevious、Recordset.Bookmark、Recordset.AddNew、Recordset.Delete、Recordset.Requery、Recordset.Resync 方法时
MoveComplete 在 WillMove 事件之后
WillChangeField 在 Value 属性更改之前
FieldChangeComplete 在 WillChangeField 事件之后
WillChangeRecord 当执行 Recordset.Update、Recordset.Delete、Recordset.CancelUpdate、Recordset.UpdateBatch、Recordset.CancelBatch 方法时
RecordChangeComplete 在 WillChangeRecord 事件之后
WillChangeRecordset 在执行 Recordset.Requery、Recordset.Resync、Recordset.Close、Recordset.Open、Recordset.Filter 方法时
RecordsetChangeComplete 在 WillChangeRecordset 事件之后
InfoMessage 当数据提供者返回一个结果时


详细信息 如果试图循序渐进地使用 ADO Data 控件，请参阅“使用 DataGrid 和 ADO 数据控件创建一个简单的数据库应用程序”，“ 创建一个简单的 DataCombo 应用程序”，以及“创建一个连接 DataList 控件的 DataGrid”。

[Nicrosoft]

VB只是一个前台开发工具，和后台使用什么数据库没有关系的。所以无所谓支持不支持。

[phf]

Nicrosoft说得对，VB只是前台开发，后台数据苦要看你用什么数据库，就用什么驱动程序~！

[zsyzero]

谢谢

[wybin]

liuwc不要拿一堆Help来解答问题吗。*_^
人家要的是对Access的连接，不是Sql Server！！！
fontain也许是对的。
我没有Access 2000，下面是连接Access 97的方法：

'ADO数据库
Dim cnn1 As ADODB.Connection
'Dim cmd1 As ADODB.Command
'Dim rstSchema As ADODB.Recordset
Dim strCnn As String
Set cnn1 = New ADODB.Connection

cnn1.Provider = "Microsoft.Jet.OLEDB.3.51"

cnn1.Open "c:\d\db1.mdb"
'Set cmd1 = New ADODB.Command
'Set cmd1.ActiveConnection = cnn1
'cmd1.CommandTimeout = 15

也许将3.51改成3.6即可。

[知行职场-雷曼]

加入DataLink就可以更自由，可以调用ACCESS又可以SQL　SERVER了
'///////////////////////////////////////////////////////////
'//Des:Just Connect Database to get DSN
'//Return:
' 0: Failure
' 1: Success
'///////////////////////////////////////////////////////////
Public Function ConnectDB() As Long
Dim iRetryTime As Integer
If DSN <> "" Then
ConnectDB = 1
Exit Function
End If
iRetryTime = RECONNECTTIMES
While iRetryTime > 0
DSN = CConnection.ConnectDB("")
If CConnection.ConnectResult Then
ConnectDB = 1
iRetryTime = 0
DSN = CConnection.OpenConnection(DSN)
Else
iRetryTime = iRetryTime - 1
If iRetryTime > 0 Then
MsgBox "数据库打开错误，请重试一次！"
End If
End If
Wend
End Function

[hejinguo]

VB肯定是支持ACCESS 2000数据库的，可能需要将ACCESS 97数据库转换成ACCESS 2000。