获取数据库中表名

用的老旧的ASSESS数据库，

用sql语句获取的方式是："select name from MSysObjects where type=1 and flags=0",

跟其他数据库差异很大，而且这MSysObjects还是一个系统隐藏对象，程序想用这种方法的话，要到assess安全设置里设置允许MSysObjects的访问权限，要一个一个数据库单独设置，所以对于我这种一天产生好几个库的情况就直接pass了。

另一种方法是用OLEDB 的OleDbConnection下的GetOleDbSchemaTable方法，刚好我也用的OLEDB，就用这种方法实现了。

        Using conn As New OleDbConnection("***")

            conn.Open()

            Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

            Dim index As Integer = schemaTable.Columns.IndexOf("TABLE_NAME")

            For i As Integer = 0 To schemaTable.Rows.Count - 1

                Dim row As DataRow = schemaTable.Rows(i)

                Dim aa As String = row.ItemArray.GetValue(index).ToString

    ……

            Next

        End Using