1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Nomes dos campos de uma tabela

Discussão em 'Programação' iniciada por pks, 27 de Julho de 2007. (Respostas: 1; Visualizações: 517)

  1. pks

    pks Power Member

    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.
    :)
     
  2. Nobau

    Nobau Suspenso

    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,
     

Partilhar esta Página