Discussion :

[amazon]

Bonjour

Ci dessous le code que je viens d'utiliser pour afficher les données d'un Recordset dans une List box

Quel est la syntaxe à utiliser pour affciher plusieurs colonnes?

MErci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'****************************************************************************
'Create the Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open SQL, oCnMySQL, adOpenStatic, adLockOptimistic, adCmdText
'****************************************************************************
'Add Data to ListBox
Me.AllList.RowSourceType = "Value List"
Do While Not rs.EOF
AllList.AddItem rs.Fields(0)
rs.MoveNext
Loop

[Jean-Philippe André]

salut,
le plus simple est de directement attribuer la requête SQL à ta rowsource.

autre méthode, disponible dans la http://access.developpez.com/faq/?page=zdl#AddItem

[amazon]

Merci pour l'info

Le problème est que je crée le recordset avec une connection vers un BD MySQL.

Donc je pense pas que je peux directement utiliser la requête SQL pour définir le RowSource de la ListBox.

Ou est-ce qu'il y a une syntawe particulère?

Merci

[ilank]

bonjour,

une solution est d'utiliser une fonction qui renvoie les infos demandées à la listbox.
La fonction doit avoir cette signature (Chp As Control, id As Variant, ligne As Variant, Col as Variant, Code As Variant) As Variant

En fait, Access(ou la combobox) questionne la fonction pour l'ensemble des paramètres et données à insérer. Les questions sont passées via le paramètre code.

Ex:

Code :

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

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
 Public function FillMyListBox(lstBox As Control, id As Variant, lgn As Variant, Col As Variant, Code As Variant)
 Static rs As ADODB.Recordset, Ligne as long
 
 Select Case Code
    'Initialise la ListBox renvoyer 0 (False) si non OK 
    Case acLBInitialize
         Set rs=New ADODB.Recordset
         rs.CursorLocation = adUseClient
         rs.Open SQL, oCnMySQL, adOpenStatic, adLockOptimistic, adCmdText
         FillMyListBox=rs.RecordCount 
    Case acLBOpen 'Attends une valeur unique <> 0
         FillMyListBox=Timer
    Case acLBGetRowCount 'Attends le nombre de lignes
          FillMyListBox=rs.RecordCount
    Case acLBGetColumnCount 'Attends le nombre de Colonnes
          FillMyListBox=rs.Fields.Count
    Case acLBGetColumnWidth 'Attends la largeur de la Colonne col passé en paramètre
          Select Case Col
 
          End Select
    Case acLBGetFormat 'Attends le format -1 pour valeur par défaut
            FillMyListBox=-1 
    Case acLBGetValue 'Attends la valeur de la colonne Col de la ligne lgn
          if ligne<lgn Then
               ligne=lgn
               if lgn=1 then
                 rs.moveFirst
               else
                 rs.moveNext
               endif
          Endif
          FillMyListBox=rs.Fields(col-1).Value
    Case acLBEnd 'Fermeture de la ListBox
       rs.Close
       set rs=Nothing
 End Select
End function

ou bien utiliser les contrôles Combobox et ListBox de MSForms qui disposent des méthodes AddItem.