ActiveConnection ругается

[smartlink]

С недавнего времени я начал изучать VBA и вот начали траблы. Когда запускаю, ругается ActiveConnection:

Файл 'D:\WF\Mine\Docs' не может быть открыт ядром... Файл уже открыт другим пользователем для монопольного доступа или требуется разрешение на просмотр данных.

Вот код:

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

Const DatabasePath = "D:\WF\Mine\Docs"
Const ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& " Data Source = " & DatabasePath

Dim Table As New Table
Dim Catalog As New ADOX.Catalog
Dim Key As New ADOX.Key

Catalog.ActiveConnection = ProviderStr
Table.Name = "CONTACTS"
Table.ParentCatalog = Catalog

Не смог найти решение, может кто сталкивался с этим. Если смотреть доступы, то они везде проставлены.
Спасибо.

[alibek]

Во-первых, ActiveConnection это объектная переменная, и ее надо присваивать через Set. И уж конечно, не строковой переменной.
Во-вторых, что ты открываешь? Должен быть указан файл БД.
В-третьих, ConnectionString открывается не так. Должно быть что-то типа Catalog.ActiveConnection.Open <ConnectionString>, только Catalog.ActiveConnection надо предварительно инициализировать (например, Set Catalog.ActiveConnection = New ADODB.Connection).
И в-четвертых, что твой код должен делать? Я ничего не понял.

[smartlink]

Ну я делал все как было показано в книге я не думал что там могут быть ошибки

Когда я указал файл

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

Const DatabasePath = "D:\WF\Mine\Docs\contacts.mdb"

Вот что говорит:

Файл уже открыт другим пользователем для монопольного доступа или требуется разрешение на просмотр данных.База данных была приведена пользователем 'Admin' на компьютере 'PC01' в состояние, препятствующее ее открытию или блокировке.

Код просто пытается законнектиться к базе.

[smartlink]

Вот полный код, может тогда прояснится

Sub CreateTablet()
On Error GoTo EE
Const DatabasePath = "D:\WF\Mine\Docs"
Const ProviderStr = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& " Data Source = " & DatabasePath

Dim Table As New Table
Dim Catalog As New ADOX.Catalog
Dim Key As New ADOX.Key

Catalog.ActiveConnection = ProviderStr
Table.Name = "CONTACTS"
Table.ParentCatalog = Catalog
Table.Columns.Append "ID", adInteger
Table.Columns("ID").Properties("Autolncrement") = True
Table.Columns.Append "FIRST_NAME", adVarWChar, 20
Table.Columns.Append "LAST_NAME", adVarWChar, 20
Catalog.Tables.Append Table
Key.Name = "ID"
Key.Type = adKeyPrimary
Key.Columns.Append "ID"
Catalog.Tables("CONTACTS").Keys.Append Key
Set Catalog.ActiveConnection = Nothing

EE:
Debug.Print Err.Description

[alibek]

Опять не понял.
Скажи, что надо сделать, словами. Создать таблицу в БД?

[smartlink]

Да, этот код служит для создания таблицу в БД

[alibek]

Глянь тут: http://bbs.vbstreets.ru/viewtopic.php?t=13474
Тут универсальный класс, создающий таблицы из внешнего файла, но как создавать таблицы программно, из него понятно.

[smartlink]

Спасибо! я просмотрю обязательно!

но я так не смог узнать что за проблема в том коде

[alibek]

Проблема в том, что ты неправильно открываешь соединение.
Во-первых, для MDB-файла (при соединении через Jet) нужно обязательно указывать имя файла. А во-вторых, ты неправильно инициируешь соединение. Правда глянуть, что именно неправильно, мне сейчас негде. Скорее всего, как я написал, нужно открывать через Open.