Discussion :

[NAIMA2]

bonjour,
comment on peut relier un DBcombobox a un recordset
merci .

[BM42]

Salut

Déclaration du DataCombo :

Code :

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

1
2
3
Set DataCombo1.DataSource = rst
Set DataCombo1.RowSource = rst
DataCombo1.ListField = "NomChamp"

pour placer le Recordset sur l'élément sélectionné :

Code :

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

1
2
3
4
5
6
7
Private Sub DataCombo1_Click()
 
If DataCombo1 <> "" Then
rst.Bookmark = DataCombo1.SelectedItem
End If
 
End Sub

J'avais trouvé cet exemple dans les Faqs mais je n'est pas retrouvé le lien.

A+

[Hatchepsout]

salut
voici un exemple j'ai tester et il fonctionne bien

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 Dim strSQL As String
   Dim rsADO  As New ADODB.Recordset
   Dim rsCateg  As New ADODB.Recordset
 
'Remplissage des DataCombo dbcCateg1 à l'aide du jeu rsADO
   strSQL = " SELECT [Code catégorie], [Nom de catégorie]" _
          & " FROM Catégories ORDER BY [Nom de catégorie]"
   rsCateg.Open strSQL, cnnbase
   Set dbcCateg.RowSource = rsCateg
   dbcCateg.ListField = "Nom de catégorie"
   dbcCateg.BoundColumn = "code catégorie"

bien sur cnnbase c'est ton pointeur sur la base qu'il faut declarer dans une module
bonne chance