Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=404431&view=findpost&p=3614247 Tue, 21 Jul 2015 13:34:38 +0000 Открытие базы данных при защите базы с помощью mdw https://forum.sources.ru/index.php?showtopic=404431&view=findpost&p=3614247 Цитата DIS @
Цитата Vlasssov @
"DATABASE=events;uid=gate;Pwd=gate"

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

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

Добавлено
Короче не идет соеинение через 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
]]> Vlasssov Базы данных: SQL https://forum.sources.ru/index.php?showtopic=404431&view=findpost&p=3614202 Tue, 21 Jul 2015 11:51:40 +0000 Открытие базы данных при защите базы с помощью mdw https://forum.sources.ru/index.php?showtopic=404431&view=findpost&p=3614202 Цитата Vlasssov @
"DATABASE=events;uid=gate;Pwd=gate"

А в этой строке пробовали менять на user=gate;pwd=gate]]> DIS Базы данных: SQL https://forum.sources.ru/index.php?showtopic=404431&view=findpost&p=3614185 Tue, 21 Jul 2015 11:04:12 +0000 Открытие базы данных при защите базы с помощью mdw https://forum.sources.ru/index.php?showtopic=404431&view=findpost&p=3614185
    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]]> Vlasssov Базы данных: SQL