实现ADO控件引用的方法

关系型数据库系统中的表由行和列组成,这有些类似于Excel二维表格的样子。由于Excel并不是关系型数据库管理系统,在使用VBA对关系型数据库进行访问时,需要通过设置ADO来访问关系型数据库系统。本文介绍向工程中添加ADO引用的方法。

1、启动Excel并创建文档,打开Visual Basic编辑器,选择“工具”|“引用”命令打开“引用”对话框,在对话框的“要使用的引用”列表中勾选"Microsoft ActiveX Data Objects 2.8"复选框,如图1所示。单击“确定”按钮关闭对话框。

实现ADO控件引用的方法

图1 添加ADO引用

2、在完成引用的添加后创建一个模块,使用代码来实例化ADO对象,具体的程序代码如下所示:

Sub InitialADO()

Dim cn As ADODB.Connection '定义一个ADO连接对象

Set cn=New ADODB.Connection '实例化ADO连接

With cn '指定连接信息

.Provider="Microsoft.Jet.OLEDB.4.0"

.ConnectionString="Data Source=C:\MyFolder\MyWorkbook.xls;"&_

"Extended Properties=Excel 8.0;"

.Open '打开连接

End With

End Sub

山姐姐提供专业word/office/excel教程及技巧,以及免费PPT模板下载。
山姐姐办公素材网 » 实现ADO控件引用的方法

提供最优质的资源集合

立即查看 了解详情