利用DAO 访问数据库 首先要创建对象变量,
Dim wsAs Workspace
Dim dbAs Database
Dim rs AsRecordset
Set ws =DBEngine.workspae(0) '打开默认工作区
Set db =ws.OpenDatabase("") ' 打开数据库
四 利用ADO方式连接Access数据库
ADO是基于组件的数据库编程接口。使用ADO可以方便地连接任何符合ODBC(开放式数据库连接)标准的数据库。ADO是DAO的后继产物。相比DAO,ADO扩展了DAO使用的层次对象模型,用较少的对象、更多的方法和事件来处理各种操作,简单易用,是当前数据库开发的主流技术。
1 引用ADO
(1)在VBE工作环境中,选择“工具”菜单中的“引用”命令,打开“引用”对话框。
(2)在“可使用的引用”列表中勾选 Microsoft ActiveX Data Object*.* Library,这里的*.*是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.
2.用CreateObject创建对象: Set Conn = CreateObject(ADODB.Connection)
创建了对象之后,下一步我们要做的就是打开数据库了.先看下面的代码,可以成功的打开数据库:
Set Conn = CreateObject(ADODB.Connection)
strPath = ThisWorkbook.Path &"\mydata.accdb"
Conn.Open"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath
在之后的《VBA与数据库》的讲解中,主要利用的是ADO的连接,以后会逐渐的展开给大家慢慢的讲解。
数据库内容是VBA内的一块较为重要的部分,同时也是对于学习人员水平的一个提高,但是,如果我之前的内容没有弄懂的朋友,还是请先弄懂之前的内容,在《VBA代码解决方案》中,我讲解了147讲较为有代表的案例,可以覆盖大多数的知识点,基本掌握后再看数据库相关的操作,更会好些。