VBA 参数 ADODB 空值 - VBA

在使用 VBA 的 ADODB 中，我们有时需要将参数传递给我们的查询或存储过程。有些情况下，我们需要使用空值（NULL）来传递参数。本文将介绍在 VBA 中如何传递空值参数。

传递空值参数

首先，我们需要定义一个 ADODB 的命令对象，然后使用 CreateParameter 方法来创建参数。下面是一个示例代码：

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = conn ' conn 为你已经打开的数据库连接
cmd.CommandText = "INSERT INTO my_table (field1, field2) VALUES (?, ?)"
cmd.CommandType = adCmdText
cmd.Parameters.Append cmd.CreateParameter("param1", adVarChar, adParamInput, 50, "value1")
cmd.Parameters.Append cmd.CreateParameter("param2", adVarChar, adParamInput, 50, vbNull) ' 传递空值参数
cmd.Execute

在上面的代码中，我们创建了一个命令对象 cmd，并定义了一个 INSERT INTO SQL 语句。然后，我们使用 CreateParameter 方法来创建了两个参数，其中第二个参数 param2 的值被设置为 vbNull，代表一个空值。

注意事项

在 VBA 中传递空值参数时，需要使用 vbNull。

如果你的参数类型为数字类型，例如整型或双精度浮点型，那么你需要使用 adEmpty 来传递空值参数。

如果你想要使用引用参数，那么你需要传递 Nothing 代表空值。

总结

本文介绍了如何在 VBA 的 ADODB 中传递空值参数。在使用命令对象前，我们需要先定义一个 ADODB 连接对象，并保证连接已经打开。在创建参数时，我们需要使用 CreateParameter 方法，并设置参数类型、方向、大小等属性。为了传递空值参数，我们需要使用 vbNull 或 adEmpty。