double arrow

Dim basa As Database, zapros As QueryDef, s As String, bucva As String

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 и поле Товар=’Масло’


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: