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

dev.Free · 09.02.2013, 11:22. **Показов** 40941. **Ответов** 0

Студворк — интернет-сервис помощи студентам

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

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

Code
1
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 на форме. На всякий случай выкладываю исходник проекта.

Всем удачи!

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

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .