Как подключить данные только для чтения к заблокированному MS Access Access для чтения и записи, используя MS Excel?

Question

Меня беспокоит то, что в файле, к которому я хочу подключиться, есть блокировка чтения-записи, потому что он используется приложением, как показано:Заблокированный файл MS Access

Когда я пытаюсь обновить подключение к данным в MS Excel, появляются следующие ошибки / уведомления, потому что он не может установить соединение с используемым файлом MS Access:

Мне интересно, есть ли опция в MS Access, которая deny write только запись, но allow read или что-то, что позволит мне установить read-only data connection для чтения с моим файлом MS Excel, даже если он заблокирован.

Я нашел опции record-level locking в файле MS Access, но я обеспокоен тем, что это может вызвать проблемы у пользователей основного приложения, которое записывает данные в файл MS Access. Я пытался отключить его, но он все еще заблокирован. Отображаются параметры:параметры блокировки на уровне записи

Строка подключения моего подключения данных Excel к файлу Access показана ниже:

Provider=Microsoft.ACE.OLEDB.12.0;
User ID=Admin;
Data Source=C:\Users\ACER\Desktop\Test.MDB;
Mode=Share Deny Write;
Extended Properties="";
Jet OLEDB:System database="";
Jet OLEDB:Registry Path="";
Jet OLEDB:Engine Type=5;
Jet OLEDB:Database Locking Mode=0;
Jet OLEDB:Global Partial Bulk Ops=2;
Jet OLEDB:Global Bulk Transactions=1;
Jet OLEDB:New Database Password="";
Jet OLEDB:Create System Database=False;
Jet OLEDB:Encrypt Database=False;
Jet OLEDB:Don't Copy Locale on Compact=False;
Jet OLEDB:Compact Without Replica Repair=False;
Jet OLEDB:SFP=False;
Jet OLEDB:Support Complex Data=False

Answer 1

Вы можете использовать этот VBA для подключения базы данных Access в режиме только для чтения:

Sub ReadFromAccess()
    Dim cn As Object, rs As Object
    Dim intColIndex As Integer
    Dim DBFullName As String
    Dim TargetRange As Range

    DBFullName = "C:\Users\Username\Desktop\Sample.mdb"

    Application.ScreenUpdating = False

    Set TargetRange = Sheets("Sheet1").Range("A1")
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBFullName & ";" & "Persist Security Info=False;Mode=Read;"

    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT * FROM Table Name", cn, , , adCmdText

    For intColIndex = 0 To rs.Fields.Count - 1
    TargetRange.Offset(1, intColIndex).Value = rs.Fields(intColIndex).Name
    Next

    TargetRange.Offset(1, 0).CopyFromRecordset rs

    Application.ScreenUpdating = True
    On Error Resume Next
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    On Error GoTo 0
    Exit Sub

End Sub

NB

• Путь к файлу C:\Users\ Имя пользователя \ Desktop \ Sample.mdb и Sheets("Sheet1").Диапазон ("А1") доступен для редактирования.
• Вместо переменной DBFullName вы можете использовать путь к файлу C:\Users\ Username \ Desktop \ Sample.mdb, как я показал в комментариях.

,