Set basa = CurrentDb
s = "SELECT Товар,Поставщик FROM Товары WHERE "
s = s & " Поставщик BETWEEN 'Красный Октябрь' AND 'Тверьрыба'"
Set zapros = basa.CreateQueryDef("Запрос1", s)
DoCmd.OpenQuery ("Запрос1")
basa.QueryDefs.Delete "Запрос1"
Set basa = Nothing
Результат:
Выборка произведена по
алфавитному расположению.
Пример:
Выбрать из таблицы «Товары» все записи, где название товара совпадает со значениями: сыр, масло, шоколад.
Строка запроса:
S=” SELECT * FROM Товары WHERE Товар IN (‘Сыр’, ‘Масло’, ‘Шоколад’)”
Результат работы:
Пример:
В таблице Товары изменить значение название товара=”Сыр” на
значение “Швейцарский сыр”
S=”UPDATE Товары SET Товар=’Швейцарский сыр’ where Товар=’Cыр’”
Таблица “Товары” до обновления:
При выполнении в системные окна выдаются сообщения:
Необходимо сделать выбор. Если нажали «Да», то появится следующее сообщение:
Подтвердить обновление.
При повторном запуске запроса будет появляться окно:
Таблица “Товары” после обновления:
Пример:
Удалить записи из таблицы, где Цена =100 и поле Товар=’Масло’