У меня есть следующий запрос в моей базе данных
qryDGI
со следующим SQL за ним
Select * Into tblLocalCopy From DNSLinkedTable
, это прекрасно работает, если я открываю Access и запускаю запрос
Однако, если я вызываю запрос из Excel VBA, используя следующий код, я получаю код ошибки
3151: ODB C - не удалось подключиться к DSN
Dim db As DAO.Database
Dim dbPath as String
dbPath = Interaction.GetSetting("AppName", "Section", "Key")
Set db = OpenDatabase(dbPath, False, False)
db.Execute "qryDGI"
db.Close
Я попытался удалить и воссоздать DSN (который создается с помощью кода в качестве DSN компьютера, а также перезапустить компьютер и очистить все временные файлы. Я действительно не могу понять, почему это будет отлично работают изнутри Access, но терпят неудачу при вызове через VBA. Мои другие связанные таблицы (использующие ссылку DB2 ODB C) работают нормально. Этот DSN является SQL Server DSN