VBA如何与数据库交互？ (vba 与数据库)
VBA（Visual Basic for Applications）是一种被广泛应用于 Microsoft Office 中的编程语言，它能够通过编写程序来自动化和简化 Office 中的操作。在许多情况下，VBA 需要与数据库进行交互来实现更复杂的功能。本文将介绍如何在 VBA 中与数据库进行交互。
1.连接数据库
在 VBA 中，连接数据库是通过 ADO（ActiveX Data Objects）对象实现的。需要创建一个 ADO 连接对象，然后使用该对象连接到数据库。
下面是一个连接 Access 数据库的示例：
“`
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\example.accdb;Persist Security Info=False;”
cnn.Open
“`
在上面的示例中，我们创建了一个 ADO 连接对象 cnn，并使用 ConnectionString 属性指定了连接字符串。ConnectionString 属性包含了连接数据库所需的参数，例如数据库提供者、数据源和身份验证信息。在这个示例中，我们使用了 Access 数据库提供者和一个 ACCDB 文件作为数据源。
连接成功后，可以使用 cnn 对象执行 SQL 查询和修改数据库中的数据。
2.执行 SQL 语句
在 VBA 中使用 ADO 对象执行 SQL 查询和修改数据库十分简单。使用 ADO 的 Execute 方法可以执行任何合法的 SQL 语句。以下是一个示例：
“`
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\example.accdb;Persist Security Info=False;”
cnn.Open
rs.Open “SELECT * FROM Customers”, cnn
“`
上面的代码使用 ADO 执行了一个 Select 语句，返回了 Customers 表中的全部数据，数据存储在 Recordset 对象 rs 中。通过 Recordset 对象，可以访问和修改返回的数据。
以下是一个向 Customers 表中添加一个新记录的示例：
“`
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset
cnn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\example.accdb;Persist Security Info=False;”
cnn.Open
rs.Open “SELECT * FROM Customers”, cnn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs(“CustomerName”) = “John Smith”
rs(“Address”) = “123 Mn St”
rs(“City”) = “Anytown”
rs(“Country”) = “USA”
rs.Update
“`
上面的代码使用 ADO 执行了一个 Insert 语句，将一个新的客户记录添加到 Customers 表中。
3.使用参数化查询
在执行 SQL 查询时，更好使用参数化查询来避免 SQL 注入攻击和数据类型转换问题。在 VBA 中，可以使用 ADO 对象的 Command 对象和 Parameters 来执行参数化查询。以下是一个使用参数化查询查询 Customers 表中特定客户记录的示例：
“`
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
Set cmd = New ADODB.Command
Set rs = New ADODB.Recordset
cnn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\User\Desktop\example.accdb;Persist Security Info=False;”
cnn.Open
cmd.ActiveConnection = cnn
cmd.CommandText = “SELECT * FROM Customers WHERE CustomerID = ?”
cmd.CommandType = adCmdText
cmd.Parameters.Append cmd.CreateParameter(“CustomerID”, adVarChar, adParamInput, 10, “ALFKI”)
rs.Open cmd, , adOpenKeyset, adLockReadOnly
“`
在上面的示例中，我们创建了一个 Command 对象，并将 ConnectionString 属性设置为我们之前创建的 ADO 连接对象 cnn。然后，我们通过指定 CommandText 属性为 SELECT * FROM Customers WHERE CustomerID = ? 来执行参数化查询。参数值使用 Parameters 中的 CreateParameter 方法创建，并在执行查询之前添加到 Parameters 中。
VBA 是一种功能强大的编程语言，在 Office 中得到了广泛的应用。通过与数据库进行交互，可以实现更加复杂的功能。在本文中，我们介绍了如何在 VBA 中连接数据库、执行 SQL 查询和修改、使用参数化查询，并提供了一些示例代码。希望这些内容能够对初学者们有所帮助。
