populating listitem in listview

Question

jemz -1 Master Poster

12 Years Ago

Hello,

Please help me, how can i populate or display my newly added list in the listview, if i will click my addbutton.can you please help me.

Thank you in advance and I am hoping for your positiver response.

visual-basic-6

3 Contributors
21 Replies
186 Views
1 Week Discussion Span
Latest Post 12 Years Ago Latest Post by Jx_Man

All 21 Replies

jlego 15 Posting Pro

12 Years Ago

do you have any code? how many sub items?

Edited 12 Years Ago by jlego because: i gave code for .net.

Jx_Man 987 Nearly a Senior Poster

12 Years Ago

Hello,

Please help me, how can i populate or display my newly added list in the listview, if i will click my addbutton.can you please help me.
Thank you in advance and I am hoping for your positiver response.

Hi,
Are you can display data on listview?
What database are you using?

Jx_Man 987 Nearly a Senior Poster

12 Years Ago

How far you doing this?
Post your code, we try to help :)

Jx_Man 987 Nearly a Senior Poster

12 Years Ago

You have procedure to display it..ColumnName..just call after insert data.

Private Sub cmdadd_Click()

 Dim lngId As Long
 
 lngId = GenNextID
  

 sql = "INSERT INTO Customer(id,Name,familyName,Address) VALUES('" & lngId & "','" & txtname & "', '" & txtfamilyname & "','" & txtaddress & "')"
 con.Execute sql

Call ColumnName(lvwIP, "Name", 40, "Family Name", 30, " Address", 40) ' Call here to update listview

End Sub

Jx_Man 987 Nearly a Senior Poster

12 Years Ago

Try this following code to display data from access :

Private Sub GetData(LSV As ListView)
Call ColumnName(lvwIP, "Name", 40, "Family Name", 30, " Address", 40)
            
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * from Customer", Con, adOpenStatic, adLockOptimistic
    
    LSV.ListItems.Clear
    
    While Not rs.EOF
        Set View = LSV.ListItems.Add
        View.Text = rs!Name
        View.SubItems(1) = rs!familyName
        View.SubItems(2) = rs!Address
       
        rs.MoveNext
    Wend
    rs.Close
    
End Sub

Call GetData after insert data :

Private Sub cmdadd_Click()

 Dim lngId As Long
 
 lngId = GenNextID
  

 sql = "INSERT INTO Customer(id,Name,familyName,Address) VALUES('" & lngId & "','" & txtname & "', '" & txtfamilyname & "','" & txtaddress & "')"
 con.Execute sql

GetData lvwIP ' Call here to update listview

End Sub

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

jemz -1 Master Poster · Answer 1 · 2011-04-29T08:39:17+00:00

Hi,
Are you can display data on listview?
What database are you using?

hello sir thank you for the reply,I'm using ms access.Please help me sir thank you in advance and I am hoping for your positive response.

jemz -1 Master Poster · Answer 2 · 2011-04-29T08:42:04+00:00

do you have any code? how many sub items?

Hi sir, I have 3 column headers only and i am using the ms access.can you help me please.

Thank you in advance and I am hoping for your positive response.

jemz -1 Master Poster · Answer 3 · 2011-04-29T14:44:32+00:00

How far you doing this?
Post your code, we try to help :)

Hello sir here is my code, My problem is that i don't know how to display in the listview after i clicked the add button.can you help me please thank you in advance and I am hoping for your positive response.

Private Sub cmdadd_Click()

 Dim lngId As Long
 
 lngId = GenNextID
  

 sql = "INSERT INTO Customer(id,Name,familyName,Address) VALUES('" & lngId & "','" & txtname & "', '" & txtfamilyname & "','" & txtaddress & "')"
 con.Execute sql
 

End Sub

Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub Form_Load()
 ConnectToDB
 Call ColumnName(lvwIP, "Name", 40, "Family Name", 30, " Address", 40)
End Sub
Private Sub ColumnName(LSV As listview, ParamArray listview())
 Dim i, width
 
 LSV.View = lvwReport
 
 width = LSV.width - 80
 
 With LSV.ColumnHeaders
   .Clear
   
   For i = 0 To UBound(listview) - 1 Step 2
    .Add , , listview(i), (listview(i + 1) * width) / 100
    Next i
   End With
   
End Sub
Public Function GenNextID() As Long

sql = "select max(gen_id)as MaxID from Customer"
Set ip_rs = New adodb.Recordset
ip_rs.Open sql, con, adOpenDynamic, adLockPessimistic


If ip_rs.EOF Then
  GenNextID = 1
  ElseIf IsNull(ip_rs!MaxID) Then
    GenNextID = 1
Else
 GenNextID = ip_rs!MaxID + 1
End If

ip_rs.Close

End Function

jemz -1 Master Poster · Answer 4 · 2011-04-29T15:40:40+00:00

You have procedure to display it..ColumnName..just call after insert data.

Private Sub cmdadd_Click()

 Dim lngId As Long
 
 lngId = GenNextID
  

 sql = "INSERT INTO Customer(id,Name,familyName,Address) VALUES('" & lngId & "','" & txtname & "', '" & txtfamilyname & "','" & txtaddress & "')"
 con.Execute sql

Call ColumnName(lvwIP, "Name", 40, "Family Name", 30, " Address", 40) ' Call here to update listview
End Sub

hello sir thank you for the reply. Sir I am confuse I don't know how to Display in the listview sir.Can you help me please.

Thank you in advance hoping for your positive response.

jemz -1 Master Poster · Answer 5 · 2011-04-29T20:40:28+00:00

Try this following code to display data from access :

Private Sub GetData(LSV As ListView)
Call ColumnName(lvwIP, "Name", 40, "Family Name", 30, " Address", 40)
            
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * from Customer", Con, adOpenStatic, adLockOptimistic
    
    LSV.ListItems.Clear
    
    While Not rs.EOF
        Set View = LSV.ListItems.Add
        View.Text = rs!Name
        View.SubItems(1) = rs!familyName
        View.SubItems(2) = rs!Address
       
        rs.MoveNext
    Wend
    rs.Close
    
End Sub

Call GetData after insert data :

Private Sub cmdadd_Click()

 Dim lngId As Long
 
 lngId = GenNextID
  

 sql = "INSERT INTO Customer(id,Name,familyName,Address) VALUES('" & lngId & "','" & txtname & "', '" & txtfamilyname & "','" & txtaddress & "')"
 con.Execute sql

GetData lvwIP ' Call here to update listview

End Sub

hello sir, i have problem it get an error "variable not define" (View)

The view sir will get an error.Please help me sir.

Thank you in advance and I am hoping for your positive response.

Jx_Man 987 Nearly a Senior Poster Featured Poster · Answer 6 · 2011-04-30T03:35:34+00:00

Sorry for that, my Bad.
Declare view as list item :

Dim view As ListItem

jemz -1 Master Poster · Answer 7 · 2011-04-30T08:20:01+00:00

Sorry for that, my Bad.
Declare view as list item :
Dim view As ListItem

Hello sir, It works thank you for this.by the way sir.why is that you use adOpenstatic?
Please help me sir to enligthen my mind.

Thank you in advance hoping for your positive response.

Jx_Man 987 Nearly a Senior Poster Featured Poster · Answer 8 · 2011-04-30T08:49:34+00:00

see this site for adOpenstatic explaination
Don't Forget to mark this thread as solved :)

jemz -1 Master Poster · Answer 9 · 2011-04-30T09:25:17+00:00

see this site for adOpenstatic explaination
Don't Forget to mark this thread as solved :)

yeah Thank you so much sir.Thank you also for the links.

jemz -1 Master Poster · Answer 10 · 2011-05-08T19:45:13+00:00

Try this following code to display data from access :

Private Sub GetData(LSV As ListView)
Call ColumnName(lvwIP, "Name", 40, "Family Name", 30, " Address", 40)
            
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * from Customer", Con, adOpenStatic, adLockOptimistic
    
    LSV.ListItems.Clear
    
    While Not rs.EOF
        Set View = LSV.ListItems.Add
        View.Text = rs!Name
        View.SubItems(1) = rs!familyName
        View.SubItems(2) = rs!Address
       
        rs.MoveNext
    Wend
    rs.Close
    
End Sub

Call GetData after insert data :

Private Sub cmdadd_Click()

 Dim lngId As Long
 
 lngId = GenNextID
  

 sql = "INSERT INTO Customer(id,Name,familyName,Address) VALUES('" & lngId & "','" & txtname & "', '" & txtfamilyname & "','" & txtaddress & "')"
 con.Execute sql

GetData lvwIP ' Call here to update listview

End Sub

Hi sir, I forgot to ask with you this.what if sir i have millions of data. Does my program become slow?because it will display the whole data in my listview.please help me sir i am confuse.

thank you in advance and I am hoping for your positive response

jemz -1 Master Poster · Answer 11 · 2011-05-10T15:30:48+00:00

Try this following code to display data from access :

Private Sub GetData(LSV As ListView)
Call ColumnName(lvwIP, "Name", 40, "Family Name", 30, " Address", 40)
            
    Set rs = New ADODB.Recordset
    rs.Open "SELECT * from Customer", Con, adOpenStatic, adLockOptimistic
    
    LSV.ListItems.Clear
    
    While Not rs.EOF
        Set View = LSV.ListItems.Add
        View.Text = rs!Name
        View.SubItems(1) = rs!familyName
        View.SubItems(2) = rs!Address
       
        rs.MoveNext
    Wend
    rs.Close
    
End Sub

Call GetData after insert data :

Private Sub cmdadd_Click()

 Dim lngId As Long
 
 lngId = GenNextID
  

 sql = "INSERT INTO Customer(id,Name,familyName,Address) VALUES('" & lngId & "','" & txtname & "', '" & txtfamilyname & "','" & txtaddress & "')"
 con.Execute sql

GetData lvwIP ' Call here to update listview

End Sub

Hello sir.I returned back with this thread because there is something bothering in my mind and i am confuse with the code sir.My question is that, is this code safe for millions of data and then loading it in my listview.can you please help me to enligthen my mind sir.please...thank you in advance and i'm hoping for your positive response.

Jx_Man 987 Nearly a Senior Poster Featured Poster · Answer 12 · 2011-05-10T22:47:54+00:00

My question is that, is this code safe for millions of data and then loading it in my listview.

I think the code is safe.
But it consume many times to load a millions data.
I think its not good to displaying all entire data in one time.

jemz -1 Master Poster · Answer 13 · 2011-05-11T06:31:51+00:00

I think the code is safe.
But it consume many times to load a millions data.
I think its not good to displaying all entire data in one time.

Hi sir thank you for the reply, sir can you please help me what should i do.What is the best thing to do if i have millions of data.please help me sir.Thank you in advance and i am hoping for your positive response.

Jx_Man 987 Nearly a Senior Poster Featured Poster · Answer 14 · 2011-05-11T08:03:33+00:00

What is the best thing to do if i have millions of data.please help me sir

Don't display the entire data but display it separately.
You can use navigate button..
I recommended you to make a new spesific thread to asking about displaying a millions data. There are many members will give a good answer.

jemz -1 Master Poster · Answer 15 · 2011-05-11T10:18:49+00:00

Don't display the entire data but display it separately.
You can use navigate button..
I recommended you to make a new spesific thread to asking about displaying a millions data. There are many members will give a good answer.

hello sir thank you for the reply...okay sir,i already posted the thread please help me on this.here is the link

http://www.daniweb.com/software-development/visual-basic-4-5-6/threads/363681

Thank you in advance and i am hoping for your positive response.

Jx_Man 987 Nearly a Senior Poster Featured Poster · Answer 16 · 2011-05-12T02:04:57+00:00

Okay.
And if this thread already done then please mark it as solved.
Thank you.

populating listitem in listview

Recommended Answers Collapse Answers

All 21 Replies

Recommended Answers