Faire aparaitre le contenue d'un champs d'une table access dans une listbox ou u
Résolu
Atomos83
Messages postés
33
Date d'inscription
mercredi 23 février 2005
Statut
Membre
Dernière intervention
10 novembre 2006
-
12 juil. 2005 à 12:24
Atomos83 Messages postés 33 Date d'inscription mercredi 23 février 2005 Statut Membre Dernière intervention 10 novembre 2006 - 12 juil. 2005 à 15:08
Atomos83 Messages postés 33 Date d'inscription mercredi 23 février 2005 Statut Membre Dernière intervention 10 novembre 2006 - 12 juil. 2005 à 15:08
4 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
12 juil. 2005 à 14:15
12 juil. 2005 à 14:15
Re,
Il doit avoir un espace entre Data et Source.
jpleroisse
Il doit avoir un espace entre Data et Source.
jpleroisse
cs_dan80
Messages postés
101
Date d'inscription
mardi 3 mai 2005
Statut
Membre
Dernière intervention
19 avril 2006
12 juil. 2005 à 14:01
12 juil. 2005 à 14:01
si g bien compris tu ve une combo avec t groupe d'articles
si c le cas, il te suffit de faire une boucle qui va parcourir un recordset dans lequel il y aura t groupe
et de remplir la combo avec combo.AddItem 'nomgroupe'
voila j'espere avoir répondu a ta question
si c le cas, il te suffit de faire une boucle qui va parcourir un recordset dans lequel il y aura t groupe
et de remplir la combo avec combo.AddItem 'nomgroupe'
voila j'espere avoir répondu a ta question
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
12 juil. 2005 à 14:11
12 juil. 2005 à 14:11
Bonjour,
Placer les références à DAO 3.51(où 3.6) et Ado 2.0 (où 2.5) suivant ta version.
Private Sub Command1_Click()
Dim adoConnection As ADODB.Connection
Dim adoRecordSet As ADODB.Recordset
Set adoConnection = New ADODB.Connection
Set adoRecordSet = New ADODB.Recordset
Dim ConnectionString As String
ConnectionString "Provider Microsoft.Jet.OLEDB.3.51;" & " Data Source = C:\A\facturations.mdb" 'ici tu mets le chemin de ta BD
adoConnection.Open ConnectionString
adoRecordSet.Open "Produit", adoConnection 'ici ta Table
Do Until adoRecordSet.EOF
Combo1.AddItem adoRecordSet!Désignation 'ici le champ
adoRecordSet.MoveNext
Loop
adoRecordSet.Close
adoConnection.Close
Set adoConnection = Nothing
Set adoRecordSet = Nothing
End Sub
jpleoisse
Placer les références à DAO 3.51(où 3.6) et Ado 2.0 (où 2.5) suivant ta version.
Private Sub Command1_Click()
Dim adoConnection As ADODB.Connection
Dim adoRecordSet As ADODB.Recordset
Set adoConnection = New ADODB.Connection
Set adoRecordSet = New ADODB.Recordset
Dim ConnectionString As String
ConnectionString "Provider Microsoft.Jet.OLEDB.3.51;" & " Data Source = C:\A\facturations.mdb" 'ici tu mets le chemin de ta BD
adoConnection.Open ConnectionString
adoRecordSet.Open "Produit", adoConnection 'ici ta Table
Do Until adoRecordSet.EOF
Combo1.AddItem adoRecordSet!Désignation 'ici le champ
adoRecordSet.MoveNext
Loop
adoRecordSet.Close
adoConnection.Close
Set adoConnection = Nothing
Set adoRecordSet = Nothing
End Sub
jpleoisse
Atomos83
Messages postés
33
Date d'inscription
mercredi 23 février 2005
Statut
Membre
Dernière intervention
10 novembre 2006
12 juil. 2005 à 15:08
12 juil. 2005 à 15:08
Merci pour ta reponse,j'ai reussi :)