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

Question

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

cs_EXCLUSIF · Accepted Answer

C'était pas le bon composant ListView, du moins pas la bonne version ;)

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

1 réponse

Votre réponse

Discussions similaires