troubleshooting Question

VB6 Save multi selected listbox items to database

Avatar of KimD2
KimD2 asked on
Visual Basic Classic
8 Comments1 Solution2650 ViewsLast Modified:
Hello,  I am trying to save all items in a multi selected listbox to a temporary table.  The code below creates the correct number of records but repeats the same data on each line.  What changes should I make to advance through the listbox and save each selected record?  I am using Visual Basic 6 and MS Access 2003.

Dim i As Integer
          For i = lstSelEmp.ListCount - 1 To 0 Step -1
            rstMessages.AddNew
                rstMessages("PersID") = lstSelEmp.ItemData(lstSelEmp.ListIndex)
                rstMessages("Message") = Me.txtMessage.Text
           rstMessages.Update
          Next

Thanks so much.  Kim
ASKER CERTIFIED SOLUTION
3_S

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 1 Answer and 8 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 1 Answer and 8 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros