VB и Access

[baranich]

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

Dim БазаСоединение As ADODB.Connection
Dim БазаРек As ADODB.Recordset

Set БазаСоединение = New ADODB.Connection
БазаСоединение.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\baranova\passat_be-2000.mdb" 
БазаСоединение.Open


На данной строке БазаСоединение.Open вылезает ошибка, в чём может быть проблема

[Andrey Fedorov]

На данной строке БазаСоединение.Open вылезает ошибка, в чём может быть проблема

Для начала - прочитать что пишется в сообщении об ошибке.

[baranich]

Отсутствуют разрешения на использование объекта "E:\Documents and Settings\baranova\passat_be-2000.mdb".

[baranich]

При входе в базу, там выскакивает окошко по вводу пользвателя и пароля, но возможно из-за этого и аксес не пускает меня в бызу, хотя у меня полные права

[Andrey Fedorov]

Полные права на что?

Про понятия защиты и что такое системная база знаешь?

[Andrey Fedorov]

Полные права на что?

Про понятия защиты и что такое системная база знаешь?

[Юджин]

а другим способом запустить не пробовал?

[Юджин]

есть вариант

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

      Dim ac As Access.Application
      ac = CreateObject("E:\priem\CO.mdb")
      ac.DoCmd.RunMacro(("Макрос1"))
      ac.Quit()

[baranich]

всем спасибо