Запрос на обновление таблицы через CurrentDb.Execute - слишком мало параметров

@skol13 · Регистрация: 23.05.2012

Студворк — интернет-сервис помощи студентам

Камрады добрый день!
подскажите как правильно сформулировать запрос на обновление записей через CurrentDb.Execute
Нифига не вдупляю.
Нагуглил только по форуму и в инете, что что то не так, а не доходит как исправить.
Везде вроде бы проблемы связаны с полями из формы, а у меня вылетает на таблице, с полем из формы я разобрался и проверил - просто запрос на обновление поля [Дата По] датой с формы без условий на отбор отрабатывает.
Проблемный запрос:

Visual Basic
1
2
3
        ' проапдейтим дубли в основной таблице - закроем их датой Me.DataOpen - 1 чтобы потом добавить новые записи
        strSQL = "UPDATE Аллергены SET [Дата По] = '" & Me.DataOpen - 1 & "' where Аллергены.[Код аллергена] = ВременнаяДляИмпорта.[Код аллергена] and ВременнаяДляИмпорта.[Не импортировать] = false and '" & Me.DataOpen - 1 & "' between Аллергены.[Дата С] and Аллергены.[Дата По] "
        CurrentDb.Execute strSQL

Вот где то в условии where что то не так.
Пробовал всяко, и через where exists (select...) тоже, не проходит никак.
По задумке суть апдейта в следующем: если в таблице существуют записи которые пытаемся повторно импортировать, то существующие записи надо "закрыть" изменив в них дату действия записи [Дата По]
База прилагается, ошибка появляется при попытке импортировать данные из Excel-файла при снятом с одной или нескольких записей флажке "Не импортировать".
Подскажите где туплю

@SDKU · 12.06.2022, 17:43

А Вы в курсе работы с датами в VBA? Дату надо указывать в "буржуинском" формате типа:"... [таблицаИсточникФормы].[myDate]=#" & Format(me.датаС,"mm\/dd\/yyyy") & "#"
(1.2.2020 в процедуре VBA должно выглядеть так:#2/1/2020# или так #2020-2-1#)

Добавлено через 25 минут
PS.:"...датаПО=#" & Format(me.DataОпеn,"mm\/dd\/yyyy") & "# ...."

@skol13 · 12.06.2022, 20:15 **[ТС]**

Сообщение от SDKU

А Вы в курсе работы с датами в VBA? Дату надо указывать в "буржуинском" формате типа:"... [таблицаИсточникФормы].[myDate]=#" & Format(me.датаС,"mm\/dd\/yyyy") & "#"
(1.2.2020 в процедуре VBA должно выглядеть так:#2/1/2020# или так #2020-2-1#)

В курсе, но тут дело видимо не в этом. Пробовал, не помогает.
Да и хавает он в селектах и в инсертах дату в обычном режиме, неужели апдейт отличается?
К тому же если сделать вот такой апдейт:

Visual Basic
1
2
        strSQL = "UPDATE Аллергены SET [Дата По] = '" & Me.DataOpen - 1 & "'"
        CurrentDb.Execute strSQL

То все отработает, по всем записям, без условия на них.
При этом если дату взять 01.06.2022 то в поле [Дата По] будет 31.05.2022, как и полагается.
Если все же дело в датах, можете написать целиком строку запроса на обновление, чтобы заработало?

@SDKU · 12.06.2022, 20:55

а поля [lдатаПо] и me.датаОпеn какого типа: дата\время или текст? Дата обрамляется # а не '

@skol13 · 12.06.2022, 21:37 **[ТС]**

Сообщение от SDKU

а поля [lдатаПо] и me.датаОпеn какого типа: дата\время или текст?

В таблице Дата/время, в форме "краткий формат даты".
Там в первом сообщении файлик приложен с рабочим примером
Точнее не рабочим

@ltv_1953 · 12.06.2022, 22:01

Дата хранится в Аксессе как "Двойное с плавающей точкой", целая часть - дата, дробная - время. Запрос работает, т.к. воспринимает дату (в форме) как целое число и вычитает из нее 1. Но делать так не стоит, хотя использование вычитания некоторого количества дней вместо соответствующего DateDiff делают часто. НО лучше к этому не привыкать, в других SQL даты храняться по другому.

@SDKU · 12.06.2022, 22:18

Сообщение от skol13

В таблице Дата/время, в форме "краткий формат даты".

А как же это

Сообщение от SDKU

Дата обрамляется # а не '

@skol13 · 12.06.2022, 23:59 **[ТС]**

Елы палы...

У меня не работает апдейт, и не работает не из-за формата даты.
Потому что пробовал я по всякому, и с форматами игрался в том числе.
Кто то может сказать по существу - в чем проблема?
Если вы упорствуете в том, что проблема в формате даты - ок, пусть так, тогда напишите, пожалуйста, рабочий запрос на апдейт.
Условия на апдейт в первом сообщении, там же лежит база данных с нужными таблицами и образцом данных для загрузки.
И неработающим апдейтом.

Добавлено через 24 минуты
вот такая конструкция отрабатывает:

Visual Basic
1
2
3
        strSQL = "UPDATE Аллергены SET [Дата По] = '" & Me.DataOpen - 1 & "' where " & _
                         Format$(Me.DataOpen, "\#mm\/dd\/yyyy\#") & " Between Аллергены.[Дата С] And Аллергены.[Дата По]"
        CurrentDb.Execute strSQL

т.е. дело точно не в формате даты.
пусть это коряво и не в стандарте, но мне надо, чтобы хотя бы заработало так как задумывалось, для начала...
проблема где то в проверке на наличие записи во временной таблице для загрузки.

@Capi · 13.06.2022, 00:11

Сообщение от skol13

Елы палы...

)))

