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 で発行しただけです。。。

Category:

Science & Technology

Tags:

• QA0815
• Access
• DAO
• .Execute
• SQL
• SQL文実行
• 三流君
• 試行錯誤