Pedia bori kapios na bohtisi; exo kani ena programataki fortoni egrafes apo vasi se ListView doulevi xoris provlima , telo na to epektino na, boro na kano anazitisi kai na epilegonte mono h engrafes pou telo sto ListView, exo topotetisi ena TextBox gia na perno to onoma anazitisis apo eki, Pos Boro na dimiourgiso to erotima,prospato ma den ginete tipota....
dino ton kodika gia bohtia


ListView1.Clear()
Dim connection_string As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=P&P.MDB"
Dim Ole_connection As New OleDbConnection(connection_string)
Ole_connection.Open()
Dim comand As New OleDbCommand("SELECT Name,Daten,Producht, Datei FROM Pothoff " , Ole_connection)

Dim count As Integer = 0
Dim Read As OleDbDataReader
Read = comand.ExecuteReader

Dim data_table As DataTable
data_table = Read.GetSchemaTable
Dim column_header As ColumnHeader
Dim i As Integer

For i = 0 To data_table.Rows.Count - 1
column_header = New ColumnHeader()
column_header.Text = data_table.Rows(i).Item("ColumnName")
ListView1.Columns.Add(column_header)
Next i
Do While Read.Read()
Dim new_item As ListViewItem
' Create the main ListView item.
new_item = ListView1.Items.Add("" & Read.Item(0))
Dim t As Integer
' Add the subitems.
For t = 1 To Read.FieldCount - 1
new_item.SubItems.Add("" & Read.Item(t))
Next t
Loop
Ole_connection.Close()