VBA - не удается подключить ADODB к локальной базе данных - PullRequest
Новая
       19

VBA - не удается подключить ADODB к локальной базе данных

0 голосов
/ 03 апреля 2019

Я создал локальную базу данных, используя SQL Server sqllocaldb, и пытаюсь получить к ней доступ в Excel.Выполнение приведенного ниже кода генерирует следующую ошибку:

On Conn.Open:

«Ошибка времени выполнения» -2147467259 (80004005) ':

[DNETLIB[ConnectionOpen (Connect ()).] Либо SQL Server не существует, либо доступ запрещен. "

Вот код: 

Sub CopyFromDB()

Dim Conn As ADODB.Connection
Dim Data As ADODB.Recordset

Set Conn = New ADODB.Connection
Set Data = New ADODB.Recordset

ConnString = _
"Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Data Source=(LocalDB)\localDB"

Conn.ConnectionString = ConnString
Conn.Open

With Data
    .ActiveConnection = Conn
    .Source = "tblActor"
    .LockType = adLockReadOnly
    .CursorType = adOpenDynamic
    .Open
End With

Range("A1").CopyFromRecordset Data

Data.Close
Conn.Close

CursorType = 2

End Sub

Любые советы о том, кем я могу бытьделать неправильно?Источник данных правильный и идентичен тому, что дает мне доступ в MSSQL Server Management Studio.

...