2024年4月19日发(作者：)

使用VBA执行SQL

在VBA中执行SQL语句，可以使用ADODB对象模型。ADODB（ActiveX

Data Objects Database）是Microsoft提供的一个用于访问数据库的接

口。

首先，我们需要引用Microsoft ActiveX Data Objects库。在VBE

（Visual Basic Editor）中，点击"工具"->"引用"，然后勾选

"Microsoft ActiveX Data Objects x.x Library"，其中x.x表示版本号。

接下来，在VBA中创建一个Sub或Function，在其中编写执行SQL

的代码。

```vba

Sub ExecuteSQL

Dim conn As tion

Dim rs As set

Dim strSQL As String

'创建连接对象

Set conn = New tion

'设置连接字符串

tionString = "Provider=SQLOLEDB;Data Source=服务

器名称;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"

'打开连接

'创建记录集对象

Set rs = New set

'SQL查询语句

strSQL = "SELECT * FROM 表名;"

'执行SQL语句

strSQL, conn

'循环遍历记录集，输出结果

Do Until

("字段名").Value '

Immediate窗口

xt

Loop

'关闭记录集

'关闭连接

'释放对象

Set rs = Nothing

将结果输出到

Set conn = Nothing

End Sub

```

在上面的代码中，需要修改的部分是连接字符串的内容，包括服务器

名称、数据库名称、用户名和密码。还需要修改SQL查询语句中的表名和

字段名，以适应实际情况。

该代码通过tion对象打开数据库连接，通过

set对象执行SQL查询，并循环遍历记录集以输出结果。最

后，关闭记录集和连接，并释放对象。

如果执行的SQL语句是更新、插入或删除操作，可以使用Execute方

法而不是Open方法。例如：

```vba

'更新操作

strSQL = "UPDATE 表名 SET 字段名 = 值 WHERE 条件;"

e strSQL

'插入操作

strSQL = "INSERT INTO 表名 (字段1, 字段2) VALUES (值1, 值

2);"

e strSQL

'删除操作

strSQL = "DELETE FROM 表名 WHERE 条件;"

e strSQL

```

以上是使用VBA执行SQL的基本方法和示例代码。根据实际需求，可

以进行更复杂的操作，如参数化查询、事务处理等。