Không thể đọc bản ghi; không có quyền đọc trên 'MSysObjects'

Question

Tôi đang cố gắng lấy danh sách tất cả các bảng từ cơ sở dữ liệu định dạng Access 2007 ACCDB bằng cách sử dụng Excel VBA.

Tôi đã theo bài này:

How can I get table names from an MS Access Database?

Sử dụng:

SELECT MSysObjects.Name AS table_name 
FROM MSysObjects 
WHERE 
     (((Left([Name],1))<>"~") 
    AND ((Left([Name],4))<>"MSys") 
    AND ((MSysObjects.Type) In (1,4,6))) 
order by MSysObjects.Name 

nhưng tôi nhận được lỗi này.

Không thể đọc bản ghi; không có quyền đọc trên 'MSysObjects'

Tôi muốn chỉ có thể lấy tên bảng bằng cách sử dụng câu lệnh SQL chứ không phải phương thức OpenSchema.

Tôi nghĩ vấn đề là với Quyền truy cập. Tôi không chắc.

Có ai có ý tưởng nào không?

Answer 1

Dường như vấn đề về quyền. Hãy thử mở cơ sở dữ liệu và đi đến các điều khoản bảo mật (trong Tools-> security -> User và quyền của nhóm) Đảm bảo rằng bạn có quyền truy cập quản trị vào cơ sở dữ liệu.

Nếu bạn không bạn có thể phải đăng nhập vào cơ sở dữ liệu như một người dùng mà không và cấp cho mình quyền

Answer 2

Sử dụng DAO TableDefs bộ sưu tập

Sub TableDefs() 

    Dim db As dao.Database 
    Dim tdfLoop As dao.TableDef 

    Set db = CurrentDb 
    With db 
     Debug.Print .TableDefs.Count & " TableDefs in " & .name 
     For Each tdfLoop In .TableDefs 
      Debug.Print " " & tdfLoop.name 
     Next tdfLoop 
    End With 

End Sub 

Answer 3

tôi đã có thể làm cho công việc mã với một tệp MDB. Tôi đã có tùy chọn để đặt quyền người dùng bằng cách sử dụng "Công cụ cơ sở dữ liệu - Người dùng và Quyền" trên ruy-băng. Tùy chọn này chỉ có sẵn cho các tệp MDB. Bây giờ vấn đề là làm cho nó hoạt động với một tập tin ACCDB.

Đây là mã của tôi:

Dim DBFile As String 
Dim Connection As ADODB.Connection 
Dim Recordset As New ADODB.Recordset 

DBFile = "C:\Documents and Settings\User\Desktop\Son.mdb" 

Set Connection = New ADODB.Connection <br/> 
Connection.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source= " & DBFile & ";" 

SQLString = "SELECT MSysObjects.Name AS table_name" & _ 
"FROM MSysObjects WHERE (((Left([Name],1))<>" & """~""" & ")" & _ 
"AND ((Left([Name], 4))<>" & """MSys""" & ")" & _ 
"AND ((MSysObjects.Type) In (1,4,6)));order by MSysObjects.Name" 

Set Recordset = New ADODB.Recordset 
Recordset.Open SQLString, Connection 

Vấn đề là tôi không thể làm cho nó làm việc với các file ACCDB.

Answer 4

Đây là những gì làm việc cho tôi, vì đây là lần đầu tiên vì vậy câu hỏi mà đi lên cho việc này:

1. này là một tập tin MDB. Không biết về người khác. Tôi hiểu đây không phải là câu hỏi được yêu cầu. Tuy nhiên, các câu hỏi/câu trả lời của StackOverflow cũng được nhiều người khác đến đây thông qua google, như tôi đã làm, và tôi đang sử dụng MDB. Tôi hy vọng câu trả lời này được sử dụng cho người khác.

2. Mở giao diện truy cập MS. Đã không tìm ra cách để làm điều này mà không có nó, xin lỗi, mặc dù nó có khả năng có thể.

3. Chuyển đến Công cụ ... Tùy chọn ...

4. Bấm tab "View"

5. chọn "Hidden đối tượng", "Hệ thống các đối tượng"

6. tab gần

7. Go vào Tools ... An ninh .. người dùng và Nhóm quyền

8. Chọn tất cả các tên bảng bao gồm MSysObjects

9. bấm tất cả các "điều khoản" hộp kiểm để họ thiết lập là "kiểm tra" cho tất cả các mục

10. áp dụng/OK khi cần thiết

Answer 5

Kể từ db của bạn là định dạng ACCDB, bạn sẽ được làm việc như sử dụng Admin. Bạn có thể xác nhận điểm đó trong cửa sổ ngay lập tức. (Đến đây với Ctrl +g)

? CurrentUser() 
Admin 

Kể từ quản không đã đọc (SELECT) cho phép trên MSysObjects, thực thi một lệnh DDL để cung cấp cho quản phép đó.

strDdl = "GRANT SELECT ON MSysObjects TO Admin;" 
CurrentProject.Connection.Execute strDdl