В этом упражнении Вы воспользуетесь Visual Basic и ADO для подключения к источнику данных и выполнения запроса. Чтобы упростить Вам жизнь, часть кода мы подготовили заранее.
> Открытие проекта
Запустите Visual Basic 5.0.
В диалоговом окне New Project откройте вкладку Existing.
Найдите на диске файл WA\Practice\Ch07\Lab7RDO.vbp и щелкните кнопку Open.
В ответ на предложение добавить проект в Visual SourceSafe щелкните кнопку No.
В меню Project выберите команду References.
Обратите внимание на заранее созданную ссылку на библиотеку Microsoft OLE DB ActiveX Data Object 1.0 Library.
> Подключение к ODBC-совместимому источнику данных
В разделе General Declarations формы frmADO создайте следующую объектную переменную уровня формы:
Dim rs As New ADODB.Recordset
Откройте окно кода для события cmdConnect_Click.
Добавьте следующий код для открытия набора записей:
rs.Open "SELECT LastName, FirstName FROM Employees",
"DSN=nwind;", adOpenKeyset
> Заполнение полей ввода данными из таблицы сотрудников
Из списка объектов в окне кода выберите (General).
Из списка процедур в окне кода выберите FillTextBoxes.
Добавьте в эту процедуру код для заполнения полей ввода аналогично примеру, приведенному ниже.
txtFirstName.Text = rs! firstname
txtLastName.Text = rs!lastname
> Проверка остального кода приложения
Рассмотрите код событий cmdFirst, cmdPrevious, cmdNext и cmdLast.