Nomes dos campos de uma tabela

[pks]

Boa Tarde,
Procuro uma Função, caso exista em vb.net, em que eu lhe de o nome de uma tabela, ( uso uma base de dados em MSaccess), e essa função me devolva um array(?) com o nome de todos os campos dessa tabela.

 

[Nobau]

Julgo que a partir desta rotina consigas desenvolver o que pretendes:

Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Windows.Forms
Imports System.Data.SqlClient


Public Class MainClass
Shared Dim WithEvents con As SqlConnection

Shared Sub Main()
con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI")

Dim str As String = "SELECT ID, FirstName, LastName FROM Employee"
Dim cmd As New SqlCommand(str, con)

Dim da As New SqlDataAdapter(cmd)

Dim ds As New DataSet()

da.Fill(ds, "Employee")

' Display the column names
Dim dc As DataColumn
For Each dc In ds.Tables(0).Columns
Console.Write("{0,15}", dc.ColumnName)
Next

' Add a newline after the column headings
Console.Write(vbCrLf)

' Display the data for each row. Loop through the rows first.
Dim dr As DataRow
For Each dr In ds.Tables(0).Rows

' Then loop through the columns for the current row.
Dim i As Integer
For i = 1 To ds.Tables(0).Columns.Count
Console.Write("{0,15}", dr(i - 1))
Next i

' Add a line break after every row
Console.Write(vbCrLf)
Next
End Sub
End Class

Cumprimentos,