В этом коде на Visual



Пример 3

В этом коде на Visual Basic объектная переменная db, объявленная в предыдущем примере, используется для подключения к БД Northwind: 'Открыть базу данных, используя метод OpenDatabase Set db = OpenDatabase("C:\DataBases\Northwind.mdb") Установив соединение с БД, приложение может запрашивать сведения, добавлять новые и удалять существующие записи, а также обновлять данные. Для управления информацией в БД используется объект Recordset. > Создание ссылки на DAO в Visual Basic В этом упражнении Вы создадите код Visual Basic для подключения к БД с помощью DAO.
  1. Запустите Visual Basic.
  2. Создайте новый проект типа Standard EXE.
  3. В меню Project щелкните команду References.
  4. Установите ссылку на Microsoft DAO 3.5 Object Library и щелкните кнопку ОК.
  5. В меню Project щелкните команду Components.
  6. Выделите Microsoft Common Dialog Control 5.0 и щелкните кнопку ОК.
  7. Добавьте в форму элемент управления «стандартное диалоговое окно».
  8. В процедуре события Load этой формы наберите следующий код: Dim DB As Database
    CommonDialog1.ShowOpen


    Set DB = OpenDatabase(CommonDialog1.filename)
    If Not DB Is Nothing Then
    MsgBox "Successfully connected!
    Else
    MsgBox "Could not connect."
    End If
  9. В меню Run щелкните команду Start.
  10. Когда появиться стандартное диалоговое окно, откройте файл WA\Practice\ Nwind.mdb. После подключения к БД появится окно с информацией о статусе соединения.
  11. Завершите приложение и закройте Visual Basic.


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