'-------------------------

'抽出条件１個の選択クエリ

mySQL = "SELECT * FROM テーブル WHERE 番号= '" & Me.番号 & "' ;"

'-------------------------

'抽出条件複数の選択クエリ

mySQL = "SELECT * FROM テーブル WHERE " & _

　　　　　"(((番号)= '" & Me.サブフォーム.Form.番号 & "') AND ((日付) Is Null));"

'-------------------------

'DISTINCTはグループ化の意　

mySQL(0) = "SELECT DISTINCT 番号 FROM テーブル1 WHERE isnull(日付);"

mySQL(1) = "SELECT * FROM テーブル2 WHERE 番号= any (" & mySQL(0) & ")"

'-------------------------

'抽出条件有りの選択クエリ

mySQL = "SELECT * FROM テーブル " & _

　　　　　"WHERE 日付=#" & Me.サブフォーム.Form.日付 & "# ;"

rs.Open mySQL, cn, adOpenForwardOnly, adLockOptimistic

'rsをフィルター（抽出）する

　　　　　my番号 = Me.サブフォーム.Form.番号

　　　　　rs.Filter = "No = '" & my番号 & "'"

'-------------------------

'SQLでサブクエリ　Where〜Any〜を使う

mySQL(0) = "SELECT 番号 FROM テーブル1"

mySQL(1) = "UPDATE テーブル2 SET " & _

  "日付=#" & Me.日付 & "# " & _

  "Where 番号= any (" & mySQL(0) & ");"

'-------------------------

'Where〜In〜で抽出したものを、テーブル2からテーブル1に追加クエリで追加する

mySQL = "INSERT INTO テーブル1 ( 顧客名,担当者,メールアドレス,日付時刻)" & _

  "Select コード, 顧客名, 担当者,メールアドレス, #" & Now() & "# " & _

  "From テーブル2 Where テーブル2.コード In(" & rs!.コード & ");"

'-------------------------

' SQLでサブクエリ　From句で使う

 

  mySQL = "SELECT テーブル1.名前 FROM テーブル1 " _

  & "WHERE テーブル1.日付=#" & [Forms]![フォーム]![日付] & "# " _

  & "GROUP BY テーブル1.名前;"

 

  mySQL = "SELECT * FROM [" & mySQL & "]. as QQQ "