Подключение к базе данных через ADODB (статья) - VB

09.02.2013, 11:22. Просмотров 6926. Ответов 0

Метки Укажите метки (Все метки )

Подключение к базе данных через ADODB.

Sub OpenDB()

Set conn = Nothing

Set conn = New ADODB.Connection

conn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb, *.accdb)};" & _

"Dbq=D:\Public\Documents\Temp\data_ref_User.accdb;Uid=Admin;Pwd=;"

conn.Open

Set rs = Nothing

Set rs = New ADODB.Recordset

Sql = "SELECT * From ListRefBlock"""

rs.Open Sql, conn, 3, 3

aTemp = rs.GetRows

If conn.State = 1 Then

MsgBox "Соединение установлено"

Else

MsgBox "Соединение не установлено"

End If

End Sub

Предположим, что у нас есть база данных которую мы создали в Microsoft Access версии 2010 или 2003 или более ранних, значения не имеет. В базе данных имеется 1 (одна) таблица с именем "Клиенты". Структура таблицы в базе данных следующая:

Где:

1. Код - имеет тип данных: Счетчик (размер поля длинное целое)
2. Фамилия - имеет тип данных: Текстовый (размер поля 50 символов)
3. Имя - имеет тип данных: Текстовый (размер поля 50 символов)
4. Отчество - имеет тип данных: Текстовый (размер поля 50 символов)
5. Дата рождения - имеет тип данных: Дата/время (формат поля краткий формат даты)

Созданную базу данных для удобства поместим в каталог с нашей программой. Назовем ее к примеру "DataBase". Теперь создадим новый проект на Visual Basic 6.0, сохраним его в каталог с программой. В проекте создадим 1 (одну) форму и 1 (один) модуль. Имя формы оставим по умолчанию "Form1", имя модуля тоже оставим по умолчанию "Module1". Следующим шагом, подключим библиотеку под названием "Microsoft ActiveX Data Objects 2.8 Library". Подключение выполняем нажав на меню "Project" ---> "References" в открывшемся окне находим "Microsoft ActiveX Data Objects 2.8 Library" ставим галочку рядом с названием нажимаем на кнопку "OK".

Следующим шагом будет объявление переменных для ADODB.Connection и ADODB.Recordset. Откроем наш созданный модуль "Module1" и в самый верх модуля, вставим следующие строки кода:

Получается следующие, что переменная

conn - ADODB.Connection будет отвечать за соединение с базой данных и выполнения команд поступающих от программы к базе данных в виде SQL запроса. Переменная rs - ADODB.Recordset является набором записей, она будет содержать в себе набор записей которая вернет база данных при выполнении того или иного запроса во время работы программы.

После объявления переменных спустимся ниже на пару строк и вставим следующие строки кода:

Наша программа будет начинать работу с процедуры "Sub Main". То есть нам надо вернуться в настройки программы, а именно сюда: на панели меню проекта выберите "Project" ---> "Project1 Properties" в открывшемся окне на вкладке "General" выберем из списка "Startup Object" ---> "Sub Main", нажмем кнопку "ОК". В созданном коде получается следующие:

1. При запуске программы, происходит обращение к процедуре под именем "OpenDB".
2. Открывается Form1, созданная нами ранее.

Теперь спустимся еще на пару строк ниже и вставим код процедуры "OpenDB".

Тут переменная "conn" получает строку соединения:

Код

Driver={Microsoft Access Driver (*.mdb, *.accdb)};Dbq=C:\Documents and Settings\User\Рабочий стол\DataBase\Database.accdb;Uid=Admin;Pwd=;

далее выполняется соединение. Если соединение установлено, тогда параметр conn.State получает свойство = 1, по созданному условию мы предупреждаем пользователя о выполненном с базой данных:

После чего по коду выше открывается Form1. В форме, вставляем следующий код:

При открытии формы происходит обращение в процедуру: "Call UpdateConnect" в которой создается SQL запрос к базе данных, после чего созданная переменная rs - ADODB.Recordset получает набор записей который возвращает база данных после выполнения SQL запроса. DataGrid1.DataSource = rs отображаем набор записей в DataGrid на форме. Для отображения записей на форме записей в DataGrid необходимо данный компонент добавить на форму, для этого сделаем следующие: нам надо вернуться в настройки программы, а именно сюда: на панели меню проекта выберите "Project" ---> "Components", в списке найдите "Microsoft DataGrid Control 6.0 (SP6) (OLEDB)" ставим галочку рядом с названием нажимаем на кнопку "OK". На панели инструментов появится объект в форме сетки, выберите его и нарисуйте его на форме по нужным вам размерам. Теперь попробуйте запустите проект, если все сделали правильно вы увидите отображенные записи в DataGrid на форме. На всякий случай выкладываю исходник проекта.

Всем удачи!

Я конечно не мастер написания статей, сильно не ругайте!

Вложения