АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

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

Читайте также:
  1. Dim basa as Database, nabor as Recordset
  2. Dim basa As Database, nabor As Recordset, поля As Field, имена As String
  3. Dim basa As Database, zapros As QueryDef, s As String, bucva As String
  4. ВЯЖУЩИЕ СРЕДСТВА (ADSTRINGENTIA)
  5. Настройка компонент StringGrid
  6. Настройка компонента TStringGrid
  7. Настройка компоненты StringGrid

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

 
 

 


 

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 |

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



Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)