devo prelevare i dati da un database tramite Ado solo che non riesco ad aggiungere le colonne all'oggetto listview e inserire i dati sotto le colonne corrispondenti:
nome cognome anni
fabio caio 21
giulio rossi 22
Set rs = New ADODB.Recordset
strSQL = "SELECT * " & _
"FROM T_Fatture"
rs.Open strSQL, conADO
Dim itmX As ListItem
With ListView1 --> ??
.ColumnHeaders.Clear
.ColumnHeaders.Add , , "Nome", 400
.ColumnHeaders.Add , , "Cognome", 1000
.ColumnHeaders.Add , , "Anni", 600
End With
Dim i As Integer
i = 0
Do Until rs.EOF
'non rieco a capire cosa serva questa istruzione (nn ho la msdn installata)
Set itmX = ListView1.ListItems.Add(, , CStr(rs("numfat")))
itmX.SubItems(1) = rs("nome")
itmX.SubItems(2) = rs("cognome")
itmX.SubItems(3) = rs("anni")
i = i + 1
rs.MoveNext
Loop
è giusto???????????????'
Rispondi quotando
