| |
|
|
| | Добрый день! Стоит задача подключившись из Visual Basic к удаленной базе данных, установить свойства Показывать скрытые и системные объекты.
В самом Access эти команды звучат так:
Application.SetOption "Show System Objects", 1
Application.SetOption "Show Hidden Objects", 1
Но убейте, не могу ни как добраться до этих свойств из VB...
В интернете тоже все перерыл- пусто..
Начало у меня такое:
Dim DbE As DBEngine, Dbs As Database
Set Dbs = DbE.OpenDatabase(PathToDB, False, False)
а вот дальше куда рыть в поисках этого Application- я не знаю :(
Помогите люди добрыя)   | |
| |
| |
| |
|
|
| | ...подключившись ... к удаленной базе данных, установить свойства ...
Это не свойства базы данных, а Option объекта "Access.Application"
В самом VBE так можна, как в VB не знаю, не пробовал:
With CreateObject("Access.application")
.SetOption "Show System Objects", False
End With
|
| |
| |
| |
| |
|
|
| | ...удаленной базе данных...
Шорт, слона не приметил. 
Он хранит эти значения в реестре поюзерно.
То есть, если удаленно, получается нужен червяк, который обманет антивируса. | |
| |
| |
| |
|
|
| | Гхм. Ваш первый совет сработал, развиваю ту тему)))
А вот второй пост стал для меня неким страшилищем: Это ж зачем червяка создавать?)) Не раскусил шот Вашего слоника))))
Про удаленную базу- я имел ввиду не ту, из которой запускается этот код. А расположение ее может быть абсолютно любым- как в локальной сети, так и на носителях компьютера)
Все равно эти функции должны применяться относительно того пользователя, который их устанавливает) | |
| |
| |
| |
|
|
| | Я сегодня опять землю рыл, потому соображаю с трудом.
Я что-то подумал, что надо изменять Option Access.Application на удаленной машине.
В общем если надо на своей машине, тогда червяка не нужно. : ) | |
| |
| |
| |
|
|
| | Пасиб Все работает))  | |
| |
| |
