Ответы к 22-му часу Тесты

1. Какой метод применяется для перемещения к последней записи в наборе извлекаемых записей?

Метод MoveLast.

2. Как определить, где начало набора записей?

Проверяется свойство BOF объекта Recordset: в начале набора записей оно имеет значение True.

3. Какой метод применяется для сохранения изменений в наборе записей?

Метод Update.

4. Какое свойство объекта Recordset хранит информацию о местоположении текущей записи?

Свойство Bookmark.

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

Метод Find.

6. Какое свойства объекта Field используется для возврата значения поля?

Свойство Value.

7. Истинно или ложно следующее утверждение: данные из извлекаемого набора записей можно вставить только в рабочий лист inn в экранную форму?

Истинно. В приложениях Excel импортируемые данные можно вставить только в рабочий лист или в экранную форму.

Упражнение

Добавьте новый рабочий лист в книгу и назовите его Запрос Товары. В ячейки A1, B1, C1 и D1 введите заголовки будущей таблицы: Код товара, Марка, Цена, Есть на складе соответственно. Измените процедуру cmdOK_Click так, чтобы она при щелчке на кнопке ОК переписывала информацию из экранной формы в рабочий лист Запрос Товары.

Полный код процедуры:

Private Sub cmdOK_Click()

 Dim iNumRows As Integer

 Worksheets ("Запрос Товары").Activate

 Range("A1").Select

 Selection.CurrentRegion.Select

 iNumRows = Selection.Rows.Count

 Range("A1").Select

 Selection.Offset(iNumRows, 0).Value = txtProductID.Text

 Selection.Offset(iNumRows, 1).Value = txtProductName.Text

 Selection.Offset(iNumRows, 2).Value = txtUnitPrice.Text

 frmProductInfo.Hide

 cnnProduct.Close

End Sub

Ответы к 23-му часу Тесты

1. Какой оператор применяется для создания экземпляра приложения-сервера?

Оператор CreateObject.

2. Истинно или ложно следующее утверждение: кроме объектов Excel и VBA в окне просмотра объектов можно просматривать только объекты библиотек, на которые созданы ссылки?

Истинно.

3. В примере этого часа программа Excel играла роль _________ приложения (приложения-________).

управляющего (клиента)

4. Истинно или ложно следующее утверждение: Excel можно использовать только как приложение-клиент?

Ложно. Excel можно использовать и как приложение-клиент, и как приложение-сервер.

5. Как установить ссылку на библиотеку объектов?

В редакторе Visual Basic надо выполнить команду Tools > References.

6. Истинно или ложно следующее утверждение: чтобы создать доступ к программе Word из другого приложения, надо применить технологию автоматизации?

Истинно.

7. Истинно или ложно следующее утверждение: все приложения Microsoft Office в той или иной степени поддерживают технологию автоматизации?

Истинно. Все приложения Microsoft Office поддерживают технологию автоматизации как приложения-серверы или как приложения-клиенты, либо могут работать в той и другой роли.

Упражнение

Создайте таблицу данных Excel, показанную на рис. 23.5. Создайте текстовый документ Word, представленный на рис. 23.6. Вставьте в этот документ необходимые закладки. Создайте процедуру, которая копировала бы информацию из таблицы данных Excel и вставляла в соответствующие места документа Word.

Полный код процедуры (имена закладок совпадают с заголовками столбцов таблицы данных):

Sub Упражнение23()

 Dim y As Word.Application

 Set y = CreateObject("Word.Application")

 With у

  .Visible = True

  'В следующем операторе путь к текстовому файлу зависит от

  'того, где вы сохранили этот файл. При необходимости внесите

  'изменения в путь

  .Documents.OpenFileName:="C:\Мои документы\ТекстДок.dос"

  ActiveCell.Copy

  .Selection.GoTo What:=wdGoToBookmark, Name:="Номер_изделия"

  .Selection.Paste Application.CutCopyMode = False

  ActiveCell.Offset(0, 1).Select

  Selection.Copy

  .Selection.GoTo What:=wdGoToBookmark, Name:="Количество"

  .Selection.Paste Application.CutCopyMode = False

  ActiveCell.Offset(0, 1).Select

  Selection.Copy

  .Selection.GoTo What:=wdGoToBookmark, Name:="Цена"

  .Selection.Paste Application.CutCopyMode = False

  ActiveCell.Offset(0, 1).Select

  Selection.Copy

  .Selection.GoTo What:=wdGoToBookmark, Name:="Всего"

  .Selection.Paste

  Application.CutCopyMode = False

 End With

End Sub