尝试在Outlook VBA中打开SQL Server数据库时出现错误

时间:2018-01-04 14:23:30

标签: sql-server visual-studio outlook-vba

我正在重写我失去的一些程序并使用新的软件组合:Windows 10,Visual Studio Community 2017,SQL Server Express 2017和Office 2007。

我在Visual Studio中创建了一个SQL Server项目,看起来没问题,我可以在我的数据文件夹中看到Project。

但是,当我尝试在Outlook VBA程序中打开数据库时,我收到如下错误...

enter image description here

这是我的代码,数据源详细信息都是从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

请有人能告诉我我做错了吗?!?

1 个答案:

答案 0 :(得分:0)

经过数十次试验和试验错误猜测这条线有效:

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

似乎TrustedConnection = yes是关键...