private sub LstAdd()
Dim Con
As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=d:\block.mdb")
Dim Cmd
As OleDbCommand = New OleDbCommand("SELECT * FROM blocks order by block_name", Con)
Con.Open()
Dim mTxt
As String
mTxt =
""
Dim data_reader
As Data.IDataReader = Cmd.ExecuteReader()
Do
While data_reader.Read()
If data_reader.Item("block_name").ToString <>
"" Then
Dim new_item As
New ListViewItem(data_reader.Item("block_name").ToString)
new_item.SubItems.Add(data_reader.Item("block_id").ToString)
LstBlock.Items.Add(new_item)
mTxt = data_reader.Item("block_name").ToString
End If
<place w:st="on">Loop</place>
<place w:st="on">end sub</place>
How to bind in database with listview control, this code to add value without bind to add value. Plz tell
me
JapniesMapel