[VB6] Recupero dati e inserimento in ListView con lo stesso ordine

[fradipa]

Salve a tutti,
devo fare un'applicazione che carica i dati da un db (sono riuscito a recuperarli) e li inserisce in una listview (eccallà!). Il problema è che non riesco ad inserirli con lo stesso ordine col quale appaiono sul db (vengono inseriti gli elementi ad catzum!!); vorrei quindi trovare un modo per associare ad ogni colonna del db una colonna della listview! mi potete aiutare?!!
Vi posto il frammento codice in questione :



rsElementi.Open "SELECT * FROM tabella", gConnection, adOpenDynamic, adLockOptimistic, adCmdText
Dim i As Integer
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
i = 0
While rsElementi.EOF = False

While i < 12 'sono 13 le colonne di interesse
ListView1.ListItems.Add , , rsElementi.Fields(i).Value
i = i + 1
Wend

rsElementi.MoveNext
i = 0
Wend


Grazie

[Boolean]

prova questa Sub...

Sub PopolaLVW(LVW As ListView, RS As Recordset)
Dim itmX As ListItem
Dim iC As Integer, K As Integer

LVW.ColumnHeaders.Clear
LVW.ListItems.Clear
LVW.View = lvwReport
For K = 0 To RS.Fields.Count - 1
    LVW.ColumnHeaders.Add , , RS.Fields(K).Name
Next

RS.MoveFirst
Do While Not RS.EOF
    For iC = 0 To RS.Fields.Count - 1
        If iC < 1 Then
            Set itmX = LVW.ListItems.Add(, , RS.Fields(iC).Value)
        Else
            itmX.SubItems(iC) = RS.Fields(iC).Value
        End If
    Next iC
    r.MoveNext
Loop

Set itmX = Nothing

End Sub

una volta aperto il recordset, passi alla routine, come argomenti, il nome della ListView da popolare, e il recordset con cui andrà popolata:

PopolaLVW ListView1, rsElementi

Boolean

[fradipa]

Grande Bool!! Grazie