動画で三流解説
動画の簡単な説明
詳細解説は
三流君VBA:Access お互いのテーブルの差を求める DAO使用
http://www.ken3.org/vba/backno/vba184.html
を見て、笑ってください。。。
DAOで作りたいので、参照設定確認後、
Dim DB As DAO.Database と 変数を切ってから、
Set DB = CurrentDb() '自分自身で、データベースを指定して、
'無条件で（全て）テーブル内を削除
DB.Execute "DELETE * FROM CCC;" 'SQLクエリーの発行
こんな感じて削除のSQLを走らせました。
追加のSQLを
Dim strSQL As String
strSQL = "INSERT INTO CCC ( 品番, ロット, 数量, 結果 ) "
strSQL = strSQL & " SELECT AAA.品番, AAA.ロット, AAA.数量, ""aaa"" as flg FROM AAA;"
DB.Execute strSQL 'SQLクエリーの発行 AAAからCCCへデータを追加
まぁ、2つSQLを.Execute で発行しただけです。。。
動画解説やテスト結果
www.youtube.com動画元: QA0815 Access DAO DB.Execute SQL で SQL文の実行 - YouTube
