更新、追加、削除 のクエリ | カメレオンのVBA

カメレオンのVBA

VBAの私的メモ書き

 '(更新クエリ)値を更新する
'myVの値のレコード(行)なら、CD項目はmyAに変更する
'UPDATE シート名 SET 更新する項目名 = 更新する値 WHERE 条件式
例)

    myA = "'aaaa'"  '更新後の値
    myV = 6460000 'キーとなる値
    myRs2.Open "UPDATE [データ$] SET アカサタナ = " & myA & " WHERE 郵便番号 = cstr(" & myV & ") ;", myCn2


'(追加クエリ)値を追加する
'INSERT INTO シート名 (項目名) VALUES(値)
例)
    myRs2.Open "INSERT INTO [データ$] (CD,a) VALUES(49,5555)  ;", myCn2


'(削除クエリ)値を削除する
'DELETEはエクセルでは対応していない!
'かわりに次のような対応の仕方がある
例)
'①対象となる値を抽出し、キーとして「削除」という文言を入れる

    myRs2.Open "UPDATE [データ$] SET CD = '削除' WHERE 郵便番号 IS NULL ;", myCn2
   
'②削除という文言が入っているセル以外を抽出しなおす
    myRs2.Open "SELECT * FROM [データ$] WHERE CD <> '削除' ;", myCn2