Discussion :

[fizzyb]

Bonjour, j'aimerai afficher dans ma DataCombo la liste du champ Nom_cine contenu dans une table Cinemas dans une base de données access .Mais sur tous les forums j'entend parler de Adodc, j'aimerai eviter d'avoir a utiliser Adodc.

merci de votre aide

[Delbeke]

Alors, evite aussi le Datacombo qui, à ma connaisance, ne fonctionne pas sans Adodc

[Le Pharaon]

Un code que j'utilise avec ADO, tu pourras l'adapter

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
22
Public Sub RemplirDataCombo(objConnexion As Adodb.Connection, 
ValeurRequete As String, NomControl As DataCombo, NomChampAfficher As 
String, NomCle As String)
 
    On Error GoTo EtiquetteErreur
    Dim adoRS As New Adodb.Recordset
    Set NomControl.RowSource = Nothing
    adoRS.Open ValeurRequete, objConnexion, adOpenKeyset, adLockOptimistic
    If Not (adoRS.EOF And adoRS.BOF) Then
        adoRS.MoveFirst
        Set NomControl.RowSource = adoRS
        NomControl.ListField = NomChampAfficher
        NomControl.BoundColumn = NomCle
    End If
 
Sortie:
    Set adoRS = Nothing
    Exit Sub
EtiquetteErreur:
    MsgBox Err.Description, , strTitre
    GoTo Sortie
End Sub

[La Praline]

Bonjour,

Il ne afut pas se fier aux apparences, l'Adodc est en fait un composant très facile à utiliser...
Je te cdonseil de regarder quelques tutoriaux à ce sujet et de t'en servir... pour l'acces aux bases de données c'est tout de même le meilleur....