For Loop VB6 Double Entry Malfunction.

Question

0.00/5 (No votes)

See more:

Hi Experts. I dont know wats wrong with the loop below. But when i call this function its supposed to insert the records in a listbox into a db access db table. but it saves the first record twice. Wat could i be doing wrong?
e.g
Product Code
124318N Mkate
124318N Mkate
141652G Rice

Sub AddToList()
With dbData.Recordset
For i = 1 To lvprod.ListItems.Count
 .AddNew
    .Fields(0) = lvprod.ListItems(i).Text 'prod code
    .Fields(1) = lvprod.ListItems(i).SubItems(2)
    .Fields(2) = txtPrice.Text  'price
    .Fields(3) = lvprod.ListItems(i).SubItems(1) 'qty
    .Fields(4) = 0
    .Fields(5) = lvprod.ListItems(i).SubItems(4)
    .Fields(6) = Month(Now)
    .Fields(7) = Year(Now)
    .Update
    Next i
dbData.Refresh
End With
    End Sub

Posted 18-Jun-11 2:24am

Patoh58

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Dr.Walt Fair, PE · Answer 1 · 2011-06-18T07:58:00

Solution 1

I'm not sure this helps, but why are you using For i = 1 To lvprod.ListItems.Count? Aren't Lists zero based in VB? If so, I'd change it to For i = 0 To lvprod.ListItems.Count - 1, then step through the code in the debugger to see where it's getting something wrong.

Posted 18-Jun-11 7:58am

Dr.Walt Fair, PE

Comments

Patoh58 19-Jun-11 14:20pm

Thanx walt.. But that produced an error.. I used the For i = 1 To lvprod.ListItems.Count to point to the first record in the listbox to the number of records the listbox has.