3. С какими объектами данных позволяет работать объект Catalog?

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

4. Назовите два общих вида услуг (функций), предоставляемых объектами класса

Catalog.

Определение данных и ограничение доступа к ним.

5. Какие объекты и методы применяются для циклического прохождения по набору

записей таблицы?

Объект Recordset и его методы MoveFirst, MoveLast, MovePrevious, MoveNext, Move, BOF И EOF.

Упражнения

1. Создайте запрос для рабочей базы данных и сохраните его. Откройте запрос с помощью фрагмента кода, использующего объект типа Recordset.

Dim Rs As New ADODB . Recordset

Rs.Open LIBRARY Query , CurrentProject.Connection

2. Напишите процедуру, предусматривающую возможность циклического прохождения по всем ключам, хранимым в объекте Catalog.

Исправьте строки 5-7 листинга 7.5 следующим образом:

For I = 0 eys. Count - 1

6 Print Catalog. Keys ( I ).Name

7: Next I

3. Создайте подпрограмму для прохождения по набору записей в обратном порядке, начиная с последней.

Sub QueryAllС )

Dim Rs As New ADODB.Recordset Rs.Open LIBRARY Query , CurrentProject.Connection, adOpenKeyset Rs.MoveLast

Do While (Rs.BOF= False) Rs.MovePrevious

Loop

Rs.Close

End Sub

8-й час. Декомпозиция задач Тесты

1. Назовите приемлемое среднее число строк кода функции или процедуры.

В пределах и чем меньше - тем лучше. Назначение процедуры или функции должно быть отражено в ее названии.

2. Предположим, что вы хотели бы снабдить некоторый аргумент функции (процедуры) квалификатором Optional. В каком месте списка параметров может находиться такой аргумент?

Аргументы, помеченные квалификатором Optional, должны располагаться в конце списка параметров.

3. Придумайте название, уместное функции, которая предусматривает операции чтения почтовгх адресов из базы даннгх.

Довольно удачным может оказаться такое: ReadEmailAddress.

4. Каково имя объекта, указтвающего на текущую открытую базу даннтх? CurrentProject В ADODB.

5. Как называется подкласс в составе класса Application, содержащий множество полезных свойств и методов?

DoCmd.

Упражнения

1. в начале раздела Определение типов аргументов бьш приведен пример процедуры, выполняющей расчет полнйй стоимости изделия. Реализуйте его в виде функции.

Function CalculateTotalSales (By Val SaleAmount As Double, By Val SalesTax As Double ) As Double CalculateTotalSales = SaleAmount * (1 + SalesTax) End Function

2. В разделе Создание таблицы мы рассматривали процедуру динамического построения таблицы. Напишите подпрограмму удаления таблицы из базы даннтх.

Sub DropTable( ByVal TableName As String )

Call DoCmd. DeleteObject (actable, TableName) End Sub

3. В разделе текста из файла говорили о процедуре импорта в таблицу Access текста с разделителями. Используя материалы оперативной справочной системы, перепишите процедуру, имея в виду возможности импорта данных из таблицы Excel.

Следует воспользоваться методом класса DoCmd, описанным ниже: DoCmd.TransferSpreadsheet( [ТипПреобразования]

[, ТипЭлТаблицы], ИмяТаблицы, ИмяФайла [, ФлагЗаголовков] [, Диапазон] )

9-й час. Работа с макросами Тесты

1. Какую команду следует применять для импорта данных из таблицы Excel? DoCmd.TransferSpreadsheet.

2. Как создается спецификация импорта данных?

С помощью средств мастера Импорт текста и диалогового окна Спецификация импорта.

3. Какая команда использует спецификацию импорта данных?

TransferText.

4. Как называется объект, применяемый для программирования макрокоманд в коде?

DoCmd.

5. Могут ли объекты, подобные DoCmd, применяться в программах, ориентированнгх на использование с другими приложениями Office?

Да. Объекты, подобные DoCmd, доступны в любом приложении, поддерживающем

VBA или возможности обращения к объектам OLE Automation (скажем, в Visual Basic или Delphi).

Упражнения

1. Создайте макрос для резервного копирования всех таблиц базы данных.

Sub Backup (ByVal Table As TableDef) On Error Resume Next

DoCmd.DeleteObject acTable, Table.Name & Backup DoCmd.CopyObject , Table.Name & Backup ,

acTable, Table.Name

End Sub

Sub BackupAllTables( )

Dim I As Integer Dim Table As TableDef For Each Table In CurrentDb.TableDefs Call Backup( Table )

Next End Sub

2. Напишите фрагмент кода, позволяющего пользователю ввести наименование файла, данные из которого предполагается импортировать.

FileName = InputBox( Введите имя файла для импорта: , Шя файла , Default.Txt )

3. Напишите код, аналогичный описанному выше макросу, для создания резервной копии.

См. процедуру Backup из упражнения 1.

10-Й час. Как использовать готовые решения

Тесты

1. Как называется функция, предназначенная для поиска подстрок? InStr.

2. В чем состоит принципиальное отличие модальн1х окон от остальн1х? Открытое модальное окно препятствует использованию остальн1х окон приложения. Чтобы получить возможность продолжения работы, модальное окно необходимо

3. Как должна выглядеть команда открытия текстового файла в режиме чтения?

Open Имя файла For Input As #НомерФайла

4. Какую функцию можно использовать для интерактивного ввода данных? lnputBox.

Упражнения

1. Напишите выражение для форматирования почтового индекса.

Format ( PostalCodeVar, @(a@@(a-@@@@ )

2. Постройте процедуру, добавляющую указанную строку в заданный файл.

Sub WriteToFile (ByVal FileName As String,

ByVal Text As String) Dim Handle As Double Handle = FreeFile