Открытие базы данных при защите базы с помощью mdw , Ошибка соединения

[Vlasssov]

Пишу код как есть

Dim mWS As DAO.Workspace
    Dim mDB As DAO.Database
    gatestr = "c:\GATE\Server\Events\n150720.mdb"
    DAO.SystemDB = "c:\GATE\Server\Gate.mdw"
    Set mWS = DAO.CreateWorkspace("", "gate", "gate", dbUseJet)
    Set mDB = mWS.OpenDatabase(gatestr, 2, True, "DATABASE=events;uid=gate;Pwd=gate")

При открытии в самой программе access спрашивает пароль, пользователь уже задан. Выдает несколько предупреждающих сообщений, в том числе и о том, что база только для чтения и позволяет открывать в базе одну таблицу events
Какая строка коннекта должна быть?
В документации написано, что user=gate, pwd=gate

[DIS]

Цитата Vlasssov @ 21.07.15, 11:04

"DATABASE=events;uid=gate;Pwd=gate"

А в этой строке пробовали менять на user=gate;pwd=gate

[Vlasssov]

Цитата DIS @ 21.07.15, 11:51

Цитата Vlasssov @ 21.07.15, 11:04

"DATABASE=events;uid=gate;Pwd=gate"

А в этой строке пробовали менять на user=gate;pwd=gate

3151 - ODBC - ошибка подключения....

Добавлено 21.07.15, 14:20
Короче не идет соеинение через dao& в этом вся проблема
Решение можно получить только через ado

Sub adogate()
 
Dim pConn, pRSet
Dim strConn As String
  
  
adAffectCurrent = 1
adSearchForward = 1
adUseClient = 3
adOpenStatic = 3
adCmdTable = 2
adLockOptimistic = 3
  
 
Set pConn = CreateObject("ADODB.Connection")
Set pRSet = CreateObject("ADODB.Recordset")
  
 
Set pRSet = CreateObject("ADODB.Recordset")
  
'База данных с файлами групп защита, короче
sSystemDB = "c:\GATE\Server\Gate.mdw"
'Открываемая база
gatestr = "c:\GATE\Server\Events\n150720.mdb"
  
'формируем строку коннекта
strConn = "Data Source=" + gatestr + ";Jet OLEDB:System database=" + sSystemDB
pConn.Provider = "Microsoft.Jet.OLEDB.4.0"
'Открываем соединение
pConn.Open ConnectionString:=strConn, UserId:="gate", Password:="gate"
                
'обязательно для перемещения по данным
pRSet.CursorLocation = adUseClient
'Создаем набор данных
pRSet.Open "Select * from events", pConn, adOpenStatic, adLockOptimistic
    
'Перебираем
k = 1
Do Until pRSet.EOF
 
Worksheets(1).Cells(k, 1).Value = pRSet.Fields("DateTime").Value
Worksheets(1).Cells(k, 2).Value = pRSet.Fields("EventType").Value
pRSet.MoveNext
k = k + 1
 
Loop
 
End Sub