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

Set basa = CurrentDb

s = "Delete from Товары where Цена=100 and Товар='Масло'"

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

Zapros.Execute

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

Set basa = Nothing

Результат:

В задаче использован метод Execute для объекта QueryDef. В отличие от объекта Docmd - этот метод не даёт никаких уведомлений о ходе выполнения запроса.

Пример

Отсортировать таблицу “Товары” по полю Товар - по возрастанию, а по полю Цена – по убыванию.

Таблица до сортировки:

Строка запроса:

s = "SELECT * FROM Товары ORDER BY Товар ASC, Цена DESC"

Таблица после сортировки:

В начале сортируется по алфавиту название товара, при совпадающих

названиях сортируется по убыванию поле Цена.

Пример

В таблице “Товары” вычислить количество товаров с одним наименованием и их среднюю цену:

Строка запроса:

s = "SELECT Товар, Count(Товар),avg(Цена) FROM Товары Group BY Товар "

Результат работы

В поле Expr1 помещено количество товаров одного

наименования, в поле Expr2 –средняя цена этих товаров.

Поиск по сайту: