Вызов базы данных в каталоге ссылок

Question

Я пытаюсь выполнить VBA SQL вызов базы данных в каталоге ссылок

База данных хранится на диске Syn c, но моя локальная ссылка указана ниже и правильна

Когда я пытаюсь открыть программу, появляется

Ошибка времени выполнения 3024 - Не удалось найти файл Powershop.mdb

ChDir "C:\Users\User\Sync\Powershop Backups\GI"


ReadOnly = False

'      >>>>> Open Database <<<<<

Set Jet = CreateWorkspace("", "admin", "", dbUseJet)
Set PowerShop = Jet.OpenDatabase("PowerShop.mdb", , ReadOnly)

Answer 1

Используйте блок With для соединений с базой данных, чтобы объект всегда очищался должным образом. Это позволяет вам не устанавливать вручную Jet = none в какой-то момент.

Примерно так:

Dim thePath As String
thePath = "C:\Users\User\Sync\Powershop Backups\GI\"
With Jet.OpenDatabase(thePath & "PowerShop.mdb", , ReadOnly)

    ' Do stuff with the database 

    .Close
End With