Learn How to use ListView Control using VB.NET

kaning listview kay pare-parehas rani sa msflexgrid ang kalainan lang pwed ka makabutang og image sa listview(based sa akong na experience...koriksyoni lang ko if sayop akong na obserbaran :P)..everytime mag add ka og item automatic mo increment iyang row unlike sa flexgrid imo pa cyang i increment ang rows like grd.rows+=1.. sugod nata..

1:> Open a form
2:> Add a ListView Item nya ilisi ang pangan sa control sa akong exam kay lvCustomer
see the image:

3:> I-set ang properties sa lvCustomer
PROPERTY:VALUE
View:Details
Fullrowselect:True
GridLines:True
3:> sa Columns Property pag add og tulo ka column

Columnheader1
PROPERTY:VALUE
Text:Customer Code
Width:100

Columnheader2
PROPERTY:VALUE
Text:Customer Name
Width:200

Columnheader3
PROPERTY:VALUE
Text:Address
Width:250

*dont worry sa width kay pwede na nimo ma adjust ang iyang column width*
Akong gigamit na DBMS kay SQL SERVER sensya namo way Ms Access diri

Database Name: kageron
Table Name: Customer
Column Name: Data Type
CustomerCode:nchar(10)
CustomerName:nvarchar(50)
CustomerAddress:nvarchar(50)

Ang sulod sa akong Customer Table
Customer Code|Customer Name | Customer Addresss
CUST-0001| Jose Pidal | Boracay Island
CUST-0002| Jun Lozada | ZTE Broadband Deal
CUST-0003| Juan Dela Cruz | Sanciangko St. Cebu City

4:> Do the coding.. akong gus2 inig formload e display niya ang mga customer sa akong database

Code:


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim con As New SqlConnection("Data Source=ICBPI030\SQLEXPRESS;Initial Catalog=kageron;Integrated Security=True;Pooling=False")
        Dim com As New SqlCommand
        Dim rdr As SqlDataReader
        con.Open()
        With com
            .Connection = con
            .CommandText = "SELECT * FROM Customer"
            .CommandType = CommandType.Text
        End With
        rdr = com.ExecuteReader
        While rdr.Read
            lvCustomer.Items.Add(rdr("CustomerCode")) ' column for customer code
            lvCustomer.Items(lvCustomer.Items.Count - 1).SubItems.Add(rdr("CustomerName")) ' column for customer's name
            lvCustomer.Items(lvCustomer.Items.Count - 1).SubItems.Add(rdr("CustomerAddress")) ' column for customer's address
        End While
        rdr.Close()
        con.Close()
    End Sub


dapat inyo e import ang Namespace sa SqlClient
unsaon ? sa General Declaration i ibutang lang ni Imports System.Data.SqlClient

unsaon pag kuha sa mga values nga naa sa listview?
akong gibuhat diri kay nag add kog event sa listview nga inig double click niya e display niya sa messagebox sa iyang gi select nga row

Code:

 
Private Sub lvCustomer_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvCustomer.DoubleClick
        If lvCustomer.Items.Count > 0 Then
            MessageBox.Show("Code: " & lvCustomer.FocusedItem.SubItems(0).Text & _
                            vbCrLf & "Name: " & lvCustomer.FocusedItem.SubItems(1).Text & _
                            vbCrLf & "Address: " & lvCustomer.FocusedItem.SubItems(2).Text)
        End If
    End Sub


or kung dili mo gus2 sa ingon ani nga paagi mag buhat tag lain event.. gus2 nako e i-display sa messagebox ang tagsa-tagsa mga customer

Code:


Private Sub btnDisplay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
        For row As Integer = 0 To lvCustomer.Items.Count - 1 ' ang row sa listview nag start og 0 just like msflexgrid
            MessageBox.Show("Code: " & lvCustomer.Items(row).SubItems(0).Text & _
                            vbCrLf & "Name: " & lvCustomer.Items(row).SubItems(1).Text & _
                            vbCrLf & "Address: " & lvCustomer.Items(row).SubItems(2).Text)
        Next
    End Sub


kani cya gamit kaayo ni cya if ever gus2 ninyo e save ang mga values sa item sa database..inyong buhaton instead nga messagebox, gamitan na ninyo og action query nga mo INSERT sa database...

additional info:
sa pag add og mga items sa listview automatic nana niya e increment ang index pero pag add sa subitems dapat imo e-specify nga asa nga cya nga index otherwise mo-error na cya :)


see the screenshot on how to access the items in the listview


to download the complete code click here

HAPPY CODING. . .

kageron ani oi...wala mn ko .NET....hahehehee.....taas mn sad specs ang .NET gud....kng naa mo installer diha, basin ako suwayan.....hehehe....

arigato gozaimasu kageron....

naa koy installer pero ako na gi.uli sa akong klasmyt..lolz..kana's sayson ai kompleto na kay mura nag boyscout.. next topic listview using 6.0 ako sa e recall wa man juy 6.0 diri's opisina..nig abot nalang nako sa balay :p

Dim con As New SqlConnection("Data Source=ICBPI030\SQLEXPRESS;Initial Catalog=kageron;Integrated Security=True;Pooling=False")

kana cya dolpo kanang data source mao sad na sa form load parehas ra? unsay gi butang nimo sa form load

pwede na mn cguro dli nimo ibutang sa form load kay naa na mn ka gibutang sa iyang declaration.....not sure though....

actually ako na cyang gibutang sa form load nga event and pag declare sa object connection og pag instantiate kay did2 raman nako cya gigamit... if gus2 nako gamiton ang object connection bisag asa nga sub procedure then i need to declare it under sa Public class Form1..imong pangutana tonyo kung mao parehas raba na cla sa formload? wa ko nag declare og laing object connection naa ra tanang declaration sa formload... =)

wa jud ko ka gets... na wani naman ko ani ug vb oi... hehehe

aw oh d i inquiry man d i na nga program nga mo display sa tanan customer sa database mao2x hehehe kalimot ko og basa dah....

mao na alternative sa flexgrid dolpo?

hahahaha ... nakalimot naman ko aning VB da .... wahahahaha ...

unsaon pag create ug database sa .Net?

ey bro visit this thread..hope this would help you..
https://kageron.forumotion.com/tutorials-f12/learn-how-to-create-databasesql-server-using-visual-studio-t173.htm

tol anu ung "costumer" field name?

Customer = Table Name

welcome to myself

didyoucreatethissiteyourselfkageron?

sirius wrote:unsaon pag create ug database sa .Net?

front end man nimo ang vb pwede imong himuong back end or database kay sql or access or oracle or kung unsa imong nahibaw.an...

justtryingtosharealittle

ang db nga aq gamit is mysql naglibog ko deri dapit kay iba man ang syntax sa mysql

wala may.read sa mysql

While rdr.Read
lvCustomer.Items.Add(rdr("CustomerCode")) ' column for customer code
lvCustomer.Items(lvCustomer.Items.Count - 1).SubItems.Add(rdr("CustomerName")) ' column for customer's name
lvCustomer.Items(lvCustomer.Items.Count - 1).SubItems.Add(rdr("CustomerAddress")) ' column for customer's address
End While
rdr.Close()
con.Close()

bro try gamit ang MySql.Data.MySqlClient e google lang same syntax rana cla ang imong usbon ang mga classname lang ex.
'MS-SQL
Dim reader as SqlDataReader() to
'MYSQL DB
Dim reader as MySqlDataAdapter()

mga boss kageron ... pwd ko paki explain ani nga linya
"ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(rdr("Vendor Name"))" ....

unsa diay pulos anang linya nga "ListView1.Items.Count - 1" ?? ngano -1 man??

salamat bali daghan ...

parehas rag array bai, ang collection mag sugod og 0, if naa kay 5 ka collection, imong ma access is from 0-4, if imong ipamugos og 5 or greater mo error na ang program nga gitawag og InvalidOutOfRangeException