Подключение к БД средствами 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. Запустите и проверьте приложение.
      
      
      Содержание раздела
      
      
      
      
      

      ---