Открытое подключение к БД через ADO - VB
Формулировка задачи:
Имеется проект из множества форм, каждая из которых формирует запрос к базе данных.
Каким образом создать открытое подключение к БД через ADO сразу после запуска проекта, которое будет использоваться разными формами и не будет разрываться до момента выхода из программы.
Другими словами - зашел в программу -> создалось подключение
- вышел из программы -> подключение разорвалось.
Зачем мне это надо?
Подключаюсь с запросом к Access, получаю ответ, жду 5 сек. Вижу ответ на экране. Но проблема в том, что запрос выполняется мгновенно, много времени уходит на соединение-разрыв с БД.
Таких запросов по 300-400 надо делать. Жалко времени.
Если есть реальные(рабочие) ответы я их жду.
Всего доброго.
Решение задачи: «Открытое подключение к БД через ADO»
textual
Листинг программы
' В главном модуле: Public strCnn As String, mainCnn As ADODB.Connection ' Private Sub Form_Load() Set mainCnn = New ADODB.Connection strCnn = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + appPath + baseName + _ '.mdb;Persist Security Info=False' mainCnn.Open strCnn ' <<< открывает соединение на всё время работы программы ' ..... ' Для всех ADODC-контролов - используем одно и то же подключение: Set adodc1.SourceConnection = mainCnn Set adodc2.SourceConnection = mainCnn ' ... Set adodcN.SourceConnection = mainCnn ' ..... End Sub ' Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) mainCnn.Close Set mainCnn = Nothing End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д