[VB6][Listview] Erreur type '13' lors du chargement de la ListView depuis BDD [Résolu]

Signaler
Messages postés
59
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
9 août 2007
-
Messages postés
59
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
9 août 2007
-
Bonsoir à tous,


J'ai un souci avec une procédure qui fonctionne très bien dans un de
mes autres programmes. J'en ai fait un copier/coller et je l'ai
légèrement modifié pour l'adapter à la base de données de cette
nouvelle appli mais lors du chargement de la listview j'ai une erreur
de type '13' et je ne trouve pas d'où elle peut provenir. Je vous
demande donc de l'aide pour m'aider à la résoudre.


Voici mon code :


IdAgenda est un long

DateAgenda est un DateTime

NomMomentAgenda et NomTypeAgenda sont des strings

PublicSub ChargementListeAgenda()
'fonction de rafraichissement de la liste des dates
Dim SQL AsString
Dim ObjListe As ListItem
 
'j'efface le contenu de la listview
FrmAgenda.LstAgenda.ListItems.Clear
FrmAgenda.LstAgenda.ColumnHeaders.Clear
FrmAgenda.LstAgenda.ColumnHeaders.Add , , "Date", 900
FrmAgenda.LstAgenda.ColumnHeaders.Add , , "Moment", 900
FrmAgenda.LstAgenda.ColumnHeaders.Add , , "Evènement", 2880
FrmAgenda.LstAgenda.View = lvwReport
 
'SQl = "SELECT * FROM T_Agenda WHERE IdUtilisateur=" & Trim(Form1.Text2.Text)
SQL = "SELECT T_Agenda.IdAgenda, T_Agenda.DateAgenda, T_Agenda.MomentAgenda, T_Agenda.TypeAgenda, T_Agenda.InvitationAgenda, T_Agenda.IdUtilisateur, T_MomentAgenda.NomMomentAgenda, T_TypeAgenda.NomTypeAgenda" & _" FROM T_TypeAgenda INNER JOIN (T_MomentAgenda INNER JOIN T_Agenda ON T_MomentAgenda.IdMomentAgenda T_Agenda.MomentAgenda) ON T_TypeAgenda.IdTypeAgenda T_Agenda.TypeAgenda" & _
" WHERE T_Agenda.IdUtilisateur=" & Trim(Form1.Text2.Text)
 
'je charge le contenu de la listview
rs.Open SQL, db, adOpenKeyset, adLockOptimisticIf rs.BOF FalseAnd rs.EOF FalseThen
'Ajout des résultats dans la liste
rs.MoveFirst
WhileNot rs.EOF
Set ObjListe = FrmAgenda.LstAgenda.ListItems.Add'<-- C'est ici que se produit l'erreur
ObjListe.Key = "A" & rs!IdAgenda
ObjListe.Text = Str(rs!DateAgenda)
' ObjListe.ForeColor = vbBlue
' ObjListe.Bold = True
ObjListe.SubItems(1) = rs!NomMomentAgenda
ObjListe.SubItems(2) = rs!NomTypeAgenda
' ObjListe.ToolTipText = ""
rs.MoveNext
Wend
EndIf
rs.Close
 
EndSub


Merci à tous,


Ludo

1 réponse

Messages postés
59
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
9 août 2007
1
C'était pas le bon composant ListView, du moins pas la bonne version ;)