複数条件で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がデータ更新されません。
何が悪いのか修正いただきたく。

回答No.1

HohoPapa · ベストアンサー

ぱっと見間違いは無さそうに思えます。
私だったら次のように書き、
投げている生のSQL文を確認します。

Option Explicit
ぱっと見間違いは無さそうに思えます。
私だったら次のように書き、
投げている生のSQL文を確認します。

Option Explicit
Sub aaa()
　Dim SQL As String
　With ThisWorkbook.ActiveSheet
　　SQL = ""
　　SQL = SQL & "UPDATE TABLE1" & vbCrLf
　　SQL = SQL & "set KOMOKU1 = '" & .Cells(1, 1).Value & "'" & vbCrLf
　　SQL = SQL & "WHERE" & vbCrLf
　　SQL = SQL & "((KOMOKU3 = '" & .Cells(1, 3).Value & "')" & vbCrLf
　　SQL = SQL & "AND" & vbCrLf
　　SQL = SQL & " (KOMOKU6 = '" & .Cells(1, 6).Value & "'))" & vbCrLf
　End With
　Debug.Print SQL
　'又は
　'MsgBox (SQL)

　With cmd
　　.CommandText = SQL
　　'Debug.Print .CommandText
　End With

End Sub

お礼

参考になりました。ありがとうございます

補足

上記aaaを参考にさせていただきやってみましたが、結果は同じで更新されませんでした。
しかしながら、提示いただいた内容はWHEREのあとに(がついています。
これを対応すると更新できました。

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