Подключение к БД средствами RDO



Подключение к БД средствами RDO

В этом упражнении Вы воспользуетесь Visual Basic и RDO для подключения к источнику данных и выполнения запроса. Чтобы упростить Вам жизнь, часть кода мы подготовили заранее. > Открытие проекта

  1. Запустите Visual Basic 5.0.
  2. В диалоговом окне New Project откройте вкладку Existing.
  3. Найдите на диске файл WA\Practice\Ch07\Lab7RDO.vbp и щелкните кнопку Open.
  4. В ответ на предложение добавить проект в Visual SourceSafe щелкните кнопку No.
  5. В меню Project выберите команду References.

Обратите внимание на заранее созданную ссылку на библиотеку Microsoft Remote Data Object 2.0.

> Подключение к ODBC-совместимому источнику данных

  1. Откройте окно кода для события cmdConnect_Click.
  2. Добавьте следующий код (он устанавливает соединение средствами RDO):

    Set cn = New rdoConnection

    With cn



    .Connect = "DSN=nwind"

    .EstablishConnection rdDriverNoPrompt, False

    End With

> Заполнение полей ввода данными из таблицы сотрудников

  1. Из списка объектов в окне кода выберите (General).
  2. Из списка процедур в окне кода выберите FillTextBoxes.
  3. Добавьте в эту процедуру код для заполнения полей ввода аналогично примеру, приведенному ниже.

    txtFirstName.Text = rs!firstname

    txtLastName.Text = rs!lastname

> Изучение кода приложения

  1. Рассмотрите код событий cmdFirst, cmdPrevious, cmdNext и cmdLast.
  2. Сохраните проект.
  3. Запустите и проверьте приложение.



Содержание раздела