ms-access - 在 MS Access/VBA 中使用 ADO 连接对话框

Question

我想在 MS Access 中使用标准的 ADO 连接字符串对话框。我怎样才能做到这一点？

Answer 1

如果尚未选择，请在“参考”对话框中检查以下参考：

Microsoft OLE DB 服务组件 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 记录集