46597 (571836), страница 3

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 3)

Такая процедура создаст в базе данных новый запрос с именем 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)

Характеристики

Список файлов ответов (шпаргалок)