SELECT *, (IIf(Покупки > 5; 0.06; 0)) AS Скидка From Постоянные_клиенты;

Он даст нам источник записей, который содержит все поля и записи таблицы «Постоянные_клиенты», а в придачу к ним - уже рассчитанные скидки в соответствующем поле.

Более подробно о поддерживаемых вычислительных операциях можно прочитать в соответствующем разделе справки Microsoft Access.

Access поддерживает также групповые (итоговые) операции. Это значит, что можно рассчитать, исходя из набора данных, некоторые статистические и другие характеристики, такие как сумма, дисперсия, математическое ожидание и другие. В запросах этим пользуются не очень часто, но пользуются. Поля с групповыми вычислениями объявляются так же, как и обычные вычисляемые поля. Например, запрос

SELECT Sum(Покупки) AS Количество FROM Постоянные_клиенты;

Вернет нам одну-единственную запись с общим числом покупок, сделанным всеми постоянными клиентами.

Иногда для удобства анализа данных их необходимо группировать. Т.е. если в источнике записей есть записи, повторяющиеся по каким-либо критериям, подчас лучше привести их к одной и вывести их количество.

Итак, есть две таблицы: «Ассортимент», содержащая список товаров, которыми торгует гипотетическая фирма «Рога_и_копыта», и безграмотно составленная таблица «Склад», в которую при нахождении каждого экземпляра товара добавляли запись. Надо сделать так, чтобы данные из этих таблиц отобразались наглядно.

Таблица «Ассортимент» содержит поля «ID_товара» и «Наименование», а связанная с ней таблица «Склад» - только «ID_товара».

Вначале создадим запрос «Склад_гр», который сгруппирует повторяющиеся записи в таблице «Склад» и выведет количество повторений для каждой записи. Для этого применим групповую операцию Count и конструкцию GROUP BY.

В общем виде группировка выглядит так:

SELECT (список_полей) FROM (список_таблиц) GROUP BY (список_полей);

В нашем случае мы получим такой запрос:

SELECT ID_товара, Count(ID_товара) AS Количество FROM Склад

GROUP BY ID_товара;

Этот запрос даст нам уже сгруппированную таблицу, и мы легко сможем увидеть, сколько экземпляров каждого товара лежит на складе. Но теперь желательно было бы просмотреть наименования товаров, лежащих на складе. Для этого воспользуемся уже знакомой операцией INNER JOIN.

SELECT Количество FROM Склад_гр INNER JOIN Ассортимент ON (Склад_гр.ID_товара = Ассортимент.ID_товара);

Возвращенный таким запросом источник записей будет иметь следующую структуру:

Как раз то, что нужно.

2.5. Сортировка полученных результатов

Для того, чтобы сделать вывод упорядоченным, язык SQL предлагает использование конструкции ORDER [ASCEND|DESCEND] BY (поле). ASCEND/DESCEND - это направление сортировки - по возрастанию или убыванию, соответственно. Модернизируем наш предыдущий запрос таким образом, чтобы он при выводе сортировал данные по полю «Наименование»:

SELECT Количество FROM Склад_гр INNER JOIN Ассортимент ON (Склад_гр.ID_товара = Ассортимент.ID_товара)

ORDER ASCEND BY Наименование;

На этом закончим рассмотрение (несколько поверхностное) предложений SELECT.

3. Запросы на добавление

В дальнейшем мы будем рассматривать запросы, которые управляют непосредственно данными в таблицах, а то и самими таблицами. При их разработке и выполнении следует соблюдать осторожность, т.к. изменения, вносимые такими запросами в данные, зачастую необратимы. Естественно, что источниками данных для таких запросов могут являться только таблицы.

Иногда, зачастую в серверных базах данных или при использовании элементов программирования в Microsoft Access требуется динамически добавить запись в таблицу. Язык SQL предлагает использовать для этих целей предложение INSERT INTO.

Общая структура этого типа запросов такова:

INSERT INTO ИМЯ_ТАБЛИЦЫ VALUES (список значений);

Список значений всегда должен быть равен по количеству элементов количеству полей в изменяемой таблице. Если же надо ввести только некоторые поля, для остальных 0 или NULL для строковых полей. Также можно использовать выражения.

Например, есть таблица «товары»

Допустим, нам надо добавить запись в эту таблицу, но беда в том, что поле ID_товара - ключевое и иммет тип «Счетчик». Нарушать его нельзя, поэтому воспользуемся групповой операцией Max().

INSERT INTO Товары VALUES

