首页 > 解决方案 > 连接到 SQL 数据库时出现 VBA 运行时错误

问题描述

我正在尝试SQL Server从同一域中的多台 PC 连接到一个。

使用以下代码时:

Dim conn As ADODB.Connection

Set conn = New ADODB.Connection 'Neue Verbindung initialisieren

'Verbindung einrichten'
conn.ConnectionString = "PERSIST SECURITY INFO=True;Provider=SQLOLEDB.1;Server=WWDDB;Database=01Projekt;User ID=XXX;Password=XXX;Trusted_Connection=True;Integrated Security=SSPI;"
conn.Open

conn.Open返回错误:

用户“XXXX”登录时出错

标签: sqlexcelvbaconnection

解决方案


问题是因为您使用的是命名用户Integrated Security。这两种模式不兼容。

尝试删除Integrated Security=SSPI

conn.ConnectionString = "PERSIST SECURITY INFO=True;Provider=SQLOLEDB.1;Server=WWDDB;Database=01Projekt;User ID=XXX;Password=XXX;Trusted_Connection=True;" conn.Open

或命名用户:

conn.ConnectionString = "PERSIST SECURITY INFO=True;Provider=SQLOLEDB.1;Server=WWDDB;Database=01Projekt;Trusted_Connection=True;Integrated Security=SSPI;" conn.Open

推荐阅读