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