'----------------------------------------------------------
'開發(fā)者：
'開發(fā)時(shí)間：2004.9.9
'功能：應(yīng)用ADO.net得到表
'----------------------------------------------------------
Imports Zy_DataAccess
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class ClsGetTables
?
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：得到所有表
??? '----------------------------------------------------------
??? Public Function GetAllTables(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
?????????????????????????????????????????????????????????? New Object() {Nothing, Nothing, Nothing, Nothing}) ' "TABLE"})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：得系統(tǒng)表
??? '----------------------------------------------------------
??? Public Function GetSystemTables(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
?????????????????????????????????????????????????????????????? New Object() {Nothing, Nothing, Nothing, "SYSTEM TABLE"})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：得用戶表
??? '----------------------------------------------------------
??? Public Function GetUserTables(ByVal CnStr As String) As DataTable

??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
?????????????????????????????????????????????????????????????? New Object() {Nothing, Nothing, Nothing, "TABLE"})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：得到系統(tǒng)視圖
??? '----------------------------------------------------------
??? Public Function GetSystemViews(ByVal CnStr As String) As DataTable

??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
?????????????????????????????????????????????????????????????? New Object() {Nothing, Nothing, Nothing, "SYSTEM VIEW"}) ' "TABLE"})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：得到用戶視圖
??? '----------------------------------------------------------
??? Public Function GetUserViews(ByVal CnStr As String) As DataTable

??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
?????????????????????????????????????????????????????????????? New Object() {Nothing, Nothing, Nothing, "VIEW"}) ' "TABLE"})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：得到所有過程
??? '----------------------------------------------------------
??? Public Function GetStoredProcedures(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Procedures, New Object() {Nothing, Nothing, Nothing, Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：得到數(shù)據(jù)類型
??? '----------------------------------------------------------
??? Public Function GetDataTypes(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Provider_Types, New Object() {Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：得到表的列,My_Tablename為空是所有的
??? '----------------------------------------------------------
??? Public Function GetTableColumns(ByVal CnStr As String, ByVal My_Tablename As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? If My_Tablename.Trim = "" Then
??????????? My_Tablename = Nothing
??????? End If
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, My_Tablename, Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：數(shù)據(jù)庫名
??? '----------------------------------------------------------
??? Public Function GetDbname(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Catalogs, New Object() {Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：數(shù)據(jù)庫表列的權(quán)限
??? '----------------------------------------------------------
??? Public Function GetColumn_Privileges(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Column_Privileges, New Object() {Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：數(shù)據(jù)庫表的索引
??? '----------------------------------------------------------
??? Public Function GetIndexes(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Indexes, New Object() {Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：數(shù)據(jù)庫表的主鍵
??? '----------------------------------------------------------
??? Public Function GetPrimary_Keys(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Primary_Keys, New Object() {Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：數(shù)據(jù)庫的存儲(chǔ)過程的參數(shù)
??? '----------------------------------------------------------
??? Public Function GetProcedure_Parameters(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Procedure_Parameters, New Object() {Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：數(shù)據(jù)庫的架構(gòu)信息
??? '----------------------------------------------------------
??? Public Function GetSchemata(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Schemata, New Object() {Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：數(shù)據(jù)庫的表的記錄數(shù)統(tǒng)計(jì)
??? '----------------------------------------------------------
??? Public Function GetStatistics(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Statistics, New Object() {Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：數(shù)據(jù)庫的表的記錄數(shù)統(tǒng)計(jì)
??? '----------------------------------------------------------
??? Public Function GetTable_Statistics(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Table_Statistics, New Object() {Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
??? '----------------------------------------------------------
??? '開發(fā)時(shí)間：2004.9.9
??? '功能：數(shù)據(jù)庫的中用戶可訪問的表
??? '----------------------------------------------------------
??? Public Function GetTables_Info(ByVal CnStr As String) As DataTable
??????? Dim conn As New OleDbConnection(CnStr)
??????? conn.Open()
??????? Dim schemaTable As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables_Info, New Object() {Nothing})
??????? conn.Close()
??????? Return schemaTable
??? End Function
???
End Class

轉(zhuǎn)載于:https://www.cnblogs.com/sanle/archive/2005/10/22/259761.html

總結(jié)

以上是生活随笔為你收集整理的应用ADO.net得到表的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。