Bonjour,
 
J'utilise VB 6.0 + Access XP pour mon projet.
Sur Access, j'ai trois tables ELEVES, Emprunter, LIVRES
 
En sélectionnant un élève dans mon datacombo, je souhaiterai que soient affiché dans un datagrid les emprunts de livres qu'il a pu effectué (ou pas!).
 
J'ai des difficultés à remplir mon datagrid (je suis un novice).
 
Je laisse le code concernant ce dernier :
 
Private Sub DataCombo2_Click(Area As Integer)
' Connection à la 3ème table
    With Adodc3
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaDb & ";Persist Security Info=False"
        .RecordSource = "SELECT * FROM Emprunter WHERE Num_ele LIKE 'Numero' ;"
'Numero est la valeur obtenue dans le DataCombo2
    End With
 
    Adodc3.Refresh
    Set DataGrid1.DataSource = Adodc3
'.............?
 
(NB : Après "Set DataGrid1.DataSource = adodc3, je ne sais quoi écrire)

Mon problème est résolu !
 
Merci quand même.  

C'aurait été bien de dire comment.
 
Ca peut servir à d'autres...

Bonsoir,
 
Après tout ce temps, je me permet malgré tout de diffuser la solution à mon problème :
---------------------
' Connection à la 3ème table
    With Adodc3
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MaDb & ";Persist Security Info=False"
        .RecordSource = "SELECT Num_Liv AS 'N° Livre', Num_ele AS 'N° Élève', dat_emp AS 'emprunt du' FROM Emprunter WHERE Num_ele like '" & DataCombo2.Text & "' ORDER BY 1;"
    End With
   
    Adodc3.Refresh
   
    If Adodc3.Recordset.RecordCount = 0 Then
        Text1 = ""
        Command2.Enabled = False
        info = MsgBox("Cet élève n'a emprunté aucun livre", vbInformation)
        Exit Sub
    End If
 
Command2.Enabled = True
 
    Set DataGrid1.DataSource = Adodc3
    DataGrid1.Refresh
 
---------------------
Avec ce code tout se passe bien.
Merci encore pour l'aide qui m'a été donné sur VBFrance.com
 
En espérant que ça sert à d'autres. Par contre AlainTech pour ta part et comme tu dis, "Pas trouvé? Cherche encore!".    
 
Bonne soirée à tous.