How do i get all of the data out of a listview?

[scruffybear]

Hi,
i have a listview that the user adds data to, after they have finished i want them to click a button and save the contents of the listview into a database.
Any ideas?
Here is my code so far, but i get an error when executing it (Argument not optional)

For i = 1 To ListView1.ListItems.Count Step 1
With namesrs
.AddNew
!names_id = Nbooking_id + 1
!booking_id = Nbooking_id
!Name = ListView1.ListItems.Item.Text
!Ins_A = ListView1.ListItems(i).ListSubItems.Item.Text
!Ins_C = ListView1.ListItems(i).ListSubItems.Item.Text
!Ins_S = ListView1.ListItems(i).ListSubItems.Item.Text
!Ins_X = ListView1.ListItems(i).ListSubItems.Item.Text
!Coach = ListView1.ListItems(i).ListSubItems.Item.Text
!Air = ListView1.ListItems(i).ListSubItems.Item.Text
!Train = ListView1.ListItems(i).ListSubItems.Item.Text
!Other = ListView1.ListItems(i).ListSubItems.Item.Text
!Type = ListView1.ListItems(i).ListSubItems.Item.Text
!Room = ListView1.ListItems(i).ListSubItems.Item.Text
!Ski = ListView1.ListItems(i).ListSubItems.Item.Text
!Board = ListView1.ListItems(i).ListSubItems.Item.Text
!Boots = ListView1.ListItems(i).ListSubItems.Item.Text
!Pass = ListView1.ListItems(i).ListSubItems.Item.Text
!Upgrade = ListView1.ListItems(i).ListSubItems.Item.Text
.Update
End With
Next

[bpd]

You're missing the index of the Item

This: ListView1.ListItems(i).ListSubItems.Item.Text
Becomes: ListView1.ListItems(i).ListSubItems.Item(1).Text
-or- ListView1.ListItems(i).ListSubItems(1).Text

[scruffybear]

Hi,
that sorted that problem out, brilliant!

I now have another problem, when i already have a record in the table and try to add more records from the listview i only end up with the last one, here is my code at present, can anyone see where i am going wrong?

'ammend existing data
For i = 1 To ListView1.ListItems.Count Step 1
With namesrs
.Edit
!names_id = Nbooking_id + 1
!booking_id = Nbooking_id
!Name = ListView1.ListItems(i).Text
If ListView1.ListItems(i).ListSubItems(1) = "" Then
ListView1.ListItems(i).ListSubItems(1).Text = " "
End If
!Ins_A = ListView1.ListItems(i).ListSubItems(1)
If ListView1.ListItems(i).ListSubItems(2) = "" Then
ListView1.ListItems(i).ListSubItems(2).Text = " "
End If
!Ins_C = ListView1.ListItems(i).ListSubItems(2)
If ListView1.ListItems(i).ListSubItems(3) = "" Then
ListView1.ListItems(i).ListSubItems(3).Text = " "
End If
!Ins_S = ListView1.ListItems(i).ListSubItems(3)
If ListView1.ListItems(i).ListSubItems(4) = "" Then
ListView1.ListItems(i).ListSubItems(4).Text = " "
End If
!Ins_X = ListView1.ListItems(i).ListSubItems(4)
If ListView1.ListItems(i).ListSubItems(5) = "" Then
ListView1.ListItems(i).ListSubItems(5).Text = " "
End If
!Coach = ListView1.ListItems(i).ListSubItems(5)
If ListView1.ListItems(i).ListSubItems(6) = "" Then
ListView1.ListItems(i).ListSubItems(6).Text = " "
End If
!Air = ListView1.ListItems(i).ListSubItems(6)
If ListView1.ListItems(i).ListSubItems(7) = "" Then
ListView1.ListItems(i).ListSubItems(7).Text = " "
End If
!Train = ListView1.ListItems(i).ListSubItems(7)
If ListView1.ListItems(i).ListSubItems(8) = "" Then
ListView1.ListItems(i).ListSubItems(8).Text = " "
End If
!Other = ListView1.ListItems(i).ListSubItems(8)
If ListView1.ListItems(i).ListSubItems(9) = "" Then
ListView1.ListItems(i).ListSubItems(9).Text = " "
End If
!Type = ListView1.ListItems(i).ListSubItems(9)
If ListView1.ListItems(i).ListSubItems(10) = "" Then
ListView1.ListItems(i).ListSubItems(10).Text = " "
End If
!Room = ListView1.ListItems(i).ListSubItems(10)
If ListView1.ListItems(i).ListSubItems(11) = "" Then
ListView1.ListItems(i).ListSubItems(11).Text = " "
End If
!Ski = ListView1.ListItems(i).ListSubItems(11)
If ListView1.ListItems(i).ListSubItems(12) = "" Then
ListView1.ListItems(i).ListSubItems(12).Text = " "
End If
!Board = ListView1.ListItems(i).ListSubItems(12)
If ListView1.ListItems(i).ListSubItems(13) = "" Then
ListView1.ListItems(i).ListSubItems(13).Text = " "
End If
!Boots = ListView1.ListItems(i).ListSubItems(13)
If ListView1.ListItems(i).ListSubItems(14) = "" Then
ListView1.ListItems(i).ListSubItems(14).Text = " "
End If
!Pass = ListView1.ListItems(i).ListSubItems(14)
If ListView1.ListItems(i).ListSubItems(15) = "" Then
ListView1.ListItems(i).ListSubItems(15).Text = " "
End If
!Upgrade = ListView1.ListItems(i).ListSubItems(15)
.Update
End With
Next

[Habibi]

Dude, you are doing the things is too complicated for nothing by typing the whole Field names.

Just check if it's not null then add your column in to the ColumnHeadr of the ListView.

If Not IsNull(!UserName) then
Subitem(1) = (!UserName)
End if

Above that you have to declare a variable for your SubItems.

Public ITM as ListItem

It will list the whole content of your Field into the ListView.
Once the data been populated then, by creating a text Box and adding into the ListView it will be much easier to add to the database that value as well.

Doing Two Job @ One Time. Adding to the ListView as well as to the Database.

 This is your thread in the Database Section.
http://www.vbforums.com/showthread.php?t=316297