GetTableColumns – Retrieving the column names of a table in a database

' 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:	estdb.mdb", "TestTable")'   Dim column As String'   For Each column In columns'       Debug.WriteLine(column)'   NextFunction 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 columnsEnd Function

Share the Post:
Share on facebook
Share on twitter
Share on linkedin


Recent Articles: