今日学习目标

  • 了解ADO基本概念
  • 学会连接Access数据库
  • 掌握数据查询操作

知识点

ADO对象

vba
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = "..."
conn.Open

今日代码

vba
Dim conn As Object
Set conn = CreateObject("ADODB.Connection")

conn.ConnectionString = "..."
conn.Open

练习题

  1. 连接Access数据库
  2. 执行查询并读取数据
  3. 插入新记录

参考解答

1. 使用ADODB.Connection，连接字符串指定Provider=Microsoft.ACE.OLEDB.12.0和数据库路径。 2. 用Recordset对象执行SQL查询，Open方法打开记录集，循环读取Fields数据。 3. 使用ADO的Execute方法执行INSERT INTO语句，或用Recordset.AddNew添加新记录。

由在线工具箱(www.vba.net)整理制作