How you use listview in vb6?
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