J'ai un grand souci concernant la requête sql dans vb 6.0 avec la référence DAO
La base de données là voici
http://site.voila.fr/vb6/relations.JPG
le code
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
 
Private Sub Form_Load()
Dim r As Recordset
Dim ch As String
 
   'Remplir la grille
   ch = "select EFFECTUE.date_deb,EFFECTUE.date_fin,EFFECTUE.nombre_heure,EFFECTUE.nombre_heures_supp,EFFECTUE.num_tache,EFFECTUE.num_empl,EFFECTUE.jour_travail,EMPLOYE.num_empl,EMPLOYE.nom_empl,Ordre_de_Travaux.num_ot,Ordre_de_Travaux.date_ot,Ordre_de_Travaux.num_tache,SECTION.section,SECTION.num_tache,TACHE.num_tache,TACHE.nature_tache1,TACHE.nature_tache2,TACHE.nature_tache3,TACHE.nature_tache4 From EFFECTUE,EMPLOYE,Ordre_de_Travaux,SECTION,TACHE Where SECTION.num_tache=TACHE.num_tache And Ordre_de_Travaux.num_tache=TACHE.num_tache And EFFECTUE.num_tache=TACHE.num_tache And EFFECTUE.num_empl=EMPLOYE.num_empl"
   Set r = db.OpenRecordset(ch)
   r.MoveFirst
   Do While Not r.EOF
   g.AddItem r(0) & vbTab & r(1) & vbTab & r(2) & vbTab & r(3) & vbTab & r(4) & vbTab & r(5) & vbTab & r(6) & vbTab & r(7) & vbTab & r(8) & vbTab & r(9) & vbTab & r(10) & vbTab & r(11) & vbTab & r(12) & vbTab & r(13) & vbTab & r(14) & vbTab & r(15)
   r.MoveNext
   Loop
 
End Sub
mon problème est le voici
un message
aucun enregistrement en cours

par contre j'ai rempli dans chaque table 5 enregistrements
aidez moi SVP