如何在vba中以只读方式打开数据库？

Question

我正在尝试使用Excel VBA以只读形式打开访问数据库。

这是我目前的代码，

        Set cn = CreateObject("ADODB.Connection")
        cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFullName & ";"

        Set rs = CreateObject("ADODB.Recordset")
        rs.Open "SELECT DISTINCT A_Name FROM app_tbl ORDER BY A_Name ASC", cn, , , adCmdText

如何以只读方式打开它？

Answer 1

尝试

 cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFullName & ";Mode=Read"