Discussion :

[pikamo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlexandreSerre]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ensuite bien entendu, ta connexion :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Mycommand.CommandText = " Select * from Bureau_Poste"

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MyConnexion.Open()

On crée un objet DataReader:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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