Discussion :

[sauce31]

Bonjour,

Je veux remplir une listbox pour pouvoir faire plusieurs sélections. J'ai donc mis selectionMode à MultiExtended mais il ne m'affiche que le dernier élément.

Or, si je mets selectionMode à One, il me les affiches tous.

Savez-vous pourquoi?

Merci beaucoup

[Pol63]

faudrait préciser comment tu remplies le listbox

[sauce31]

Désolé pour le retard.

Mon code est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
requete1 = "select * from Employes "
rs1 = base.OpenRecordset(requete1, DAO.RecordsetTypeEnum.dbOpenDynaset)
If rs1.EOF = False Then
       rs1.MoveFirst()
       While rs1.EOF = False
               valeur = rs1.Fields("nomEmp").Value & Space(11 - Len(rs1.Fields("nomEmp").Value)) & rs1.Fields("prenomEmp").Value
                LS_EmpPro.Items.Add(valeur)
                rs1.MoveNext()
 
        End While
        rs1.Close()
 End If

[Pol63]

essaye de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
valeur = rs1.Fields("nomEmp").Value & Space(11 - Len(rs1.Fields("nomEmp").Value)) & rs1.Fields("prenomEmp").Value
LS_EmpPro.Items.Add(valeur)

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LS_EmpPro.Items.Add(rs1.Fields("nomEmp").Value & Space(11 - Len(rs1.Fields("nomEmp").Value)) & rs1.Fields("prenomEmp").Value)

comme tu peux le voir, le forum permet de mettre en page le code automatiquement via la balise code (bouton "#" quand on écrit un message)



sinon pourquoi utilises les recordset de vb6 alors que .net a ses propres objet de connexion aux bases de données ?

[sauce31]

Bonjour,

Ton code revient au même donc ça n'a évidemment pas changé.

ET comment faire sinon pour connecté la base?

[Pol63]

http://plasserre.developpez.com/cours/vb-net/