Listview avec ado

Question

salut,
J'ai un probléme avec listview ce message s'affiche lors de l'execution "type incompatible" dans la ligne qui contient le (set) et je sais pas pourquoi?
voiçi mon code 

Dim s As ListItem

Private Sub Combsem_Click()
rs.Open "SELECT Enseignant.cin, Affectation.naff, Affectation.jour, Affectation.codsem, Affectation.hrdeb, Affectation.hrfin, Affectation.ng, Affectation.salle, Affectation.val FROM Enseignant INNER JOIN Affectation ON Enseignant.cin = Affectation.cin WHERE ((Enseignant.cin= '" & Txtcin & "') AND (Affectation.codsem = '" & Combsem & "') AND (Affectation.val=False))", Cn, adOpenDynamic
rs.Requery
If rs.EOF = False Then
Do
Set s = ListV.ListItems.Add(, , rs("naff"))
s.SubItems(1) = rs("jour")
s.SubItems(2) = rs("hrdeb")
s.SubItems(3) = rs("hrfin")
s.SubItems(4) = rs("ng")
s.SubItems(5) = rs("salle")

rs.MoveNext
Loop Until rs.EOF
End If
Set rs = Nothing
End Sub
Le Combsem est un combo qui contient des semestre lorsque je clique dedant ça doit m'afficher tout les affectations qui ont eu lieu dans ce semestre
merci d'avance

cs_CanisLupus · Answer

Salut,

rs("naff") ne contiendrait-il pas une valeur nulle ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

kokise · Answer

non rs("naff") est un num&#233;ro auto je l'ai utilis&#233; comme cl&#233; parcequ'il n'a pas de doublant

cs_CanisLupus · Answer

Tu as v&#233;rifi&#233; en debug la valeur de rs("naff") &#224; chaque ajout dans la lvw ?
Je fais grosso modo comme toi pour remplir une lvw et je n'ai pas ce probl&#232;me. 
Quand je dis grosso modo, je ne met pas la ligne :
rs.Requery
Sinon, je ne vois pas car ton message voudrait dire que tu essaies de metre du null dans la lvw qui le refuse.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

kokise · Answer

rs.requery sert a raffraichir la recordset et j'essaye de remplire ma liste a partir de la requete, la requete est juste quand j'execute pas &#224; pas et que j'arrive au debug je mets le curseur sur le rs("naff") &#231;a m'affiche la valeur exacte mais le msg s'affiche tjr "type incompatible" 
quand je l'essaye sans tenir en compte la recordset c &#224; d sans utilis&#233; la recordset sa marche mais d&#233;s que je travaille avec &#231;a debug merci

cs_CanisLupus · Answer

Ben l&#224;, c'est une sacr&#233; colle !
J'ai essay&#233; pas mal de choses, (en vb6), et je n'ai pas r&#233;ussi &#224; reproduire l'affichage du msg "type incompatible" avec Set s = ListV.ListItems.Add(, , rs("naff")). Plein d'autres du genre "mauvaise utilisation de null" ou "erreur de compilation...", etc ... mais pas celle-l&#224;.
Tout le code que tu as pr&#233;sent&#233; en exemple se trouve bien dans la m&#234;me form ? Et ton composant pour la listview est bien "Microsoft Windows Controls 6.0 (SP6)" ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

kokise · Answer

En tout cas merci je crois qu'il y a bcp d'autre controle et je pense que je m'ensort tr&#233;s bien avec une flexgrid encore merci de ton aide

Listview avec ado

6 réponses

Discussions similaires