複数条件でoracleデータ更新
office2016 Oracle12C
excelの
A1にTEST
C1にSERIAL01
F1にKOTEI1
のデータが入っていて、oracleのテーブルデータをexcelマクロで更新させようとしています。
oracle接続等のコマンドは省略してポイント部分のマクロだけ記載します。
(1)
With cmd
.CommandText = "UPDATE TABLE1 set KOMOKU1 = '" & ActiveSheet.Cells(1, 1) & "' WHERE KOMOKU3 = '" & ActiveSheet.Cells(1, 3) & "' "
End With
上記(1)を実行すると、oracleのTABLE1のデータはSERIAL01に関して KOMOKU1の列がTESTに更新されます。
(2)
With cmd
.CommandText = "UPDATE TABLE1 set KOMOKU1 = '" & ActiveSheet.Cells(1, 1) & "' WHERE KOMOKU6 = '" & ActiveSheet.Cells(1, 6) & "'"
End With
上記(2)を実行すると、oracleのTABLE1のデータはKOTEI1に関して KOMOKU1の列がTESTに更新されます。
(3)
やりたい内容は、
KOMOKU3がSERIAL01
KOMOKU6がKOTEI1
のAND条件だった場合に、KOMOKU1を更新させたいので、
With cmd
.CommandText = "UPDATE TABLE1 set KOMOKU1 = '" & ActiveSheet.Cells(1, 1) & "' WHERE KOMOKU3 = '" & ActiveSheet.Cells(1, 3) & "' AND KOMOKU6 = '" & ActiveSheet.Cells(1, 6) & "'"
End With
の様なマクロを実行するのですが、対象のKOMOKU1がデータ更新されません。
何が悪いのか修正いただきたく。
お礼
ご回答どうもありがとうございました。 参考にします。