MyTetra Share
Делитесь знаниями!
Подключение к базе данных через ADODB (статья) - VB
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - Link

Подключение к базе данных через 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" и в самый верх модуля, вставим следующие строки кода:


Visual BasicВыделить код

1

2



Public conn As New ADODB.Connection

Public rs As New ADODB.Recordset


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

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

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


Visual BasicВыделить код

1

2

3

4



Sub Main()

    OpenDB

    Form1.Show

End Sub


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

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

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


Visual BasicВыделить код

1

2

3

4

5

6

7

8

9

10

11



Sub OpenDB()

    Set conn = Nothing

    Set conn = New ADODB.Connection

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

    conn.Open

    If conn.State = 1 Then

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

    Else

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

    End If

End Sub


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

Код

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

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


Visual BasicВыделить код

1

2

3

4

5



    If conn.State = 1 Then

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

    Else

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

    End If


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


Visual BasicВыделить код

1

2

3

4

5

6

7

8

9

10

11



Private Sub Form_Load()

    Call UpdateConnect

End Sub

 

Sub UpdateConnect()

    Set rs = Nothing

    Set rs = New ADODB.Recordset

    SQL = "SELECT * From Клиенты"

    rs.Open SQL, conn, 3, 3

    Set DataGrid1.DataSource = rs

End Sub


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

Всем удачи!

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

Вложения

DataBase.rar (18.4 Кб, 827 просмотров)

Прикрепленные файлы:
Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования