Schema Trova Tabelle e nome Campi

Scrive In una treview il nome del campi della tabella Orders del database
Northwind




Imports System.Data.OleDb

Public Class Form1
Inherits System.Windows.Forms.Form


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim conn As OleDbConnection = New OleDbConnection _
("Provider=SQLOLEDB;Data Source=(local);Initial Catalog=Northwind;Integrated Security=SSPI;")
' ("Provider=SQLOLEDB;Data Source=(local);Initial Catalog=Northwind;uid=sa;pwd=;")


' Retrieving schema for columns from a single table

Dim cmd As OleDbCommand = New OleDbCommand("Orders", conn)
cmd.CommandType = CommandType.TableDirect

' Retrieve schema only

conn.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.SchemaOnly)

' Get references to schema information

Dim SchemaTable As DataTable = reader.GetSchemaTable()

' Close and release the connection before processing results

reader.Close()
conn.Close()

' Display schema table column headers

Dim col As DataColumn
SchemaTableList.View = View.Details
For Each col In SchemaTable.Columns
SchemaTableList.Columns.Add(col.ColumnName, 100, HorizontalAlignment.Left)
Next

' Display schema

Dim row As DataRow
Dim ColCount As Integer = SchemaTable.Columns.Count
For Each row In SchemaTable.Rows
Dim OrderDetails(ColCount) As String
Dim ColIdx As Integer

For ColIdx = 0 To ColCount - 1
OrderDetails(ColIdx) = Convert.ToString(row(ColIdx))
Next

Dim NewItem As ListViewItem = New ListViewItem(OrderDetails)
SchemaTableList.Items.Add(NewItem)
Next
End Sub