Подключение к БД

Создав объектную переменную типа Database (и, если нужно, Workspace), Вы можете подключиться к БД средствами метода OpenDatabase.

Пример В этом коде на 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.


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



---







---