Использование диалога подключения ADO в MS Access / VBA

Question

Я хочу использовать стандартное диалоговое окно строки подключения ADO в MS Access. Как я могу это сделать?

Answer 1

Если еще не выбран, проверьте следующие ссылки в диалоговом окне «Ссылки»:

Microsoft OLE DB Service Component 1.0 Библиотека типов

Объекты данных Microsoft ActiveX 2.7 Библиотека

Следующий код откроет диалоговое окно и установит объект соединения с параметрами, указанными в диалоговом окне Свойства связи с данными:

Dim dl As MSDASC.DataLinks
Dim cn As ADODB.Connection

Set dl = New MSDASC.DataLinks
Set cn = New ADODB.Connection

Set cn = dl.PromptNew
cn.Open

Затем можно открыть набор записей ADODB с соединением или получить свойства о соединении и продолжить при необходимости.

Answer 2

В дополнение к предпосылкам согласно John Mo, следующая функция вернет вам полную строку подключения ADO. Его можно инициировать значением по умолчанию 'm_connectionString'. Такое значение может быть сохранено в «таблице соединений».

Function connectToDababase(Optional m_connectionString As String) As String
Dim dl As MSDASC.DataLinks
Dim cn As ADODB.Connection

Set dl = New MSDASC.DataLinks
Set cn = New ADODB.Connection

If IsMissing(m_connectionString) Then
    Set cn = dl.PromptNew
Else
    cn.ConnectionString = m_connectionString
    dl.PromptEdit cn
End If

connectToDababase = cn.ConnectionString
End Function

Answer 3

См. Как связать формы Microsoft Access с наборами записей ADO