'''

?? ''' 獲取所有表的名字
?? '''
?? ''' 連接對象
?? ''' 包含表名字的字符串數組
?? Public Function GetTablesName(ByVal conn As OleDb.OleDbConnection) As String()
?????? If (conn Is Nothing) AndAlso (conn.State <> ConnectionState.Open) Then
?????????? Return Nothing
?????? End If

?????? Dim arTmp As ArrayList = New ArrayList()

?????? Dim dtTmp As DataTable = conn.GetSchema("Tables")
?????? For i As Integer = 0 To dtTmp.Rows.Count - 1
?????????? '必須是基本表,不是系統表
?????????? If dtTmp.Rows(i).Item("TABLE_TYPE").ToString() = "TABLE" Then
?????????????? arTmp.Add(dtTmp.Rows(i).Item("TABLE_NAME"))
?????????? End If
?????? Next

?????? Dim arT As String()
?????? ReDim arT(arTmp.Count() - 1)
?????? arTmp.CopyTo(arT)
?????? Return arT
?? End Function

'''

?? ''' 獲取一個表的列名
?? '''
?? '''
?? ''' 表明
?? ''' 表的列名子字符串數組
?? Public Function GetColumnsName(ByVal conn As OleDb.OleDbConnection, ByVal TableName As String) As String()
?????? If (conn Is Nothing) AndAlso (conn.State <> ConnectionState.Open) Then
?????????? Return Nothing
?????? End If

?????? Dim arTmp As ArrayList = New ArrayList()

?????? Dim dtTmp As DataTable = conn.GetSchema("Columns", New String() {Nothing, Nothing, TableName})
?????? For i As Integer = 0 To dtTmp.Rows.Count - 1
?????????? arTmp.Add(dtTmp.Rows(i).Item("COLUMN_NAME"))
?????? Next

?????? Dim arT As String()
?????? ReDim arT(arTmp.Count() - 1)
?????? arTmp.CopyTo(arT)
?????? Return arT
?? End Function

總結

以上是生活随笔為你收集整理的oledb 获取所有表的名字和列名的全部內容，希望文章能夠幫你解決所遇到的問題。

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