Binaryworld - GetTableColumns - Retrieving the column names of a table in a database ... [ VB.net -> ADO.net ]

' Returns the names of all the columns in the specified database table. The
' database is identified by the input connection string
' Requires Imports System.Data.OleDb
'
' Example:
' Dim columns() As String = GetTableColumns
' ("PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=d:\testdb.mdb", "TestTable")
' Dim column As String
' For Each column In columns
'    Debug.WriteLine(column)
' Next

Function GetTableColumns(ByVal connString As String, ByVal table As String) As _
  String()
  Dim cn As New OleDbConnection(connString)
  cn.Open()
  ' get a DataTable with all the info
  Dim dt As DataTable = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, _
    New Object() {Nothing, Nothing, table, Nothing})
  cn.Close()
  ' save the column names into a string array
  Dim columns(dt.Rows.Count - 1) As String
  Dim i As Integer
  For i = 0 To dt.Rows.Count - 1
    columns(i) = dt.Rows(i)(3)
  Next
  Return columns
End Function