如何在 VB.NET 中使用 SQL 从特定数据库中检索 Ms 访问表名称

Question

每当我想从特定的 Ms Access 2007 数据库中选择表名时，我都会使用以下 SQL 请求：

SELECT name from msysobjects WHERE type=1 and flags=0

我的VB.NET源代码：

 Connection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" + _
                     "Data Source=" & Text1.Text
        Connection.Open()
        ' sql = "SELECT MSysObjects.Name AS table_name FROM MSysObjects"
        sql = "SELECT name from msysobjects WHERE Type = 1 And flags = 0"
        Dim commande As OleDbCommand
        commande = New OleDbCommand(sql, Connection)
        Dim dataReader As OleDbDataReader

        Try
            dataReader = commande.ExecuteReader()
            While (dataReader.Read())
                tableNameBox.Text = dataReader.GetString(0)
            End While

        Catch ex As Exception
            MsgBox("Problème de connection " & ex.Message())

        End Try

我总是遇到这个异常：

“msysobjects”没有读取权限

我的目的是在组合框中显示表名 谢谢

Answer 1

您不需要直接访问系统表。您可以使用GetSchema 方法来检索该信息。例如，要检索“常规”（非系统）表的列表，您可以使用以下命令：

Using conn As New OleDbConnection(myConnectionString)
    conn.Open()
    Dim dt As DataTable = conn.GetSchema("TABLES", {Nothing, Nothing, Nothing, "TABLE"})
    For Each dr As DataRow In dt.Rows
        Console.WriteLine(dr("TABLE_NAME"))
    Next
End Using

有关详细信息，请参阅

OleDbConnection.GetSchema Method (String, String())