[RESOLU]Créer une listbox à partir d'un recordset

Créer une listbox à partir d'un recordset [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 20-10-2010 à 14:00:26    

Bonjour à tous, je souhaite afficher une listbox avec du code VB, mais je suis débutant et je n'ai pas trop compris le principe (malgrès les recherches sur le net)
 
Voici mon code :
 

Code :
  1. Module gmao_aff_main
  3.     Sub Main()
  4.         Dim dbconnect As New ADODB.Connection
  5.         Dim dbconnect2 As New ADODB.Connection
  6.         Dim rst As New ADODB.Recordset
  7.         Dim path As String
  8.         Dim SQL As String
  9.         Dim SAGE As String
  10.         Dim strsql As String
  11.         Dim data As String
  13.         MsgBox("DEBUT" )
  15.         path = "\\Srv-bases/gmao/GMAO.accdb"
  16.         SAGE = "DSN=GMAO"
  17.         SQL = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & path & ";"
  18.         dbconnect.Open(SQL)
  19.         If dbconnect Is Nothing Then
  20.             MsgBox("ACCESS NOT OK" )
  21.             GoTo lbl_end
  22.         Else
  23.             MsgBox("ACCESS CONNECT OK" )
  24.         End If
  26.         dbconnect2.Open(SAGE)
  27.         If dbconnect2 Is Nothing Then
  28.             MsgBox("SAGE NOT OK" )
  29.             GoTo lbl_end
  30.         Else
  31.             MsgBox("SAGE CONNECT OK" )
  32.         End If
  34.         rst.Open("SELECT EL_INTITULE FROM F_ENUMLIBRECIAL WHERE EL_INTITULE NOT IN (SELECT NoMachine FROM Table1) AND (N_INFO = 1)", dbconnect)
  36.         While Not rst.EOF
  37.             data = rst.Fields("EL_INTITULE" ).Value
  38.             'remplissage de la listbox avec les différentes valeurs de string
  39.             rst.MoveNext()
  40.         End While
  41.         'affichage de la listbox
  42.         rst.Close()
  43.         dbconnect.Close()
  44.         dbconnect2.Close()
  45. lbl_end:
  46.         MsgBox("FIN" )
  47.     End Sub
  49. End Module


 
Ma question est la suivante : comment dois-je faire pour créer, remplir et afficher une listbox svp ?
 
Merci à ceux qui voudront bien m'aider.


Message édité par greg360 le 21-10-2010 à 09:37:47

---------------
Greg
Reply

Marsh Posté le 20-10-2010 à 14:00:26   

Reply

Marsh Posté le 20-10-2010 à 16:31:00    

Hello
 
Euh, betement :

Code :
  1. MaListBox.AddItem data


 
:??:


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 20-10-2010 à 16:41:11    

Il faut bien que je la déclare ma listbox "MaListBox" non ?

Reply

Marsh Posté le 20-10-2010 à 19:57:04    

Soit tu as deja cree ta listbox et tu l'alimente, soit tu passes par un createobject


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 21-10-2010 à 08:52:16    

J'ai utilisé la fonction "Add User Control..." du menu "Project" de visual studio 2010, je me retrouve donc avec un fichier .vb et un fichier .vb[Design] dans lequel j'ai créé une listbox. Je dois maintenant partager ce fichier usercontrol pour pouvoir avoir accès à ses données depuis mon code vb. Tu aurais une solution pour mon problème stp ?


---------------
Greg
Reply

Marsh Posté le 21-10-2010 à 09:19:22    

J'avoue ne pas trop comprendre le souci...
Tu as bien donné un nom a ta listobox ? Elle est dans une form ?


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 21-10-2010 à 09:36:54    

Problème résolu, j'ai recommencé mon projet en "Windows Forms Application" et non pas en "Console Application", résultat, le form est déja créé, et la listbox est linkée automatiquement, merci pour votre aide.


---------------
Greg
Reply

Marsh Posté le 21-10-2010 à 10:07:48    

Ah bah si tu ne dis pas tout du début aussi...! ;)


---------------
Soyez malin, louez entre voisins !
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed