Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Как при помощи DAO подключиться к проекту MS Access (файлу *.adp)
 
 автор: akkorn   (17.07.2010 в 11:45)   личное сообщение
 
 

Добрый всем день)
Стоит задача, при помощи DAO нужно подключиться к файлу *.adp
Тонкость состоит в том, что все примеры в интернете содержат строчку "currentdb. ..", а мне необходимо из другой базы подключиться, или еще лучше из VB6.

Пробую как то так, выдает ошибку:
Dim DbE As DBEngine, DbS As Database
Set DbE = New DBEngine
Set DbS = DbE.OpenDatabase(PathToDB, False, False, ";pwd=")

Есть идеи?
Всем спасибки)

  Ответить  
 
 автор: Lukas   (17.07.2010 в 14:49)   личное сообщение
 
 

...при помощи DAO нужно подключиться к файлу *.adp...


DAO - Data Access Objects - библиотека объектов доступа к данным.
В файле ADP нет хранилищ данных. К чему там можно подключиться?

  Ответить  
 
 автор: akkorn   (17.07.2010 в 17:31)   личное сообщение
 
 

to Lukas
Да, данных в ADP нет, но стоит задача попробовать подключиться к файлу и запретить / разрешить запуск с Shift (AllobypassKey)

В самом файле все получается, а вот из другого файла подключиться- не особо..

  Ответить  
 
 автор: Lukas   (19.07.2010 в 11:25)   личное сообщение
 
 


You don't need DAO to use/create the AllowBypassKey-Property
in an ADP. But it is in the Properties-Collection of the
CurrentProject-Object!

Examples:

CurrentProject.Properties.Add "AllowBypassKey",False

CurrentProject.Properties("AllowBypassKey") = True



See also: http://office.microsoft.com/en-us/access-help/allowbypasskey-property-HA001232717.aspx

  Ответить  
 
 автор: kot_k_k   (19.07.2010 в 15:28)   личное сообщение
 
 

Шоб не плодить топики.

Есть сетевой диск на нем лежит база данных (mdb). У юзеров клиентские части (mdb). Доступ к диску по учетке и паролю.
как можно в VB задать логин и пароль к диску если юзер не подключен к нему, т.е. подменить его учетку и пароль на мои. попробовал в строке прописать

con.ConnectionString = "Provider=MSDataShape;Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Ad-dns-01\sklad\Baza.mdb;User Id=МОЯ_УЧЕТКА;Password=МОЙ_ПАРОЛЬ;"

- но пишет Рантайм еррор '-2147217843' - Не удается запустить приложение. Системная база данных отсутсвует или открыта с монопольным доступом другим пользователем

Если с моей учетки проблем нет. Пробовал при моей учетке воткнуть неправильный пароль - тоже рантайм еррор - типа работает, но только в одну сторону - если совпадает учетка юзера и учетка подключения. А как сделать чтобы при несовпадении работало????

Хочется чтобы юзеры имели доступ к файлу только через программу, а физически не могли лапками добраться туда.

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList