How you use listview in vb6?

Answer 1

just right ckick on tools bar present on left side

u will have a popup select component and again a box will appear now select option

"""" microsft window common control vb.6""""""""'

u will got listview in the tools

nd now drag it on form............

select view as=== ivwreport from properties window..............

and code it as................

Private Sub Form_Load()

Set cn = New ADODB.Connection

'cn.Open "provider=MSDAORA.1; user id = scott; password=tiger;data source=aim;"

cn.Open "provider=MSDAORA.1; user id = scott; password=tiger;"

Set rec = New ADODB.Recordset

rec.ActiveConnection = cn

rec.LockType = adLockOptimistic

rec.CursorLocation = adUseClient

rec.Source = "name of form"

rec.Open

rec.MoveFirst

While rec.EOF = False

cou = cou + 1

rec.MoveNext

Wend

rec.MoveFirst

ReDim ListItem(cou)

i = 1

While rec.EOF = False

Set ListItem(i) = ListView1.ListItems.Add()

ListItem(i).Text = rec.Fields(0)

ListView1.ListItems(i).ListSubItems.Add , , Trim(rec.Fields(1))

ListView1.ListItems(i).ListSubItems.Add , , Trim(rec.Fields(2))

rec.MoveNext

i = i + 1

Wend

Adodc1.Visible = False

End Sub

Private Sub listview1_DblClick()

rec.MoveFirst

i = 1

While rec.EOF = False

If rec.Fields(0) <> ListView1.ListItems(i) Then

rec.MoveNext

Else

Text1.Text = rec.Fields(0)

Text2.Text = rec.Fields(1)

DTPicker1.Value = rec.Fields(2)

rec.MoveNext

End If

i = i + 1

Wend

End Sub