combobox et basse de donnée

combobox et basse de donnée - VB/VBA/VBS - Programmation

Marsh Posté le 12-06-2011 à 17:29:11    

salut
je travaille sous excel  
 
dans mon UserForm j'ai un combobox ses valeurs doit être les valeurs 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. Private Sub UserForm_Initialize()
  2. ComboBox1.AddItem "New york"
  3. ComboBox1.AddItem "Paris"
  4. 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. Private Sub frmpanne_Initialize()
  2. Dim con As New ADODB.Connection
  3. Dim rs As New ADODB.Recordset
  4. Dim sql As String
  5. Dim base As String
  7. base = Sheets("Menu" ).Textbase.Text
  11. con.ConnectionString = "Dbq=C:\Documents and Settings\pika\Bureau\aplication_2011\" & base & ".accdb;" & "Driver={Microsoft Access Driver (*.mdb, *.accdb)};"
  13. con.Open
  14. 'Set rs.ActiveConnection = con
  16. rs.Open "Bureau_Poste", con
  17. 'sql = " Select *from [Bureau_Poste]  ([Nom Bureau])  ; "
  18. Do Until rs.EOF
  20. ComboBox1.AddItem rs![Nom Bureau] 'nom du champ
  21. rs.MoveNext
  22. Loop
  25. rs.Close
  26. Set rs = Nothing
  27. con.Close
  28. Set con = Nothing
  29. End Sub


 
rien se passe

Reply

Marsh Posté le 12-06-2011 à 17:29:11   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed