Login | Register   
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: Intermediate
Apr 7, 2003

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:\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
Marco Bellinaso
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap