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

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

简介

在 Visual Basic for Applications (VBA) 中使用参数对于防止 SQL 注入和确保 Access 应用程序的数据完整性至关重要。本文提供了关于如何在各种上下文中有效地使用 VBA 参数的全面示例和指导，包括使用窗体和报表值、TempVars、自定义函数以及 DAO 和 ADO 对象。

使用窗体和报表中的值作为参数

Access 提供了一种便捷的方法，可以直接在 SQL 代码中访问窗体和报表上控件的当前值，从而无需显式参数。引用控件作为参数对于 DoCmd.RunSQL、窗体/报表记录源和筛选器以及域聚合非常有用。

<code>DoCmd.RunSQL "INSERT INTO Table1(Field1) SELECT Forms!MyForm!MyTextbox" '插入单个值</code>

使用 TempVars 作为参数

TempVars 是全局可访问的变量，可以在 VBA 或使用宏中为其赋值。它们可以重复用于多个查询，并且对于参数化窗体/报表非常有利，因为它们在源对象关闭时会保留。

<code>TempVars!MyTempVar = Me.MyTextbox.Value
DoCmd.RunSQL "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE ID = TempVars!MyTempVar"</code>

使用自定义函数 (UDF) 作为参数

可以使用自定义函数和静态变量来存储和检索参数值。这种方法提供了灵活性，并允许使用可选参数。

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

使用 DoCmd.SetParameter

DoCmd.SetParameter 允许参数化某些 DoCmd 操作，例如打开窗体和报表，但不适用于 DoCmd.RunSQL 或 DAO/ADO。

<code>DoCmd.SetParameter "MyParameter", Me.MyTextbox
DoCmd.OpenForm "MyForm",,, "ID = MyParameter"</code>

使用 DAO

DAO 提供了全面的参数处理功能。QueryDef 对象用于创建参数化查询，可以直接执行这些查询或将其用于打开记录集。

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

使用 ADO

ADO 通过 Command 对象提供参数处理。可以在查询执行期间显式创建参数或将其作为数组传递。

<code>Set cmd = New ADODB.Command
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>

通过在 VBA 中采用参数化技术，Access 开发人员可以显著增强其应用程序的安全性和健壮性。

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