Microsoft Access Club >DAO入門講座 >このページ  サイト内検索
 

CreateQueryDefメソッド : DAOリファレンス - DAO入門講座



新しいクエリを作成します。
  • クエリ名を("")以外にすると、自動的にコレクションに追加(新規作成)されます。
  • クエリ名を空白("")にすると、一時的な処理を行うクエリとして作成されます。

作成したクエリは、Executeメソッドで実行が可能です。また、コレクションからの削除は、Deleteメソッドで行います。

書式と引数

  • Set querydef = object.CreateQueryDef (name, sqltext)
引数 解説 その他
querydef QueryDef型で宣言したオブジェクト変数を指定します。 省略不可
object Database型で宣言したオブジェクト変数を指定します。 省略不可
name 作成するクエリ名を文字列で指定します。 省略可
sqltext クエリの内容をSQLで指定します。 省略可

事例

下記のプロシージャ は、CreateQueryDefメソッドで一時的な更新クエリを作成し、「売上げ金額」フィールドのレコードを操作します。

Sub CreateQuery()

    On Error GoTo エラー
                
    Dim db As Database, qdf As QueryDef
    Dim mySQL As String
    
    Set db = CurrentDb ' --- A
    
    mySQL = "UPDATE 売上げリスト SET 売上金額 = [売上金額]*1.05;" ' --- B
    
    Set qdf = db.CreateQueryDef("", mySQL) ' --- C
            
    qdf.Execute ' --- B
    db.Close: Set db = Nothing
    
    Exit Sub
    
エラー:
    
    MsgBox Err.Number & " : " & Err.Description

End Sub
解説
  1. カレント データベースへの参照を取得します。
  2. 更新クエリのSQLです。
  3. クエリ名を長さ0の文字列("")にすると、一時的なクエリになります。
  4. Executeメソッドで、SQLを実行します。

実行結果

このプロシージャを実行すると、下記のように「売上げ金額」フィールドの値が5%増しの金額に更新されます。

関連ページ

 

2004/05/07

ページの先頭へ 前ページへ戻る

 


CreateQueryDefメソッド : DAOリファレンス - DAO入門講座


 

-Microsoft Access Club-

アメリカ合衆国やヨーロッパのデータセンターからcPanelレンタルサーバーをご提供します。お支払いは日本国内の銀行振込で...。1ヵ月契約からOKです。
アメリカ合衆国やヨーロッパからcPanelレンタルサーバー。
お支払いは日本国内の銀行振込。
最短契約期間は1ヵ月契約からOKです。