2 ADODC и Passworded Access 2000 DB?

[xenomorph]

Привет Всем!

1. В поиске был.
2. На МСДН тоже.
3. Гуглился ...

Вопрос: ADODC + БД Access 2000 c паролем.

Как подружить используя: Provider=Microsoft.Jet.OLEDB.4.0?

На МСДН Нарыл:

===============================================
ADODC1.ConnectionString = _
"Provider=SQLOLEDB.1;Password=" & txtPassword.Text & _
";Persist Security Info=True;User ID= " & txtUserName.Text & _
";Initial Catalog=DBName;Data Source=ServerName"
===============================================

Но "Provider=SQLOLEDB.1" никак не устраивает, - надо 4-ый Джет.

Пароль то ввёл в поле ... но пишет что БД открыта с монополоным
доступом другим пользователем ... (а я тут один - "пользователь")

Желательно динамически - т.е. "кодом", а не свойствами.

Вдогонку:

Можно ли (и если да, то как) подключить 2 ADODC к одной запароленой БД?
--
Огромное спасибо заранее!

[GSerg]

Mode=Read|Write|Share Deny None

[xenomorph]

GSerg не работает.
Я даже ОДНУ запароленую БД открыть не могу!

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

==============================================
    ado_Main.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DBP.mdb;Persist Security Info=False"
    ado_Main.CursorType = adOpenDynamic
   
    'ado_Main.RecordSource = "SELECT Index from Messages"
    'ado_Main.RecordSource = "SELECT Message FROM Messages WHERE Index<50"         
    ado_Main.RecordSource = "SELECT Index, Message, TransRef, Status, SenderID, TimeReceived, TimePartial, Approved, DateStamp FROM Messages WHERE Status='AUTH' or Status='PARTIAL'"
    ado_Main.Refresh
==============================================

И ничего ...
Если можно - ооочень маленький пример как открыть Access 2000 c паролем "1" с помощью _ADODC_ c Jet .
--
Заранее огромное спасибо!

[GSerg]

Блин.
http://www.connectionstrings.com, раздел Access OLE DB, OleDbConnection (.NET).
В строку добавить Mode=Read|Write|Share Deny None.

[xenomorph]

Огромное спасибо!
Заработало!

[Booozer]

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


"PROVIDER=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\Data\Media.mdb;Jet OLEDB:Database Password=123456;"


[GSerg]

Booozer
Ты это к чему?

[Booozer]

Нууу! Еще один вариант с подключением к БД Access с паролем через ADO.