'----------------------------------------------------------
'開發者：
'開發時間：2004.9.9
'功能：應用ADO.net得到表
'----------------------------------------------------------
Imports Zy_DataAccess
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Public Class ClsGetTables
?
??? '----------------------------------------------------------
??? '開發時間：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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：得系統表
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：得到系統視圖
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：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
??? '----------------------------------------------------------
??? '開發時間：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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：得到數據類型
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：數據庫名
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：數據庫表列的權限
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：數據庫表的索引
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：數據庫表的主鍵
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：數據庫的存儲過程的參數
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：數據庫的架構信息
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：數據庫的表的記錄數統計
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：數據庫的表的記錄數統計
??? '----------------------------------------------------------
??? 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
??? '----------------------------------------------------------
??? '開發時間：2004.9.9
??? '功能：數據庫的中用戶可訪問的表
??? '----------------------------------------------------------
??? 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

轉載于:https://www.cnblogs.com/sanle/archive/2005/10/22/259761.html

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。