Ошибка выполнения VBA при подключении к базе данных SQL

Question

Я пытаюсь подключиться к SQL Server с нескольких компьютеров в одном домене.

При использовании следующего кода:

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'

Answer 1

Проблема в том, что вы используете именованного пользователя с 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

Answer 2

это мой фрагмент, попробуйте:

Set cnConn = New ADODB.Connection

With cnConn
.Provider = "SQLOLEDB.1"
.CursorLocation = adUseClient
.ConnectionTimeout = 0
.Properties("Data Source").Value = ' serverName
.Properties("Password").Value = ' pswd
.Properties("User ID").Value = ' userName
.Properties("Initial Catalog").Value = ' init DB
.Open
End With