Hello post readers,

My problem is with a VB app that i am working on. The form has a Listview that brings up errors saying that there is no unique identifier, which is a result from the index key for the listview not being set. My boss has told me that he wants the recordset to have an incrementing value that can be used for the index.

My problem is that i have not got a clue.

I know there is prob a better and easier way to do this ie adjusting the stored proceudure but i got to do what the boss man says.

So how do i go about doing this. Code examples would be great.

example of how my app is laid out and where i need the code.

'***Recordset
rs = Recordset
(I need auto incrementing code here)
Listview, Recordset......

please not that the main thing that i am having trouble getting my head around is how do i go about adding my value to the end of the recordset.

ie. 1st record+1
2nd record+2
3rd record+3
And so on.....

I know i have rambled here and prob have confused you guys but i would greatly appreciate any help.

Thanks in advanced.

the only way the id would be useful is if it is contained within the database itself. If you give arbitrary auto-incremented numbers to your records, there is no use for them.

Otherwise simply iterate through the recordset using a do while not RS.EOF and increment a value and add it to your listview.

Chi

They mostly come at night...mostly.

Hi,

I think ur Boss has completed confused an already confused U. But don't worry friend, this has happened to me many times.

Forget about incrementing the Recordset from database...
U can do it easily from VB.

From what I understand, U are facing problem with the Listview Index.
'' Here is my Sample Code, Its not Copyrighted ;) so u can use it
'*****************************************
Dim SQL As String
Dim rs As New Recordset
Dim Litem As ListItem
'' Replace this with ur Query
SQL = "Select * from EMP"
'' Opening the Recordset
rs.Open SQL, DB, adOpenForwardOnly, adLockReadOnly
'' Check If records retrived?
If Not rs.EOF Then
'' Loop tilll END of FILE
Do While Not rs.EOF
'' Note: I m using ListView1.ListItems.Count to increment the Index
'' Use can Also use the PRIMARY KEY , if any, as an Index for the Listview
Set Litem = ListView1.ListItems.Add(ListView1.ListItems.Count + 1, "" & rs![PRIMARY_KEY_FIELD], "" & rs![TEXT_TO_BE DISPLAYED], "Someicon")
Litem.Tag = "" & rs![SOME_ADDITIONAL_INFO]
rs.MoveNext
Loop
End If
'' very Important ;)
rs.Close
Set rs = Nothing
'*****************************************

Hope this is what U wanted.
If not tell me. I wud love to help u.
All the Best

Samuel Roshan

Thanks guys, that was a great help.