從Excel中插入SQL日期會導致錯誤的日期值

Question

我無法從Excel執行我的SQL查詢的一部分。 請注意，同一查詢可在Manager的PC上運行，並且兩者均位於CP的相同“區域”設置中。

這是代碼：

Do While Range("A" & CStr(Red)).Value <> ""

    Sql_Query = "UPDATE [DB-NAME] SET [Expiration Date] = '" & Format(Trim(Range("H" & CStr(Red)).Value), "yyyy-mm-dd") & _
       "' WHERE (No_ = '" & Trim(Range("A" & CStr(Red)).Value) & "') AND ([Pallet Place No_] = '" & Trim(Range("B" & CStr(Red)).Value) & "') AND " & _
       "([Item No_] = '" & Trim(Range("C" & CStr(Red)).Value) & "')"
    Set Rs = Conn.Execute(Sql_Query)
    'Rs.Close ' Closing query
    Set Rs = Nothing

    Red = Red + 1 'Switching to the next row after one is finished
Loop

當我執行此部分時，代碼先生將插入如下代碼：

"UPDATE [DB-NAME] SET [Expiration Date] = '7627-09-30' WHERE (No_ = '267917') AND ([Pallet Place No_] = '11110102') AND ([Item No_] = '116000')"

注意：這是“ 添加監視 ”選項返回的文本。

即使在“ H”列中，日期也類似於“ 2018-12-30”。

Excel中的單元格格式不會更改。 如果它的“常規”或“文本”或“日期”或“自定義日期”問題仍然存在，則不重要。 這與Code先生的觀點是一致的。

Answer 1

該查詢是否可以在您的計算機上正常工作？ 嘗試更新其他字段（最好是數字類型）。