Задание для самостоятельной работы 9.1 Вставка по запросу записей из базы данных

Примечание:

В этом задании используется база данных Microsoft Access с именем Борей.mdb, которая при установке Microsoft Office 2003 по умолчанию помещается в каталог C:\Program Files\Microsoft Office\OFFICE11\SAMPLES. Перед началом этой лабораторной работы рекомендуется провести поиск на диске, чтобы найти этот файл. Если он находится в другом каталоге — скорректируйте путь к этому файлу в ответе. Если же он вообще не обнаружен, то доустановите Microsoft Office таким образом, чтобы он был установлен с полным набором компонентов.

Подготовка:

• Создайте новый документ Word и сохраните его как C:\InsertQueryResults.doc
• Щелкните правой кнопкой мыши по любой панели инструментов или меню и в открывшемся списке доступных панелей инструментов выберите "Элементы управления".
• Нажмите на кнопку "Режим конструктора" на панели инструментов "Элементы управления" (верхняя левая кнопка) и в этом режиме поместите в документ Word новую кнопку. Для этого нужно щелкнуть по объекту "Кнопка" на панели инструментов "Элементы управления" и в документе определить местонахождение и размеры этой кнопки.

Щелкните по созданной вами кнопке правой кнопкой мыши и в контекстном меню выберите "Свойства". Определите для нее свойства по вашему желанию. Выглядеть документ с этой кнопкой в итоге может, например, так, как показано на рис. 9.12:

Рис.  9.12 Кнопка в документе Word

При помощи меню Вставка -> Закладка поместите под эту кнопку закладку с именем Bookmark1.

В режиме конструктора щелкните по кнопке правой кнопкой мыши и в контекстном меню выберите "Исходный текст". Откроется редактор кода Visual Basic с созданной процедурой для события Click данной кнопки. Поместите в него следующий код:

Private Sub CommandButton 1_ Click ()

Dim nEmpId As Integer

Dim sLastName As String

Dim sFirstName As String

Dim sTitle As String

nEmpId = CInt(InputBox("Введите номер сотрудника:"))

'Код, который нужно заменить

sLastName = "Иванов"

sFirstName = "Иван"

sTitle = "Начальник"

'Конец кода, который нужно заменить

ThisDocument.Activate

ThisDocument.Bookmarks("Bookmark1").Select

Selection.TypeText CStr(nEmpId) & " " & sLastName & " " & sFirstName & " " & vbTab & sTitle & vbCrLf

End Sub

Задание:

Измените код события Click этой кнопки таким образом, чтобы вместо присвоения переменным явно определенных значений им присваивались значения из таблицы Сотрудники базы данных Борей.mdb:

• для переменной sLastName — значение из столбца Фамилия;
• для переменной sFirstName — значение из столбца Имя;
• для переменной sTitle — значение из столбца Должность.

Номер сотрудника (значение столбца Код сотрудника) нужной записи должен определяться пользователем при помощи функции InputBox().

Получить учебные материалы по этому курсу