如何在 Microsoft Access 应用程序中有效使用 VBA 中的参数？

在 Microsoft Access 中不同上下文中使用 VBA 参数

为了避免错误并有效处理带单引号的名称，在涉及动态 SQL 和字符串连接的复杂 Access 应用程序中使用参数至关重要。以下是利用参数在不同上下文中的各种方法：

窗体和报表

Access 提供了直接在 SQL 代码中使用窗体和报表上控件的值的独特功能，在许多情况下无需参数。对于控件，使用语法 Forms!MyForm!MyTextbox；对于子窗体上的控件，使用 Forms!MyForm!MySubform.Form!MyTextbox；对于报表上的控件，使用 Reports!MyReport!MyTextbox。

域聚合

DLookUp 等域聚合也可以直接从窗体和报表中获益。例如，DLookUp("Field1", "Table2", "ID = Forms!MyForm!MyTextbox")。

DoCmd.RunSQL

当使用 DoCmd.RunSQL 执行 SQL 命令时，使用字符串连接来合并参数值：DoCmd.RunSQL "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE ID =" & Me.MyTextbox。

DAO 记录集

对于 DAO，使用 CurrentDb.CreateQueryDef() 创建查询，然后使用 QueryDef.Parameters 设置参数：

<code class="language-vba">With CurrentDb.CreateQueryDef("", "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE Field1 = ? And Field2 = ?")
    .Parameters(0) = Me.Field1
    .Parameters(1) = Me.Field2
    .Execute
End With</code>

ADODB 记录集

在 ADO 中，使用 ADODB.Command 对象及其 Parameters 集合来设置参数。对于未命名的参数，将值数组传递给 Command.Execute。对于命名参数（虽然不受官方支持），使用 Command.CreateParameter()：

<code class="language-vba">With cmd
    Set .ActiveConnection = CurrentProject.Connection ' 使用当前数据库的连接
    .CommandText = "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE Field1 = ? And Field2 = ?"
    .Parameters.Append .CreateParameter(, adVarWChar, adParamInput, Len(Me.Field1), Me.Field1) ' adVarWChar 用于可能包含 Unicode 的文本框
    .Parameters.Append .CreateParameter(, adInteger, adParamInput, 8, Me.Field2) ' adInteger 用于整数（长整数或整数）
    .Execute
End With</code>

TempVars

TempVars 是全局可用的变量，可以设置和重复用于多个查询：

<code class="language-vba">TempVars!MyTempVar = Me.MyTextbox.Value ' 对简单的控件使用 .Value
DoCmd.RunSQL "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE ID = TempVars!MyTempVar"</code>

自定义函数 (UDF)

创建具有静态变量的函数来存储和检索参数值：

<code class="language-vba">Option Compare Database
Option Explicit

Private ThisDate As Date

Public Function GetThisDate() As Date
    If ThisDate = #12:00:00 AM# Then
        ' 设置默认值。
        ThisDate = Date
    End If
    GetThisDate = ThisDate
End Function

Public Function SetThisDate(ByVal NewDate As Date) As Date
    ThisDate = NewDate
    SetThisDate = ThisDate
End Function</code>

然后像这样使用：

<code class="language-vba">SetThisDate SomeDateValue ' 将 SomeDateValue 存储在 ThisDate 中。
DoCmd.RunSQL "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE [SomeDateField] = GetThisDate()"</code>

以上是如何在 Microsoft Access 应用程序中有效使用 VBA 中的参数？的详细内容。更多信息请关注PHP中文网其他相关文章！