ListView - Inserimento colonne e Dati da Database

' 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
End Class

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)\istanzapaolopugl;Initial Catalog=Northwind;Integrated Security=SSPI;")

' 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
End Class