如何在 Outlook VBA 中打开 SQL Server 数据库？

Question

我使用的是 Windows 10、Visual Studio Community 2017、SQL Server Express 2017 和 Office 2007。

我在 Visual Studio 中创建了一个 SQL Server 项目。我可以在我的数据文件夹中看到项目。

当我尝试在 Outlook VBA 程序中打开数据库时，出现错误

这是我的代码，数据源详细信息都是从 Visual Studio 中生成的目标连接字符串复制而来的。我添加了 Provider=SQLOLEDB 行，因为这似乎是我在网上搜索的结果。

Set KA_DB = New ADODB.Connection
Set KA_RS_Leagues = New ADODB.Recordset
Set KA_Com = New ADODB.Command
KA_DB.Open "Provider=SQLOLEDB;" & _
        "Data Source=GARYSPC\SQLEXPRESS;" & _
        "Initial Catalog=KADB;" & _
        "Integrated Security=True;" & _
        "Persist Security Info=False;" & _
        "Pooling=False;" & _
        "MultipleActiveResultSets=False;" & _
        "Connect Timeout=60;" & _
        "Encrypt=False;" & _
        "TrustServerCertificate=True"
Set KA_Com.ActiveConnection = KA_DB

Answer 1

经过数十次试错猜测，这条线路奏效了：

KA_DB.Open "Provider=SQLOLEDB;Server=GARYSPC\SQLEXPRESS;Database=KADB; Trusted_Connection=yes"

看来 TrustedConnection=yes 是关键...