按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
方法来打开Northwind数据库， 并且通知用户该数据库已被打开。DBEngine对象让你初始化称
为Microsoft Jet Engine的标准数据库引擎并打开一个数据库文件
（。mdb）。过程使用Close方法关闭数据库文件。
Sub DAOOpenJetDatabase（）
Dim db As DAO。Database
Set db = DBEngine。OpenDatabase _
（〃C：Program FilesMicrosoft OfficeOfficeSamplesNorthwind。mdb〃）
MsgBox 〃Northwind database has been opened。〃
db。Close
MsgBox 〃Northwind database has been closed。〃
End Sub
6。使用 ADO 链接到 Access 数据库
最新的，最建议的建立对Access数据库链接的方法是使用ActiveX 数据对象（ADO）。你必须先
设置对微软ActiveX数据对象2。5库 或者更高版本的引用。示例程序ADOOpenJetDatabase使用
Connection对象链接到Northwind数据库。该对象通过Open方法打 开。注意，Open方法需要
一个包含数据提供者名称（本例中为Microsoft。Jet。OLEDB。4。0）和数据源名称（本例中为要
打开的数 据库文件完整名称）的链接字符串参数：
con。Open _
〃Provider=Microsoft。Jet。OLEDB。4。0；〃 _
& 〃Data Source=C：Program FilesMicrosoft Office” _
& 〃OfficeSamplesNorthWind。mdb；〃 在建立对Northwind数据库的链接之后，你可以使用
Recordset对象来访问其数据。Recordset对象用来在记录级操作数据。 Recordset对象由记
295
… 页面 312…
录（行）和字段（列）组成。要获得一套记录，你就得使用Open方法打开Recordset。该方法
需要明确的信 息，例如Recordset记录源：
rst。Open 〃SELECT * FROM Customers 〃 & _
〃WHERE City = 'London'〃； con； _
adOpenForwardOnly； adLockReadOnly 记录源可以是返回记录的数据库表，或查询或SQL语
句。在明确记录源后，你还需要表明对数据库（con）和两个常数，一个定 义指针类型
（adOpenForwardOnly），另一个为锁定类型（adLockReadOnly）。常数adOpenForwardOnly
告诉VBA创建只能 向前翻的Recordset。第二个常数adLockReadOnly明确在编辑时记录上的锁
定类型。该记录为只读，意味着你不能改变该数据。 过程的下一部分使用For…Each…Next循
环遍历Recordset并将第一条记录的内容打印到立即窗口：
For Each fld In rst。Fields
Debug。Print fld。Name & 〃=〃 & fld。Value & vbCr
Next
在获取第一条记录的数据后，过程使用了Close方法关闭Recordset和对Access数据库的链接：
rst。Close
con。Close
ADOOpenJetDatabase过程如下：
Sub ADOOpenJetDatabase（）
Dim con As New ADODBnnection
Dim rst As New ADODB。Recordset
Dim fld As ADODB。Field
' Connect with the database
con。Open _
〃Provider=Microsoft。Jet。OLEDB。4。0；〃 _
& 〃Data Source=C：Program FilesMicrosoft Office” _
& 〃OfficeSamplesNorthWind。mdb；〃
' Open Recordset based on the SQL statement
rst。Open 〃SELECT * FROM Customers 〃 & _
〃WHERE City = 'London'〃； con； _
adOpenForwardOnly； adLockReadOnly
' Print the values for the fields in
' the first record in the debug window
For Each fld In rst。Fields
Debug。Print fld。Name & 〃=〃 & fld。Value & vbCr
Next
' Close the Recordset and connection with Access
rst。Close
con。Close
' Destroy object variables to reclaim the resources
Set rst = Nothing
Set con = Nothing
End Sub
7。从 Excel 执行 Access 任务
从Excel链接到Access后，你就可以执行Access应用软件的不同任务。本节示范如何使用VBA代
码来：
□ 创建新Access数据库
□ 打开现存在的数据库表
□ 创建全新的数据库表
□ 打开数据库报表
□ 运行Access函数
8。创建新 Access 数据库
如果你想要通过编程将Excel数据传送到一个新的Access数据库里面，那么你需要使用VBA代
码创建一数据库。下面的过程示例 示范了如何使用DAO来建立和Access的链接。Workspace对象
的CreateDatabase方法创建一个名为ExcelDump。mdb的新数据库 于C盘根目录下。然后，
Database对象的CreateTableDef方法用来创建一个名为tblStates的表。在表能够添加到数据
库之前，必 须先创建一个字段并附在该表上。该过程创建了三个文本字段（dbText），每个分
别可以储存2，25和25个字符。每个字段创建 后，使用Append方法将这些字段添加到TableDef
296
… 页面 313…
对象的Fields集合里。字段一旦创建并添加到表之后，表本身就会使用Append 方法被添加到
数据库。因为名为“C：ExcelDump。mdb”的数据库可能已经存在于该目录下，该过程包括了一
个错误处理程序，将 删除现有文件，以确保数据库创建过程继续。因为其它错误也可能发生，
Else子句包括了显示错误描述的信息，并允许退出过程
Sub NewDB_DAO（）
Dim db As DAO。Database
Dim tbl As DAO。TableDef
Dim strDb As String
Dim strTbl As String
On Error GoTo Error_CreateDb_DAO
strDb = 〃C：ExcelDump。mdb〃
strTbl = 〃tblStates〃
' Create a new database named ExcelDump
Set db = CreateDatabase（strDb； dbLangGeneral）
' Create a new table named tblStates
Set tbl = db。CreateTableDef（strTbl）
' Create fields and append them to the Fields collection
With tbl
。Fields。Append 。CreateField（〃StateId〃； dbText； 2）
。Fields。Append 。CreateField（〃StateName〃； dbText； 25）
。Fields。Append 。CreateField（〃StateCapital〃； dbText； 25）
End With
' Append the table object to the TableDefs
db。TableDefs。Append tbl
' Close the database
db。Close
Set db = Nothing
MsgBox 〃There is a new database on your hard disk。 〃 & vbCrLf _
& 〃This database file contains a table 〃 & strDb & vbCrLf _
& 〃named 〃 & strTbl & 〃。〃 & vbCrLf _
& 〃Before you activate this database； close the Excel application。〃
Exit_CreateDb_DAO：
Exit Sub
Error_CreateDb_DAO：
If Err。Number = 3204 Then
' Delete the database file if it already exists
Kill 〃C：Exceldump。mdb〃
Resume
Else
MsgBox Err。Number & 〃： 〃 & Err。Description
Resume Exit_CreateDb_DAO
End If
End Sub
297
… 页面 314…
图15…7 Excel VBA过程创建的Access数据库表
9。打开 Access 窗体
你可以从Excel里打开Access窗体。你也可以创建新窗体。下述例子使用自动控制链接到
Access。一旦链接建立后，就使用 OpenCurrentDatabase方法来打开例子Northwind数据库。
接着，使用DoCmd对象的OpenForm方法打开Customers窗体。该窗 体被打开为普通视图
（acNormal）。如果要将窗体在设计视图里打开的话，那么可以使用acDesign常数代替。DoCmd
对象的 Restore方法确保该窗体显示在屏幕上而不是最小化。Access应用软件对象
（objAccess）的Visible属性必须设置为True，以确 保窗体可见。注意，Access应用软件的
对象变量（objAccess）在模块上面声明。为了让该过程运行正确，你必须建立对Access对象库
的引用。图15…8显示了被打开的Customers窗体。
‘ declare at the top of the module
Dim objAccess As Access。Application
Sub DisplayAccessForm（）
Dim strDb As String
Dim strFrm As String
strDb = 〃C：Program FilesMicrosoft Office” _
& 〃OfficeSamplesNorthwind。mdb〃
strFrm = 〃Customers〃
Set objAccess = New Access。Application
With objAccess
。OpenCurrentDatabase（strDb）
。DoCmd。OpenForm strFrm； acNormal
。DoCmd。Restore
。Visible = True
End W