List View Control

Printable View

Show 60 post(s) from this thread on one page

Dec 20th, 2005, 01:53 AM
seema_s

List View Control

Dear Friends,

How can I get a list view control to put on a form? I can not see such control. Please help.

Seema_S
Dec 20th, 2005, 01:59 AM
Andrew G

Re: List View Control

Its a component so you'll need to add it first. Either press CTRL + T or goto project then click components, then search for microsoft common controls, and it should have it.
Dec 20th, 2005, 02:11 AM
seema_s

Re: List View Control

Quote:

Originally Posted by Andrew G

Its a component so you'll need to add it first. Either press CTRL + T or goto project then click components, then search for microsoft common controls, and it should have it.

Friend,

I could not find with that name.
Dec 20th, 2005, 02:18 AM
Andrew G

Re: List View Control

oops sorry its actually Microsoft Windows Common Controls 5.0 (there is also 6.0 which has more options but you can't add XP styls to it.)
Dec 20th, 2005, 02:22 AM
rush_shri

Re: List View Control

Increase the width of your General tab. May be it's hidden. In that case right mouse click on general tab and unhide it.
Dec 20th, 2005, 02:28 AM
Andrew G

Re: List View Control

Quote:

Originally Posted by seema_s

I could not find with that name.

Hence i don't think he even has it loaded, so increasing the tab width won't do much.
Dec 20th, 2005, 04:22 AM
seema_s

Re: List View Control

How can I get the data from TBL2 (Table Name) into the List View. Field Name is "Name".

Please help.
Dec 20th, 2005, 06:54 AM
Hack

Re: List View Control

Quote:

Originally Posted by seema_s

How can I get the data from TBL2 (Table Name) into the List View. Field Name is "Name".

Please help.

How do you connect to your database? Through ADO code I hope.
Dec 20th, 2005, 08:43 AM
seema_s

Re: List View Control

Quote:

Originally Posted by Hack

How do you connect to your database? Through ADO code I hope.

Yes, it is with ADO code.

Re: List View Control

Quote:

Originally Posted by seema_s

How can I get the data from TBL2 (Table Name) into the List View. Field Name is "Name".

Please help.

In this example, I use ADOCn as my connection object and adoRS as my recordset object. Replace these with your variables.
VB Code:
Private Sub cmdLoadListView_Click()
Dim sSQL As String
Dim lvwItem As ListItem
Set adoRS = New ADODB.Recordset
sSQL = "SELECT name FROM tbl2 "
adoRS.Open sSQL, ADOCn
Do Until adoRS.EOF
    Set lvwItem = ListView1.ListItems.Add(, , adoRS.Fields.Item("Name").Value)
Loop
adoRS.Close
Set adoRS = Nothing
End Sub

Re: List View Control

Quote:

Originally Posted by Hack

In this example, I use ADOCn as my connection object and adoRS as my recordset object. Replace these with your variables.

VB Code:

Private Sub cmdLoadListView_Click()
Dim sSQL As String
Dim lvwItem As ListItem
Set adoRS = New ADODB.Recordset
sSQL = "SELECT name FROM tbl2 "
adoRS.Open sSQL, ADOCn
Do Until adoRS.EOF
    Set lvwItem = ListView1.ListItems.Add(, , adoRS.Fields.Item("Name").Value)
Loop
adoRS.Close
Set adoRS = Nothing
End Sub

------------------------------------------------------------------------
The following is the code. Datagrid is working fine. But List view does not show any records.

VB Code:

Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
 
Public Sub data_connect()
Dim path As String
path = App.path & "\DBL1.mdb"
db.CursorLocation = adUseClient
db.Open "Provider=microsoft.jet.oledb.4.0;persist security info=false;data source=" & path & ";"
End Sub
 
Private Sub Form_Load()
Call data_connect
rs.Open "Select * from TBL1", db
Set DataGrid1.DataSource = rs
show_rec
End Sub
 
Public Sub show_rec()
Text1 = rs(0)
 
End Sub
 
Private Sub cmdLoadListView_Click()
Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT NAME FROM TBL1 "
rs.Open sSQL, db
Do Until adoRS.EOF
    Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
Loop
rs.Close
Set rs = Nothing
End Sub

Edit: Fixed [vbcode][/vbcode] tags. - Hack

Dec 20th, 2005, 10:25 AM
Hack

Re: List View Control

Is Name the name of your field in the table?

Does it contain a bunch of records?

Are you getting any errors when you run the listview code?
Dec 20th, 2005, 10:30 AM
seema_s

Re: List View Control

Quote:

Originally Posted by Hack

Is Name the name of your field in the table?

Does it contain a bunch of records?

Are you getting any errors when you run the listview code?

It doesn't show any error. But I cannot view any data in the list View.

NAME (This is the field name in my database and it has only one field.)
Dec 20th, 2005, 10:41 AM
Hack

Re: List View Control
Try changing your select query to this
VB Code:
```
sSQL = "SELECT [NAME] FROM TBL1 "
```
Dec 21st, 2005, 01:51 AM
seema_s

1 Attachment(s)

Re: List View Control
Quote:
Originally Posted by Hack

Try changing your select query to this

VB Code:

sSQL = "SELECT [NAME] FROM TBL1 "
----------------------------------------------------------------
Dear Friend Hack,

The Datagrid works nice but List View does not show any records.
Plays help.

Seema_S

Re: List View Control

I would advise you to use Option Explicit. You would have found your error easily. adoRS is not defined, change it into rs. You also forgot a MoveNext.

VB Code:

Private Sub cmdLoadListView_Click()
Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT NAME FROM TBL1 "
rs.Open sSQL, db
Do Until [B]rs[/B].EOF
    Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
    [B]rs.MoveNext[/B]
Loop
rs.Close
Set rs = Nothing
End Sub

1 Attachment(s)

Re: List View Control

Quote:
Originally Posted by Frans C
I would advise you to use Option Explicit. You would have found your error easily. adoRS is not defined, change it into rs. You also forgot a MoveNext.
VB Code:
Private Sub cmdLoadListView_Click()
Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT NAME FROM TBL1 "
rs.Open sSQL, db
Do Until [B]rs[/B].EOF
    Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
    [B]rs.MoveNext[/B]
Loop
rs.Close
Set rs = Nothing
End Sub
It also does not work. Could you please check my project.

Please help.

Dec 21st, 2005, 04:31 AM
seema_s

Re: List View Control

Quote:

Originally Posted by seema_s

It also does not work. Could you please check my project.

Please help.

I need help but nobody seems to solve my problem.

seema_s
Dec 21st, 2005, 04:42 AM
Andrew G

Re: List View Control

Your code adds to the listview no problems. The only minor adjustment is that you forgot to add the button cmdLoadListView, so the add code never executes. Therefore add the button and call it cmdLoadListView and then click on it and it should work

Re: List View Control

try this..

VB Code:

Private Sub cmdLoadListView_Click()
Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT [NAME] FROM TBL1 "
rs.Open sSQL, db
Do Until rs.EOF
    Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub

Dec 21st, 2005, 05:15 AM
seema_s

Re: List View Control

Quote:

Originally Posted by yesfriends

try this..

This is also not working. But there is no error also. Simply the listview is empty.

Re: List View Control

hi create one command button name cmdLoadListView...at onclick event of this command button write below code..

VB Code:

Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT [NAME] FROM TBL1 "
rs.Open sSQL, db
Do Until rs.EOF
    Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Dec 21st, 2005, 05:50 AM
seema_s

Re: List View Control
Quote:
Originally Posted by yesfriends

hi create one command button name cmdLoadListView...at onclick event of this command button write below code..

VB Code:

Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT [NAME] FROM TBL1 "
rs.Open sSQL, db
Do Until rs.EOF
Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Yeah, it is working fine. But please let me know why can't we view the contents without using the commond button (like datagrid)?

How can I view it in a lvwReport view. I have modified LISTVIEW property to 3 lvwReoprt. But now I can not view any data?

Please help.
Dec 21st, 2005, 05:54 AM
Andrew G

Re: List View Control

Fine remove the command button but it should still work. What i wrote means that it will load the listview no matter what and it will also do it if you press the button, but you can remove the button and it should work
Dec 21st, 2005, 06:05 AM
seema_s

Re: List View Control

[/QUOTE]
then it runs when you open the form and when you click on the command button[/QUOTE]

I dont want to use commond button to view the listview. When I open the project it should show automatically all the data in a ListView (lvwReport view). Is it possible?

Re: List View Control

u write this code with form onload event....and when ur form will load then it automatically populate ur list view..

VB Code:

Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT [NAME] FROM TBL1 "
rs.Open sSQL, db
Do Until rs.EOF
    Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing

Dec 21st, 2005, 06:20 AM
seema_s

Re: List View Control

When I add the code to Form Load, It shows nothing. The following is the code:

Private Sub Form_Load()
Call data_connect
rs.Open "Select * from TBL1", db
Set DataGrid1.DataSource = rs
show_rec

Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT [NAME] FROM TBL1 "
rs.Open sSQL, db
Do Until rs.EOF
Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

End Sub
Dec 21st, 2005, 06:35 AM
Andrew G

Re: List View Control

Remove the button, my code will still work and show it on load.
Dec 21st, 2005, 07:05 AM
seema_s

Re: List View Control

Quote:

Originally Posted by Andrew G

Remove the button, my code will still work and show it on load.

Thanks, Andrew. It was not working because I modified its property to lvwReport. Now I removed it so it is working fine. But could you please for the following querries:

1. How can I view this list in Report View? I think I need to change the code for it.

2. When I click a name in the list it should show in a text box (eg. Text1.Text)

Could you please help me?

Seema_S
Dec 21st, 2005, 07:12 AM
Hack

Re: List View Control
Quote:

Originally Posted by seema_s

1. How can I view this list in Report View? I think I need to change the code for it.

lvwReport is the only way I ever use a ListView, and that code that I gave you came straight out of a working project.

Quote:

Originally Posted by seema_s

2. When I click a name in the list it should show in a text box (eg. Text1.Text)
VB Code:
```
Private Sub ListView1_Click()
Text1.Text = ListView1.SelectedItem.Text
End Sub
```

Re: List View Control

For the report view to work, you need to have at least one column. I've added the column through code, but i you wish to add more, change names etc, rightclick on the listview and goto column headers and change what you need. The following code should work. The parts in bold i have added

VB Code:

Private Sub Form_Load()
Call data_connect
rs.Open "Select * from TBL1", db
Set DataGrid1.DataSource = rs
[B]ListView1.ColumnHeaders.Add[/B]
show_rec
[B]ListView1.View = lvwReport[/B]
cmdLoadListView_Click
End Sub
 
Public Sub show_rec()
text1 = rs(0)
 
End Sub
 
Private Sub cmdLoadListView_Click()
Dim sSQL As String
Dim lvwItem As ListItem
Set rs = New ADODB.Recordset
sSQL = "SELECT NAME FROM TBL1 "
rs.Open sSQL, db
Do Until rs.EOF
    Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
    rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
[B]Private Sub ListView1_ItemClick(ByVal Item As ComctlLib.ListItem)
text1.Text = Item.Text
End Sub[/B]

Dec 21st, 2005, 08:06 AM
seema_s

Re: List View Control

Quote:

Originally Posted by Andrew G

For the report view to work, you need to have at least

It is marvellous. I have added one more column "CITY" and entered some data into it. But I can not view it. I know there is something to be written in the code but what exactly it should be I dont know.

Can I view the listview in grids as well? If yes, how can I?

Like lstview, I would like the datagrid selected data to be shown in the text box (eg. text2.text).

Sorry for bothering you. But I need help.

Seema_S
Dec 21st, 2005, 08:10 AM
Hack

Re: List View Control

If you want to view City, then you need to SELECT city, so add CITY to your SQL select statement which will put both NAME and CITY in your recordset.
Dec 21st, 2005, 08:14 AM
seema_s

Re: List View Control

Quote:

Originally Posted by Hack

If you want to view City, then you need to SELECT city, so add CITY to your SQL select statement which will put both NAME and CITY in your recordset.

The following is the code. But I dont know how to modify it.

Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
Dec 21st, 2005, 08:19 AM
Hack

Re: List View Control

Quote:

Originally Posted by seema_s

The following is the code. But I dont know how to modify it.

Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)

This is step number two. Have you modified your SQL call to get the CITY information?
Dec 21st, 2005, 08:47 AM
seema_s

Re: List View Control

Quote:

Originally Posted by Hack

This is step number two. Have you modified your SQL call to get the CITY information?

Mr. Hack, I dont know how to modify it.
Dec 21st, 2005, 08:48 AM
Hack

Re: List View Control
Here is your existing SQL statement
VB Code:
```
sSQL = "SELECT NAME FROM TBL1 "
```
To include gather CITY, change it to this
VB Code:
```
sSQL = "SELECT NAME, CITY FROM TBL1 "
```
Nothing else needs to be changed. Now, your recordset will contain two elements instead of just one.
Dec 21st, 2005, 08:55 AM
seema_s

Re: List View Control
Quote:
Originally Posted by Hack

Here is your existing SQL statement

VB Code:

sSQL = "SELECT NAME FROM TBL1 "

To include gather CITY, change it to this

VB Code:

sSQL = "SELECT NAME, CITY FROM TBL1 "

Nothing else needs to be changed. Now, your recordset will contain two elements instead of just one.
It does not work. I think the following code also to be modified:

rs.Open sSQL, db
Do Until rs.EOF
Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
rs.MoveNext
rs.Close
Set rs = Nothing
Loop
Dec 21st, 2005, 09:02 AM
Hack

Re: List View Control

Quote:

Originally Posted by seema_s

It does not work. I think the following code also to be modified:

rs.Open sSQL, db
Do Until rs.EOF
Set lvwItem = ListView1.ListItems.Add(, , rs.Fields.Item("Name").Value)
rs.MoveNext
rs.Close
Set rs = Nothing
Loop

Yes it does, but modifying it before you have your SQL statement correct and are returning the correct recordset will result in an error which is why I've not posted the necessary modifications yet.

Have you modified your SQL statement to include CITY? If so, have you run it and not gotten any errors?

We are taking this one step at a time.
Dec 21st, 2005, 09:05 AM
seema_s

Re: List View Control

Quote:

Originally Posted by Hack

Have you modified your SQL statement to include CITY? If so, have you run it and not gotten any errors?
We are taking this one step at a time.

I have modified the SQL statement but i could not get the data for CITY column.

Show 60 post(s) from this thread on one page

All times are GMT -5. The time now is 04:29 PM.