double arrow

Dim basa As Database, zapros As QueryDef, s As String, bucva As String. s = "SELECT * FROM Товары WHERE Цена>80 and цена <130"

Set basa = CurrentDb

s = "SELECT * FROM Товары WHERE Цена>80 and цена <130"

Set zapros = basa.CreateQueryDef("Запрос1", s)

DoCmd.OpenQuery ("Запрос1")

basa.QueryDefs.Delete "Запрос1"

Set basa = Nothing

Пример:

Получить из таблицы «Товары» все записи по полю Поставщик от значения =”Красный Октябрь” до значения “Тверьрыба”. Выбрать только поля: название товара, поставщик.


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



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