SQL запрос в VBA

[superpsih]

Добрый день.
Нужно создать запрос по двум критериям нахождения записи в таблице.
По одному критерию запрос выглядит так и работает:

strSql = "UPDATE [group_list] set qur_in_gr = '" & b & "' WHERE [lot_g] = " & Form_operation_query.Lot

По двум критериям он выглядит так и не работает:

strSql = "UPDATE [group_list] set qur_in_gr = '" & b & "' WHERE [lot_g] = '" & Form_operation_query.Lot & "' AND [link_id_group]= " & Form_operation_query.Combo23

Насколько я понимаю проблема в операторе AND. Можно ли как-то поправить запрос, чтобы он заработал?

[Аватар]

В чем выражается его неработоспособность?

[superpsih]

Run-time error '3464':
Data type mismatch in criteria expression.
Запрос из окна Immediate:

UPDATE [group_list] set qur_in_gr = '86' WHERE [lot_g] = '88' AND [link_id_group]= 40

На скриншоте строка, которая должна быть изменена.
Первый запрос успешно изменяет в ней значение, но уникальность строки определяется только по двум полям (lot_g и link_id_group), поэтому при появлении поля с одинаковым значением lot_g, возникнут проблемы.

[Аватар]

Data type mismatch in criteria expression

link_id_group небось символьного типа, тогда надо [link_id_group]= '40'

[superpsih]

Всё. Разобрался. Проблема была в link_id_group, правда почему не работало так и не понял. Сейчас код выглядит так:

strSql = "UPDATE [group_list] set qur_in_gr = '" & b & "' WHERE [link_id_group] = " & Form_operation_query.Combo23 & " AND [lot_g]=" & Form_operation_query.Lot

В immediate:

UPDATE [group_list] set qur_in_gr = '8' WHERE [link_id_group] = 40 AND [lot_g]=88

И всё работает!

[come-on]

Разобрался. Проблема была в link_id_group

гдеж разобрался ..

[Аватар]

UPDATE [group_list] set qur_in_gr = '86' WHERE [lot_g] = '88'

Интересно, как это работало

[superpsih]

Сообщение от Аватар

Интересно, как это работало

Не знаю. Поля числовые lot_g и link_id_group, Long_Integer по умолчанию. Поле lot_g - поле с подстановкой. Почему работает и не работало не разобрался, но как сделать чтобы заработало - разобрался.
Кстати, такой вот код:

strSql = "UPDATE [group_list] set qur_in_gr = '" & b & "' WHERE [link_id_group] = " & Form_operation_query.Combo23 & " AND [lot_g]='" & Form_operation_query.Lot & "'"

Или

UPDATE [group_list] set qur_in_gr = '95' WHERE [link_id_group] = 40 AND [lot_g]='88'

тоже не работает с той же самой ошибкой несовместимости типов.
Получается, что чтобы Access принимал значение за число, оно должно быть без кавычек одинарных, а текст - с одинарными кавычками. Правда, непонятно почему он не ругается на

set qur_in_gr = '95'

- это поле тоже числовое, Single.

[Aleksandr H.]

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

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

А как в других СУБД? Числа тоже берутся в кавычки?