Помогите пожалйста DataGrid+AdoDC

[XakerVB]

У меня такая проблема:
в своей проге я подключил через мастер FormWizard две таблицы БД Access. Я не могу разобраться как сделать динамический путь к БД. Он запоминает один и потом матом кроет, если по этому пути не может найти БД. Я удалил эту форму, создал свою, и разместил на ней DataGrid и AdoDC. При попытке задать свойство ConnectionString он мне говорит, что не найдена БД с путём который был прописан на форме созданной мастером.
как быть?

[VVitafresh]

Не используй элемент Data (AdoDC).
Почитай в MSDN про ADODB.Connection и ADODB.Recordset (или в поиске).

[XakerVB]

VVitafresh

Спасибо, эту ошибку я устранил, но возникла другая, связанная с правами доступа. В ADODC есть свойсво User(аутентификация при подключении), там надо указывать владельца БД. Н о какого бы я владельца не указывал, у меня выдаёт сообщении:

Системная БД не найдена или использует монопольный доступ другим пользователем.

[VVitafresh]

Системная БД не найдена или использует монопольный доступ другим пользователем.

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

Код: Выделить всё


'sPth - Путь к базе
'sPwd - Пароль на отркрытие

Set OpenCnAccess = New ADODB.Connection       'Создаем новый экземпляр
   
'    **** Подключение через драйвер Microsoft Access Driver (*.mdb)
    sCnDb = "Driver={Microsoft Access Driver (*.mdb)};" & _
        "Dbq=" & sPth & ";Uid=Admin;Pwd=" & sPwd & ";"
    OpenCnAccess.CursorLocation = adUseClient     'Cursor Location
    OpenCnAccess.Open sCnDb                       'Open Connection
   
'    **** Подключение через драйвер Microsoft.Jet.OLEDB.4.0
'    OpenCnAccess.CursorLocation = adUseClient
'    OpenCnAccess.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=" & sPwd
'    OpenCnAccess.Open "Data Source=" & sPth


Как создавать рекордсет (ADODB.Recordset) я думаю ты разобрался

[XakerVB]

спасибо большое!