Ошибка времени выполнения -2147467259 (80004005) для использования ADODB.Connection

Question

Я пытаюсь подключить VBA к серверу sql f.Я использую дата-центр Windows Server 2016 и студию управления sql sever V17.3.Поэтому я использовал следующие объекты в своей ссылке на VBA

Пока я пытаюсь выполнить ниже строки

 Dim Cn As ADODB.Connection

Я получаю сообщение об ошибке

 Run time error -2147467259(80004005)
 Automation error,Unspecified error

Можете ли вы помочь мне решить эту ошибку

Answer 1

Ваша версия ADO старая (ADO 2.8 была включена в Windows XP и Windows Server 2003).Следующая версия - ADO 6, и «Библиотека Microsoft ActiveX Data Objects 6.1» является самой новой.

Она должна быть уже установлена ​​на вашем компьютере, поэтому просто прокрутите вниз и отметьте эту ссылку вместо:

Answer 2

Попробуйте это

Sub GetData()

Dim cnDump As ADODB.Connection
Set cnDump = New ADODB.Connection

' Provide the connection string.
Dim strConn As String

'Use the SQL Server OLE DB Provider.
strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=XXXX;Data Source=XXXX\XXXX;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=XXXX;Use Encryption for Data=False;Tag with column collation when possible=False;"

'Now open the connection.
cnDump.Open strConn