Ajouter des nouveaux éléments à la suite de ceux existants

Question

Bonjour tout le monde,

J'ai ce code qui me permet de remplir une liste avec les valeur d'un recordset :

Public Sub BDRemplirListe(ByVal sql As String, ByRef Liste As Control)
    Dim rsTable As recordset
    
    If (TypeOf Liste Is ListBox) Or (TypeOf Liste Is ComboBox) Then
        Set rsTable = BD.OpenRecordset(sql, dbOpenSnapshot)
        While Not rsTable.EOF
            Liste.AddItem rsTable(1)
            Liste.ItemData(Liste.NewIndex) = rsTable(0)
            rsTable.MoveNext
        Wend
    End If
End Sub

Je me demandais si il était possible de revenir dans ce code plus tard et d'ajouter dans la liste des nouveaux éléments sans supprimer ceux qui existent.

Il faudrait donc ajouter les nouveaux éléments en dessous de ceux existant.

Sauriez-vous me dire si cela est possible et comment faire ?

Merci d'avance pour l'aide et bon Dimanche.

beegeezzz

jmf0 · Answer

Bonjour,

explique-toi donc :
Dans la même session (et je ne vois pas alors où est le problème avec la méthode AddItem) ?
ou
- dans une session distincte (et il te faut alors stocker comme tu l'entends sur ton disque dur, avant fermeture de la session) de quoi reconstituer (par lecture préa   lable) les articles de ta lisbox avant d'en ajouter)
Veux-tu bien tenter d'être précis dans tes questions ?
Merci de commencer à le faire ....

beegeezzz · Answer

Bonjour et merci pour ta réponse.

Sincèrement désolé pour le manque de clareté dans ma question.

J'ai moi même du mal à comprendre.

J'ai finalement trouvé une solution pour charger les données dans la listbox.

Je te remercie encore et je te souhaite un bon Dimanche.

beegeezzzz

Ajouter des nouveaux éléments à la suite de ceux existants

2 réponses

Votre réponse

Discussions similaires