[VB6] ListView

[Mocchi]

La libreria di ADO è: "Microsoft ADO Ext.2.7 for DDL and Security" ???
Perchè di ADO non ho nient'altro....

[ladyBlu]

Originariamente inviato da Mocchi
La libreria di ADO è: "Microsoft ADO Ext.2.7 for DDL and Security" ???
Perchè di ADO non ho nient'altro....

no, devi usare questa:
"Microsoft ActiveX Data Objects 2.7 Library"
o uguali a questa ma con versione inferiore, tipo 2.6 o 2.5, ecc...

[Mocchi]

ok, ho inserito la Microsoft ActiveX Data Objects 2.7 Library,
ma adesso mi da ancora quell'errore di "Method or data member not found" sulla stessa riga:

liS.ListSubItems.Add , , rs(1) & ""

.....

[ladyBlu]

Originariamente inviato da Mocchi
ok, ho inserito la Microsoft ActiveX Data Objects 2.7 Library,
ma adesso mi da ancora quell'errore di "Method or data member not found" sulla stessa riga
.....

modifica così la parte del ciclo, da " 'Azzero la lista dei record":

 'Azzero la lista dei record   
 ListView1.ListItems.Clear
 ListView1.ListSubItems.Clear

 Dim liS As ListItem

  Do While Not rs.EOF
            
     Set liS = ListView1.ListItems.Add(, rs(0) & "XXX", rs(0) & "")
     'Per assegnare la key (la metto al primo campo (ID))      
      liS.Tag = rs(0)

      liS.ListSubItems.Add , , rs(1) & ""
      liS.ListSubItems.Add , , rs(2) & ""
      liS.ListSubItems.Add , , rs(3) & ""
      liS.ListSubItems.Add , , rs(4) & ""
      liS.ListSubItems.Add , , rs(5) & ""
      liS.ListSubItems.Add , , rs(6) & ""
      
      rs.MoveNext
   Loop
...

[Mocchi]

No, mi da lo stesso tipo di errore sul ".ListSubItems" della riga

ListView1.ListSubItems.Clear

........

[ladyBlu]

Originariamente inviato da Mocchi
No, mi da lo stesso tipo di errore sul ".ListSubItems" della riga

ListView1.ListSubItems.Clear

........

toglila un po' sta riga...:master:

[Mocchi]

Se la tolgo mi da lo stesso errore ma sulla variabile rs dell'altra riga:

liS.ListSubItems.Add , , rs(1) & ""

da: 'Azzero la lista dei record

'Azzero la lista dei record
    ListView1.ListItems.Clear
   
  Do While Not rs.EOF
            
     Set liS = ListView1.ListItems.Add(, rs(0) & "XXX", rs(0) & "")
     'Per assegnare la key (la metto al primo campo (ID))
      liS.Tag = rs(0)

      liS.ListSubItems.Add , , rs(1) & ""
      liS.ListSubItems.Add , , rs(2) & ""
      liS.ListSubItems.Add , , rs(3) & ""
      liS.ListSubItems.Add , , rs(4) & ""
      liS.ListSubItems.Add , , rs(5) & ""
      liS.ListSubItems.Add , , rs(6) & ""
      
      rs.MoveNext
   Loop
   ......

[ladyBlu]

non vedo la Dim del ListItem :master:
l'hai messa come ti avevo detto prima?
modifica così la parte del ciclo, da " 'Azzero la lista dei record":

...
 'Azzero la lista dei record   
 ListView1.ListItems.Clear

 Dim liS As ListItem

  Do While Not rs.EOF
...

[Mocchi]

La Dim del ListItem ce l'avevo già tra le dichiarazioni delle variabili, e comunque ho sempre lo stesso messaggio di errore!
Non capisco proprio il perchè! Sembra che non riconosca il recordset rs! Eppure l'ho dichiarato!

[ladyBlu]

oh signore mio... ma come cavolo è possibile.
ci lavoro da secoli con la listview e non ho mai avuto problemi del genere.
:master: :master: :master: