当前位置：首页 > 网络编程 > WEB编程 > ASP.net > 在VB.NET中用ADO(不是ADO.NET)获取数据库中的所有非系统表名

在VB.NET中用ADO(不是ADO.NET)获取数据库中的所有非系统表名

点击次数：36 次 发布日期：2008-11-27 01:05:05 作者：源代码网
源代码网推荐 "假设mCnnDB是个已打开某一数据库的ADO.Connection
"获取数据库中的所有表名关键是用到ADO.Connection的OpenSchema方法
"该方法返回一个只读的数据集,包括系统表和用户表.
"因此,需要一个集合来保存其中的用户表
    Public Function GetAllTableName() As System.Collections.ArrayList
        Dim t As New System.Collections.ArrayList()
        Dim rs As New ADODB.Recordset()
        rs = mCnnDB.OpenSchema(ADODB.SchemaEnum.adSchemaTables)
        Do While Not rs.EOF
            If rs("TABLE_TYPE").Value = "TABLE" Then
                t.Add(rs("TABLE_NAME").Value)
            End If
            rs.MoveNext()
            If rs.EOF Then Exit Do
        Loop
        rs.Close()
        rs = Nothing
        Return t
    End Function



源代码网供稿.
网友评论 (0)
我也要写评论
会员中心
网络编程
本站推荐
网络编程之精华