DataEnvironment и "запароленная" mdb

[Frigate]

Понадобилось запаролить mdb-шку, и возникли проблемы с подключением DataEnvironment...
После введения пароля в положенном окне, перестает открывать базу. В строке подключения - не понимает...
Может кто знает, как подружить этот компот?

Стоит только снять с базы пароль - все работает. Где ж его в подключении DataEnvironment'а подсунуть?

[alibek]

Как ставился пароль? На пользователя или на базу?

[Frigate]

Вот так:

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

    Dim dbs As Database, tdfNew As TableDef, qdfNew As QueryDef, idxNew As Index
    Dim pwd As String
        pwd = ";pwd=any"
        Set dbs = CreateDatabase(strMyRoute, dbLangCyrillic & pwd, dbEncrypt)
        Set tdfNew = dbs.CreateTableDef("SETTINGS")
        With tdfNew
            .Fields.Append .CreateField("id_set", dbLong)
            ...
            Set idxNew = .CreateIndex("idx")
            With idxNew
                .Fields.Append .CreateField("id_set")
                .Fields.Append .CreateField("id_usr")
            End With
            .Indexes.Append idxNew
        End With
        dbs.TableDefs.Append tdfNew
        ... и т.д.

[alibek]

А чему равна ConnectionString в DataEnvironment?

[Frigate]

alibek
Большое спасибо!!! Вы навели меня на правильный ответ!

строка должна была быть:

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

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=anybase.mdb;Persist Security Info=False;Jet OLEDB:Database Password=anypass

а я все время пытался пользователю этот пароль скормить

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

Provider=Microsoft.Jet.OLEDB.4.0;Password=anypass;Data Source=anybase.mdb;Persist Security Info=True;Jet OLEDB:Database Password=anypass

и получал ошибку... Спасибо еще раз!!!