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

dev.Free · 09.02.2013, 11:22. **Показов** 40382. **Ответов** 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 на форме. На всякий случай выкладываю исходник проекта.

Всем удачи!

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

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .