Вставка даты SQL из Excel приводит к неверному значению даты

Question

У меня проблема с выполнением части моего запроса SQL из Excel. Обратите внимание, что один и тот же запрос работает с ПК моего менеджера, и оба находятся в одинаковых региональных настройках в 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

Когда я выполняю эту часть, Mr. Code вставляет следующий код:

"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 не вносит изменений. Это не важно, если его общие или текст или дата или пользовательская дата, проблема остается. И эта вещь с мистером Кодексом соответствует.

Answer 1

Этот запрос работает вообще с вашего компьютера? Попробуйте обновить другое поле (лучше номер типа).