Putting Listitems from a listview into a database table?

[Spawny]

Hi,

I am in need of information on how to arrange the listitems in a listview to be automatically added into a table in a database. I have the following code but get an error back of Out Of Bounds.

Code:

Dim myRs As Recordset, i As Integer

Set myRs = pDatabase.OpenRecordset("Temp", dbOpenTable)


myRs.AddNew
myRs!RDate = LsvWDetails.ListItems.Item(1)
myRs!RLKnee = LsvWDetails.ListItems.Item(2)
myRs!RRKnee = LsvWDetails.ListItems.Item(3)
myRs!RLThigh = LsvWDetails.ListItems.Item(4)
myRs!RRThigh = LsvWDetails.ListItems.Item(5)
myRs!RBust = LsvWDetails.ListItems.Item(6)
myRs!RPlus = LsvWDetails.ListItems.Item(7)
myRs.Update
myRs.Close


Now I get the Out of bounds code on item(2) - (7). Any ideas on how to change this so it will work will be greatly appreciated and Thanks in advance for any help.

Mike

ps: sorry stevie i took out the for loop

[Edited by Spawny on 04-05-2000 at 07:50 AM]

[Stevie]

I may be wrong about this (at home now and VB at work), but I think you should be referencing the subitems not items.
Something along the lines of :



Dim myRs As Recordset, i As Integer

Set myRs = pDatabase.OpenRecordset("Temp", dbOpenTable)

For i = 1 To LsvWDetails.ListItems.Count
myRs.AddNew

myRs!RDate = LsvWDetails.ListItems.Item(1)
myRs!RLKnee = LsvWDetails.ListItems.Item.Subitems(1)
myRs!RRKnee = LsvWDetails.ListItems.Item.Subitems(2)
myRs!RLThigh = LsvWDetails.ListItems.Item.Subitems(3)
myRs!RRThigh = LsvWDetails.ListItems.Item.Subitems(4)
myRs!RBust = LsvWDetails.ListItems.Item.Subitems(5)
myRs!RPlus = LsvWDetails.ListItems.Item.Subitems(6)

myRs.Update
myRs.Close
Next



Hope this helps (and is correct!!) :)

[Spawny]

hey Stevie,

Thanks that was very close i had to just add in this so it worked:

myRs!RComments = LsvWDetails.ListItems(1).SubItems(1)

thanx for your help

[Edited by Spawny on 04-06-2000 at 07:24 AM]