三流君 ken3のmemo置き場

メモ置き場、保管庫として利用。まとまっていませんがヨロシク



QA0815 Access DAO DB.Execute SQL で SQL文の実行

動画で三流解説

動画の簡単な説明

詳細解説は
三流君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 で発行しただけです。。。

動画解説やテスト結果


動画元: QA0815 Access DAO DB.Execute SQL で SQL文の実行 - YouTube

動画区分・リンク