Попробуйте так:

Visual Basic
1
2
3
4
5
6
strSQL = "UPDATE Аллергены INNER JOIN ВременнаяДляИмпорта " & _
         "ON Аллергены.[Код аллергена] = ВременнаяДляИмпорта.[Код аллергена] " & _
         "SET [Дата По] = '" & Me.DataOpen - 1 & "' " & _
         "where NOT ВременнаяДляИмпорта.[Не импортировать] and '" & Me.DataOpen - 1 & "' " & _
         "between Аллергены.[Дата С] and Аллергены.[Дата По]"
CurrentDb.Execute strSQL

БД не смотрела.

@skol13 · 13.06.2022, 00:21 **[ТС]**

Все, разобрался.
Перестановка мест слагаемых и сборка по кусочкам помогли понять, где был косяк.
Вот так работает:

Visual Basic
1
2
3
4
        strSQL = "UPDATE Аллергены SET [Дата По] = '" & Me.DataOpen - 1 & "' where " & _
                         Format$(Me.DataOpen, "\#mm\/dd\/yyyy\#") & " Between Аллергены.[Дата С] And Аллергены.[Дата По]" & _
                         " and exists (select 1 from ВременнаяДляИмпорта where [Не импортировать] = false and Аллергены.[Код аллергена] = ВременнаяДляИмпорта.[Код аллергена])"
        CurrentDb.Execute strSQL

Можно закрывать, спасибо всем за участие.

@Capi · 13.06.2022, 00:25

Сообщение от skol13

Все, разобрался.

Но всё же, попробуйте с INNER JOIN.

Побыстрее будет, чем с exists.

@skol13 · 13.06.2022, 00:50 **[ТС]**

Сообщение от Capi

Но всё же, попробуйте с INNER JOIN.
Может, побыстрее будет, чем с exists ?

Спасибо, попробую.

Добавлено через 18 минут
Отработало, но тут пришлось таки приводить все даты к формату #mm/dd/yyyy#
Иначе не принимал. Писал ошибку несоответствия типов параметров

Visual Basic
1
2
3
4
5
6
strSQL = "UPDATE Аллергены INNER JOIN ВременнаяДляИмпорта " & _
         "ON Аллергены.[Код аллергена] = ВременнаяДляИмпорта.[Код аллергена] " & _
         "SET [Дата По] = " & Format$(Me.DataOpen - 1, "\#mm\/dd\/yyyy\#") & _
         "where NOT ВременнаяДляИмпорта.[Не импортировать] and " & Format$(Me.DataOpen, "\#mm\/dd\/yyyy\#") & " " & _
         "between Аллергены.[Дата С] and Аллергены.[Дата По]"
CurrentDb.Execute strSQL

@Capi · 13.06.2022, 00:55

Сообщение от skol13

но тут пришлось таки приводить все даты к формату #mm/dd/yyyy#

Вот и эта информация пригодилась. )))

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 03.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@SDKU 598 / 404 / 51 Регистрация: 06.03.2022 Сообщений: 2,129
	12.06.2022, 17:43
	А Вы в курсе работы с датами в VBA? Дату надо указывать в "буржуинском" формате типа:"... [таблицаИсточникФормы].[myDate]=#" & Format(me.датаС,"mm\/dd\/yyyy") & "#" (1.2.2020 в процедуре VBA должно выглядеть так:#2/1/2020# или так #2020-2-1#) Добавлено через 25 минут PS.:"...датаПО=#" & Format(me.DataОпеn,"mm\/dd\/yyyy") & "# ...." 0

@SDKU 598 / 404 / 51 Регистрация: 06.03.2022 Сообщений: 2,129
	12.06.2022, 20:55
	а поля [lдатаПо] и me.датаОпеn какого типа: дата\время или текст? Дата обрамляется # а не ' 0

@ltv_1953 17536 / 7288 / 1663 Регистрация: 21.06.2012 Сообщений: 13,957
	12.06.2022, 22:01
	Дата хранится в Аксессе как "Двойное с плавающей точкой", целая часть - дата, дробная - время. Запрос работает, т.к. воспринимает дату (в форме) как целое число и вычитает из нее 1. Но делать так не стоит, хотя использование вычитания некоторого количества дней вместо соответствующего DateDiff делают часто. НО лучше к этому не привыкать, в других SQL даты храняться по другому. 1