获取数据库中表名

用的老旧的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

 

posted @ 2015-08-30 11:47  zhixin9001  阅读(231)  评论(0编辑  收藏  举报