Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1321 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2030865
greg360
Posté le 20-10-2010 à 14:00:26  profilanswer
 

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

n°2030941
SuppotDeSa​Tante
Aka dje69r
Posté le 20-10-2010 à 16:31:00  profilanswer
 

Hello
 
Euh, betement :

Code :
  1. MaListBox.AddItem data


 
:??:


---------------
Soyez malin, louez entre voisins !
n°2030946
greg360
Posté le 20-10-2010 à 16:41:11  profilanswer
 

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

n°2030992
SuppotDeSa​Tante
Aka dje69r
Posté le 20-10-2010 à 19:57:04  profilanswer
 

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


---------------
Soyez malin, louez entre voisins !
n°2031081
greg360
Posté le 21-10-2010 à 08:52:16  profilanswer
 

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
n°2031086
SuppotDeSa​Tante
Aka dje69r
Posté le 21-10-2010 à 09:19:22  profilanswer
 

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 !
n°2031090
greg360
Posté le 21-10-2010 à 09:36:54  profilanswer
 

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
n°2031093
SuppotDeSa​Tante
Aka dje69r
Posté le 21-10-2010 à 10:07:48  profilanswer
 

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


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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

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

 

Sujets relatifs
Récuperer une liste de valeurs a partir d'une hierarchie en htmlCréer un fichier XML à partir d'un formulaire
Comment créer des fichier de dependence avec microsoft compilercreer un raccourci a une longue commande dos
svn merge n'ajoute pas les fichiers créer entre l'intervalleCréer un forum
Créer son site personnalisé avec Joomla...Comment faire pour créer un tableau interactif?
Plus de sujets relatifs à : [RESOLU]Créer une listbox à partir d'un recordset


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR