Microsoft Access アプリケーションの VBA でパラメータを効果的に使用する方法

Microsoft Access のさまざまなコンテキストでの VBA パラメータの使用

エラーを回避し、一重引用符で囲まれた名前を効率的に処理するには、動的 SQL と文字列連結を含む複雑な Access アプリケーションでパラメーターを使用することが重要です。さまざまなコンテキストでパラメーターを利用するさまざまな方法を次に示します:

フォームとレポート

Access は、多くの場合パラメーターを使用せずに、フォームやレポートのコントロールの値を SQL コードで直接使用する独自の機能を提供します。コントロールの場合は、Forms!MyForm!MyTextbox という構文を使用し、サブフォームのコントロールの場合は、Forms!MyForm!MySubform.Form!MyTextbox を使用します。レポートのコントロールには、Reports!MyReport!MyTextbox を使用します。

ドメイン集約

DLookUp のようなドメイン集約も、フォームやレポートから直接メリットを得ることができます。たとえば、DLookUp("フィールド 1", "テーブル 2", "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 を使用してパラメータを設定します。

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

ADODB レコードセット

ADO では、ADODB.Command オブジェクトとその Parameters コレクションを使用してパラメータを設定します。名前のないパラメーターの場合は、値の配列を Command.Execute に渡します。名前付きパラメーターの場合 (正式にはサポートされていませんが)、Command.CreateParameter():

を使用します。

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

TempVars

TempVar は、複数のクエリで設定および再利用できるグローバルに利用可能な変数です:

TempVars!MyTempVar = Me.MyTextbox.Value ' 对简单的控件使用 .Value
DoCmd.RunSQL "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE ID = TempVars!MyTempVar"

カスタム関数 (UDF)

パラメータ値を保存および取得するための静的変数を含む関数を作成します:

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

次に、次のように使用します:

SetThisDate SomeDateValue ' 将 SomeDateValue 存储在 ThisDate 中。
DoCmd.RunSQL "INSERT INTO Table1(Field1) SELECT Field1 FROM Table2 WHERE [SomeDateField] = GetThisDate()"

以上がMicrosoft Access アプリケーションの VBA でパラメータを効果的に使用する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。