Voici mon soucis. Je souhaiterai renseigner une listbox directement par la
lecture d'une base de données. Actuellement je renseigne une page Excel puis
je lis les différentes cellules pour renseigner ma listbox. Ci-dessous mon
code :
'Lecture de la base
With ActiveSheet.QueryTables.Add(Connection:=connexion_chaine _
, Destination:=Range("B1"))
.CommandText = Array("select OTYA_LIBELLE as Origines from
OFIC_TYPE_AUD" _
)
.Name = "Lancer la requête à partir de Indicateur_DB"
.FieldNames = True
.....
'Renseignement de la listbox
compteur = 2
While Cells(compteur, 2) <> ""
Saisie_Periode.Origines_ref.AddItem Cells(compteur, 2).Value
compteur = compteur + 1
Wend
Mais pour quelque chose de plus propre et plus rapide, 'jaurai bien aimé
renseigner directement la Listbox via la requete ci-desssus. Possible ??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Red Rick
Bonjour, Essaye de créer une Table (array) avec tes resultat de requète...
exemple ==> arr()
ensuite
Me.listbox1.list = arr va te remplir ton listbox... (tu enlèves les parentèses exprès)
Crdlmt
Red Rick
"Jerome" <a000@~yahoo.fr> a écrit dans le message de news: d84gub$3g5$
Bonjour à tous,
Voici mon soucis. Je souhaiterai renseigner une listbox directement par la lecture d'une base de données. Actuellement je renseigne une page Excel puis je lis les différentes cellules pour renseigner ma listbox. Ci-dessous mon code :
'Lecture de la base With ActiveSheet.QueryTables.Add(Connection:=connexion_chaine _ , Destination:=Range("B1")) .CommandText = Array("select OTYA_LIBELLE as Origines from OFIC_TYPE_AUD" _ ) .Name = "Lancer la requête à partir de Indicateur_DB" .FieldNames = True .....
'Renseignement de la listbox compteur = 2 While Cells(compteur, 2) <> "" Saisie_Periode.Origines_ref.AddItem Cells(compteur, 2).Value compteur = compteur + 1 Wend
Mais pour quelque chose de plus propre et plus rapide, 'jaurai bien aimé renseigner directement la Listbox via la requete ci-desssus. Possible ??
Merci pour votre aide
Jerome
Bonjour,
Essaye de créer une Table (array) avec tes resultat de requète...
exemple ==> arr()
ensuite
Me.listbox1.list = arr
va te remplir ton listbox...
(tu enlèves les parentèses exprès)
Crdlmt
Red Rick
"Jerome" <a000@~yahoo.fr> a écrit dans le message de news:
d84gub$3g5$1@apollon.grec.isp.9tel.net...
Bonjour à tous,
Voici mon soucis. Je souhaiterai renseigner une listbox directement par la
lecture d'une base de données. Actuellement je renseigne une page Excel
puis je lis les différentes cellules pour renseigner ma listbox.
Ci-dessous mon code :
'Lecture de la base
With ActiveSheet.QueryTables.Add(Connection:=connexion_chaine _
, Destination:=Range("B1"))
.CommandText = Array("select OTYA_LIBELLE as Origines from
OFIC_TYPE_AUD" _
)
.Name = "Lancer la requête à partir de Indicateur_DB"
.FieldNames = True
.....
'Renseignement de la listbox
compteur = 2
While Cells(compteur, 2) <> ""
Saisie_Periode.Origines_ref.AddItem Cells(compteur, 2).Value
compteur = compteur + 1
Wend
Mais pour quelque chose de plus propre et plus rapide, 'jaurai bien aimé
renseigner directement la Listbox via la requete ci-desssus. Possible ??
Bonjour, Essaye de créer une Table (array) avec tes resultat de requète...
exemple ==> arr()
ensuite
Me.listbox1.list = arr va te remplir ton listbox... (tu enlèves les parentèses exprès)
Crdlmt
Red Rick
"Jerome" <a000@~yahoo.fr> a écrit dans le message de news: d84gub$3g5$
Bonjour à tous,
Voici mon soucis. Je souhaiterai renseigner une listbox directement par la lecture d'une base de données. Actuellement je renseigne une page Excel puis je lis les différentes cellules pour renseigner ma listbox. Ci-dessous mon code :
'Lecture de la base With ActiveSheet.QueryTables.Add(Connection:=connexion_chaine _ , Destination:=Range("B1")) .CommandText = Array("select OTYA_LIBELLE as Origines from OFIC_TYPE_AUD" _ ) .Name = "Lancer la requête à partir de Indicateur_DB" .FieldNames = True .....
'Renseignement de la listbox compteur = 2 While Cells(compteur, 2) <> "" Saisie_Periode.Origines_ref.AddItem Cells(compteur, 2).Value compteur = compteur + 1 Wend
Mais pour quelque chose de plus propre et plus rapide, 'jaurai bien aimé renseigner directement la Listbox via la requete ci-desssus. Possible ??
