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 –средняя цена этих товаров.