combobox et base de donnée

salut

dans mon UserForm j'ai un combobox ses valeurs doit être les aleurs d'un champs d'une basse de données

j'ai fais ce démarche :
- sélectionnez la combobox1 vérifiez que la propriété ROWSOURCE est Vide.
- double-cliquez sur le userform pour accèder au code
- entrez le code suivant

Code:

---

1 2 3 4

Private Sub UserForm_Initialize() ComboBox1.AddItem "New york" ComboBox1.AddItem "Paris" End Sub

---

je doit remplacer " New york" et "Paris" par les valeurs du champs
alors j'ai commencer par connecter à ma base et select from ma table le champs qui je besoin

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub frmpanne_Initialize() Dim con As New ADODB.Connection Dim sql As String Dim base As String Dim ta As String base = Textbase.Text       con.ConnectionString = "Dbq=C:\Documents and Settings\pika\Bureau\aplication_2011\" & base & ".accdb;" & "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"   con.Open sql = " Select *from [Bureau_Poste] ([Nom Bureau]) ; "   'ComboBox1.RowSource = sql con.Close Set con = Nothing 'MsgBox "OK", vbInformation   End Sub

---

la connexion c'est bien établir car j'ai utiliser la code de connexion dans une autre feuil et elle marche très bien

j'ai fais de recherche sur le net , je doit faire ".clear" aussi

Salut,

Tu oublies beaucoup d'éléments dans ton affichage.
Effectivement tu as bien fait ta connexion à ta base de données, mais pour l'affichage, ce n'est pas aussi simple.

J'espère, tout d'abord, que tu as bien importer les NameSpaces en haut de ta feuille :

Code:

---

1 2	Imports System.Data Imports System.Data.OleDb

---

Ensuite bien entendu, ta connexion :

Code:

---

Dim MyConnexion As OleDbConnection = New OleDbConnection("Dbq=C:\Documents and Settings\pika\Bureau\aplication_2011\" & base & ".accdb;" & "Driver={Microsoft Access Driver (*.mdb, *.accdb)}")

---

Tu crées ensuite ton Objet commande a qui tu vas passer en paramètre ta requête SQL.

Code:

---

Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()

---

Ta requete SQL doit être construit de telle sorte (l'étoile voulait dire "tous les champs") :
SELECT [champs]
FROM [TABLE]

Code:

---

Mycommand.CommandText = " Select * from Bureau_Poste"

---

Et ce n'est que après que tu ouvre ta connexion

Code:

---

MyConnexion.Open()

---

On crée un objet DataReader:

Code:

---

Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()

---

On crée une boucle permettant de lire les enregistrements les uns après les autres, on récupère le champ (compteur) qui est un Integer.
On met ensuite l'enregistrement à l'index (compteur) dans la comboBox
La boucle est lu tant qu'il y a des enregistrements.

Code:

---

1 2 3 4 5

Dim compteur as Integer compteur = 0 Do While myReader.Read() Combobox.Items.Add(myReader.GetString(compteur)) Loop

---

Et bien entendu, refaire la connexion et ton Reader.

Code:

---

1 2	myReader.Close() MyConnexion.Close()

---

N'oublie pas non plus de mettre en place la gestion des Exceptions avec

Code:

---

1 2 3 4 5

Try   Catch ex As Exception MsgBox(ex.Message) End Try

---

Si tu as encore des problèmes, je te conseils de chercher sur ce tuto : http://plasserre.developpez.com/cour...bases-donnees2
Il est très utile.

J'espère t'avoir apporté l'aide dont tu avais besoin.
Bonne continuation.

"Je viens de me rendre compte que tu voulais une explication en VBA et non en VB.NET.. Je pense que la syntaxe est similaire.. ^^"

--
AlexandreSerre
www.twitter.com/AlexandreSerre

Bonjour

@ AlexandreSerre

Ce que tu as mit est hors sujet, tu as mis du code Vb.net, on est dans un forum VBA Excel.

Philippe