ListView - Inserimento dati nella ListView

Imports System.Data.SqlClient




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Const SelectQuery As String = "SELECT * FROM Orders"
Dim conn As SqlConnection = New SqlConnection _
("Data Source=(local)\istanzapaolopugl;Initial Catalog=Northwind;Integrated Security=SSPI;")



SchemaTableList.Clear()

' Retrieving schema for columns from a single table

Dim cmd As SqlCommand = New SqlCommand(SelectQuery, conn)

' Retrieve schema only

conn.Open()
Dim reader As SqlDataReader = 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