Невозможно открыть таблицу Linked Access 2003 для MS SQL Server в коде VBA

Question

У меня есть таблица в Access 2003, которая связана с таблицей сервера MS SQL. Я могу зайти в таблицу Access, вручную обновить ее и увидеть изменения , отраженные в таблице сервера MS Sql.

Однако я не могу даже просто открыть таблицу и поместить результат в запись, установленную в моем коде VBA.

Set rs = CurrentDb.OpenRecordset("dbo_tbl_EventLogs", dbOpenTable) 

(RS всегда ни в чем)

Та же строка кода работает на 'локальный' таблицы Access.

Answer 1

Рассмотрите возможность использования dbOpenDynaset вариант, который используется по умолчанию для связанных таблиц или запросов, хранящуюся в то время как dbOpenTable является используется для локальных таблиц, как указано для OpenRecordset() метода:

Если вы открываете Recordset в рабочей области Microsoft Access и не указать тип, OpenRecordse t создает табличный тип Recordset, если возможно . Если вы указываете связанную таблицу или запрос, OpenRecordset создает набор записей типа dynaset.

Set rs = CurrentDb.OpenRecordset("dbo_tbl_EventLogs", dbOpenDynaset) 

Answer 2

Вам необходимо подключиться к вашей БД с помощью ADO. Простой и легкий. Просто перейдите на свою информацию и наслаждайтесь ею.

Dim cn As ADODB.Connection 
Dim rs As ADODB.Recordset 

ServerName = "yourServer,yourPort(example: 1442)" 'Enter your server name and a port here 
DatabaseName = "yourDBinTheServer" 'Enter your database name here 
UserID = "yourUserID" 'Enter your user ID here 
Password = "yourPassword" 'Enter your password here 

Set rs = New ADODB.Recordset 
Set cn = New ADODB.Connection 

cn.Open "Driver={SQL Server};Server=" & ServerName & ";Database=" & DatabaseName & ";Uid=" & UserID & ";Pwd=" & Password & ";" 
rs.open yourQueryAsString, cn 

Answer 3

Убедитесь, что вы храните свои учетные данные, используемые для подключения к базе данных ... (атрибут dbAttachSavePWD)