Ajouter nom de colonne ListBox depuis un RecordSet

Version imprimable

15/02/2016, 14h26
Amiral62

1 pièce(s) jointe(s)

Ajouter nom de colonne ListBox depuis un RecordSet

Bonjour,
Le but de mon programme est d'afficher une liste d'utilisateurs depuis une requêtes SQL (Serveur Oracle 11GR2)
Sur ce point, aucun problème j’exécute ma requête, elle s'affiche bien dans ma ListBox, mais c'est un peu brouillon.

J'essaye de trouver un moyen afin d'afficher le nom de mes colonnes en base, dans des colonnes de la listBox afin que les données soient rangées.
Je récupère le nom de mes colonnes en base de cette façon :

Code:

List.AddItem Rs_Oracle.Fields(0).Name

Les noms de colonne s'affichent, mais sur la première ligne, or le but c'est vraiment d'acoir ce type de ListBox :

Pièce jointe 200883

Une idée ?

Merci d'avance !
15/02/2016, 15h22
letienne

Bonjour,

cf ici http://silkyroad.developpez.com/VBA/...serForm/#LII-G

ColumnHeads ne fonctionne pas avec List ni AddItem. Il faut passer par RowSource, et donc par des données sources sur une feuille de calcul...
15/02/2016, 15h46
Amiral62

Bonjour letienne,

merci pour ta réponse, effectivement RowSource permet d'avoir des colonnes depuis une feuille de calcul mais mes données sont tirées d'une requête et non d'une feuille, à moins de mettre sous forme de tableau le résultat de ma requête pour après l'ajouter dans la listBox.. c'est beaucoup de manip pour peu..

Le RowSource ne peux pas prendre le résultat d'une requête ? (je réfléchis à "haute voix" je fait mes recherches en parallèle)
du genre ListBox1.RowSource = Rs_Oracle.Fields(0).Name c'est une instruction absurde mais c'est le moyen le plus simple pour me faire comprendre :)

Ou peut être utiliser le contrôle ListView avec la référence Common Controls Visual Basic 6.0...
15/02/2016, 15h52
letienne

Je ne connais pas d'astuce, mais il y en a peut être une :)
En général je me contente de mettre des labels au dessus de la ListBox, ou utiliser une autre listbox juste pour les en-têtes. C'est sûr que ce n'est pas optimal mais bon.

Letienne

J'ai finalement opté pour une ListView, beaucoup plus simple d'utilisation pour les données SQL !!

voici un extrait du code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Dim unNombreDeChamps As Integer
Dim LstItem As ListItem
Dim Entete As ColumnHeader
Dim uneLargeur As Integer
Dim i As Integer
 
...
...
...
 
Rs_Oracle.Open RequeteSQL, connexion
 
 
 
    lst_data.ListItems.Clear
    lst_data.ColumnHeaders.Clear
    uneLargeur = lst_data.Width
    unNombreDeChamps = Rs_Oracle.Fields.Count
 
 '****** Création des titles ******
           For i = 0 To Rs_Oracle.Fields.Count - 1
 
                Set Entete = lst_data.ColumnHeaders.Add()
                Entete.Text = Trim(Rs_Oracle.Fields(i).Name & "")
                Entete.Width = uneLargeur / (unNombreDeChamps + 0.25)
            Next
           i = 1
 
 
        '****** Chargement des enregistrements
            While Not Rs_Oracle.EOF
                Set LstItem = lst_data.ListItems.Add(1, , Trim(Rs_Oracle(0) & ""))
                For i = 1 To Rs_Oracle.Fields.Count - 1
                    LstItem.ListSubItems.Add i, , Trim(Rs_Oracle(i) & "")
                Next
                Rs_Oracle.MoveNext
            Wend
 
     If Not Rs_Oracle Is Nothing Then
        If Rs_Oracle.State = adStateOpen Then
            Rs_Oracle.Close
         End If
       Set Rs_Oracle = Nothing
   End If
 
     lst_data.View = lvwReport

ne pas oublier : lst_data.View = lvwReport pour l'affichage en détail (j'ai ramé une heure pour cette ligne...)

et ne pas oublier aussi d'ajouter la library : Microsoft Visual Basic 6.0 Common Controls (dispo ici)

16/02/2016, 17h18
Invité

Bonjour,
Indépendamment de ce qui a été dit!

lst_data.list=Application.WorksheetFunction.Transpose(Rs_Oracle.getrows)