(MAX(ID_Товара)+1, `Какой-то товар', 10);

Таким образом, мы сохранили порядок счета.

Следует заметить, что предложение INSERT является одним из самых простых в SQL. Никаких дополнительных конструкций в нем не используется.

4. Запросы на обновление

Иногда, опять-таки, зачастую при использовании элементов программирования, может потребоваться динамическое изменение всех или части записей в таблице. Для этого применяется предложение UPDATE.

Допустим, со склада раз в месяц осуществляется отгрузка. Отгружают по одному артикулу каждого товара. Если какой-то товар на складе отсутствует, его, соответственно, не отгружают.

Общая структура запросов на обновление:

UPDATE Имя_таблицы SET

(список значений или список выражений «Поле=значение»);

По умолчанию UPDATE налагает изменения на все записи таблицы. Чтобы ограничить количество затрагиваемых записей, следует использовать конструкцию WHERE так же, как и в запросах на выборку.

Наш запрос на отгрузку будет выглядеть так:

UPDATE Товары SET (Количество=Количество - 1)

WHERE (Количество > 0);

Он-то и выполнит все необходимые действия по обработке результатов отгрузки.

5. Запросы на удаление

Встречаются ситуации, когда данные в таблицах устаревают. Допустим, есть база финансовой отчетности предприятия. И документы, которые были введены туда до 1 января 2004 года, надо удалить.

Для этого используется предложение DELETE.

Структура таблицы «Документы»

Запросы на удаление имеют следующую структуру:

DELETE * FROM Имя_таблицы WHERE (список условий);

В нашем случае запрос будет иметь следующий вид:

DELETE * FROM Документы

WHERE (Дата_регистрации < 01.01.2004);

Как видим, диалект языка SQL, используемый в Microsoft Access, весьма демократичен.

6. Параметрические запросы

Access позволяет сделать запросы более гибкими - т.е. сделать так, чтобы при изменении критериев в запросе не приходилось править его в конструкторе. Для этого используется механизм параметров.

Например, у нас есть таблица «Список_жильцов», и нам нужно отобразить тех из них, возраст которых превышает некоторую заранее неизвестную величину. Для этого используем запрос

SELECT * FROM Список_жильцов WHERE (Возраст > Критерий_ возраста);

При попытке открытия такого запроса Access в специальном диалоговом окне попросит ввести значение параметра «Критерий_возраста»

Параметров может быть сколько угодно, но имейте в виду, что пользователю для открытия такого запроса придется ответить на соответствующее количество диалоговых окон.

7. Управляющие запросы ядра Microsoft Jet

Эта небольшая группа запросов позволяет производить операции на уровне как отдельной таблицы, так и базы данных в целом.

а. Запрос DROP

Этот запрос позволяет удалить из базы данных таблицу или индекс. Его структура -

DROP TABLE Имя_таблицы

DROP INDEX Имя_индекса

б. Запрос ALTER Table

Этот запрос позволяет редактировать структуру таблицы.

Его структура:

Alter table <имя таблицы> <описание изменения>

В случае, когда надо сделать несколько изменений, они указываются через запятую. Перечислю типы изменений:

ADD <описание колонки>

Позволяет добавить новую колонку в таблицу. Описание колонки такое же, как и в Create table. После слова ADD можно указать слово COLUMN, которое позволяет сделать текст запроса более читабельным. После описания колонки можно указать слово FIRST, в этом случае колонка будет первой в таблице, или слово AFTER, после которого указывается название колонки, в этом случае навая колонка будет добавлена после указанной.

Можно также указать несколько описаний колонки через запятую и внутри круглых скобок. В этом случае указать расположение колонки нельзя.

ADD INDEX (<имя колонки>,... )

Позволяет добавить новый индекс. В скобках указываются названия колонок, входящих в индекс. Между словом INDEX и скобкой можно указать название индекса.

ADD PRIMARY KEY (<имя колонки>,... )

Позволяет добавить новый первичный ключ (или сменить его). В скобках указываются названия колонок, которые входят в ключ.

ADD UNIQUE (<имя колонки>,... )

Позволяет добавить новый индекс с уникальными значениями. В скобках указываются названия колонок, которые входят в индекс. Между словом UNIQUE и скобкой можно указать название индекса.

ADD FULLTEXT (<имя колонки>... )

Позволяет добавить новый индекс с полнотекстовым поиском. В скобках указываются названия колонок, которые входят в индекс. Между словом FULLTEXT и скобкой можно указать название индекса.

ALTER COLUMN <имя колонки> SET DEFAULT <значение>

ALTER COLUMN <имя колонки> DROP DEFAULT

Запрос позволяет создать или удалить значение по умолчанию для колонки. При этом слово COLUMN можно опустить.

CHANGE COLUMN <имя колонки> <описание колонки>

Запрос изменяет указанную колонку на новую, описание такое же, как и в CREATE TABLE. Слово COLUMN можно опустить. В описании колонки указывается имя колонки, так что имя может быть изменено.

MODIFY COLUMN <описание колонки>

Изменяет колонку на новую, описание такое же, как и в CREATE TABLE. Слово COLUMN моно опустить.

DROP COLUMN <имя>- Удаляет колонку.

DROP PRIMARY KEY - Удаляет первичный ключ

DROP INDEX <имя индекса> - Удаляет индекс

RENAME TO <новое имя таблицы> - Переименовывает таблицу

в. Запрос CREATE TABLE

Этот запрос позволяет динамически создать новую таблицу в базе данных. Например:

В следующем управляющем запросе с помощью инструкции CREATE TABLE создается таблица «Друзья». Приведенная инструкция определяет имена и типы данных для полей таблицы и создает для поля «Код» индекс, делающий это поле ключевым.

CREATE TABLE Друзья
([Код] integer,
[Фамилия] text,
[Имя] text,
[ДатаРождения] date,
[Телефон] text,
[Заметки] memo,
CONSTRAINT [Индекс1] PRIMARY KEY ([Код]));

8. Формирование и выполнение запросов в реальном времени (инструментарий Visual Basic For Applications)

Для того, чтобы запрограммировать автоматизацию действий с запросами, Microsoft Access предлагает два варианта:

а. Использование объектов доступа к данным (DAO)

б. Использование объекта-макрокоманды DoCmd.

Первый путь позволяет нам создавать хранимые запросы в базе данных (они будут появляться во вкладке «Запросы») или же работать с их результатами напрямую. Объект DoCmd, а точнее, его метод RunSQL используется исключительно для запуска запросов на изменение данных или управляющих запросов MS Jet.

Покажем общие приемы создания и исполнения запросов с помощью DAO. Для этого будем использовать объект Application.CurrentDB и, для создания/удаление хранимых запросов - коллекцию Queries, в этом объекте хранящуюся. Для работы с данными в реальном времени применим объект Recordset.

За основу возьмем запросы на выборку, показанные в разделе 2 данного реферата.

Option Compare Database

Option Explicit

Public Sub QRY_Example1()

Dim s As String

S = “SELECT Количество FROM Склад_гр INNER JOIN “ + _ “Ассортимент ON (Склад_гр.ID_товара = Ассортимент.ID_товара) ”+ _

“ORDER ASCEND BY Наименование;”

Application.CurrentDb.CreateQueryDef("Query1", s)

End Sub

Такая процедура создаст в базе данных новый запрос с именем Query1 и текстом, хранящимся в переменной S. А следующая - удалит его:

Public Sub QRY_Example2()

Application.CurrentDb.QueryDefs.Delete("Query1")

End Sub

Теперь покажем, как работать с полученными из запроса данными напрямую (эта процедура выведет сообщения, в которых перечислит количество и наименование всех товаров):

Public Sub QRY_Example3()

Dim s As String

Dim rst As New Recordset

S = “SELECT Количество FROM Склад_гр INNER JOIN “ + _ “Ассортимент ON (Склад_гр.ID_товара = Ассортимент.ID_товара) ”+ _

“ORDER ASCEND BY Наименование;”

set rst = Application.CurrentDb.OpenRecordset(s, dbOpenDynaset, dbReadOnly)

rst.MoveFirst

for I = 1 to rst.RecordCount do

MsqBox “На складе хранится “ + str(rst.Fields(“Количество”)) +” “ + rst.Fields(“наименование”)

Rst.MoveNext

Next

End Sub

По поводу свойств и методов объектов доступа к данным подробные сведения можно получить во встроенной справке VBA.

С объектом DoCmd все намного проще:

Public Sub QRY_Example4()

Dim s As String

Dim s2 As String

Dim rst As New Recordset

S = InputBox “Введите наименование товара”, “Наша_БД”

S2 = InputBox “Введите количество этого товара”, “Наша_БД”

S = “INSERT INTO Товары VALUES “ + _

“(MAX(ID_Товара)+1, “ + “`” + s + ”',” + s2 + “);”

DoCmd.RunSQL s

End Sub

Эта процедура в запросит в диалоговом окне ввести наименование товара и его количество, а затем добавит эти значения в виде новой записи в таблицу «Товары».

На этом демонстрацию возможностей ядра Microsoft Jet в области выполнения SQL-запросов можно считать оконченной.

9. Выводы

В данном реферате были рассмотрены основные типы запросов, которые поддерживаются Microsoft Access - запросы на выборку, добавление, удаление и обновление записей и управляющие запросы. Также освещена тема динамического формирования и выполнения запросов SQL средствами Visual Basic for Applications.

10. Список литературы:

1. Microsoft Access 2002 Bible - Cary Prague and Michael Irwin - N.Y.: Hungry Minds, 2002.

2. Mirosoft Access 2002 Help system © 1991-2002 Microsoft Corp.

3. Alter table - лекция © RSC-Team 2001-2005 (http://rsc-team.ru/bk/index.pl?rzd=2&group=lection&ind=103)

Страницы: 1, 2