Programme pointage des ouvriers

**agan2012** · 18/05/2010, 19h13

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

**justgreat** · 19/05/2010, 01h10

Comment tu fais la référence à ta base de données ?

Je vois qu'en form load, tu appelles un record set, mais je ne vois pas une déclaration pour la base de données...

As tu fais quelque part avant de faire db.recordset quelque chose du genre ?

Code :

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

1
2
dim db as database 
set db= OpenDatabase("C:\MaBaseDeDonnées.mdb")

**CBFURAX** · 19/05/2010, 09h28

Bonjour.

Si ton recordset est ouvert en mode dynaset, il faut peupler l'index en envoyant son pointeur en fin de recordset puis en le ramenant au début.

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
 
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)
 
   on local error resume next
   r.movelast
   r.MoveFirst
	if err.number=0 then
	   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 if
	on local error goto 0
 
End Sub

**agan2012** · 19/05/2010, 11h40

Envoyé par CBFURAX

Bonjour.

Si ton recordset est ouvert en mode dynaset, il faut peupler l'index en envoyant son pointeur en fin de recordset puis en le ramenant au début.

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
 
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)
 
   on local error resume next
   r.movelast
   r.MoveFirst
	if err.number=0 then
	   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 if
	on local error goto 0
 
End Sub

j'ai fais exactement que tu ma proposé , l'erreur est bien résolu mais la grille est totalement vide je ne sais pas quoi faire d'autre

**agan2012** · 19/05/2010, 11h44

est ce que la relation entre les tables ou quoi ?
intégrités référentiel + jointures+clés tout en ordre
je ne sais pas trop
une autre proposition Monsieur...?

**ProgElecT** · 19/05/2010, 13h23

Je ne pratique pas DAO mais ADO, j'ai regardé tout de même ta requete SQL, en la reformulant sur plusieurs lignes, pour y voire un peu plus claire.

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
23
24
25
ch = "select " _
        & "EFFECTUE.date_deb," _
        & "EFFECTUE.date_fin," _
        & "EFFECTUE.nombre_heure," _
        & "EFFECTUE.nombrenombre_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"

La condition Where me semble aberrante, qu'attends tu comme renvoi de cette condition multiple?

**CBFURAX** · 19/05/2010, 18h32

Envoyé par agan2012

j'ai fais exactement que tu ma proposé , l'erreur est bien résolu mais la grille est totalement vide je ne sais pas quoi faire d'autre

Si le recordset renvoyé par la requête SQL est vide, une erreur se produit lors du movelast et du movefirst.
L'erreur est trappée par le "on error resume next", et err.number est non nul (il n'y a pas d'enregistrement courant).
La boucle Do...loop n'est donc pas exécutée.

La question est donc : pourquoi ta requête ne renvoie-elle rien ?
Je suis pas un killer en SQL, mais la façon dont la tienne est montée me paraît étrange. (Pas le LEFT JOIN ou INNER JOIN, pour tes jointures ? )

**agan2012** · 19/05/2010, 18h53

Envoyé par CBFURAX

La question est donc : pourquoi ta requête ne renvoie-elle rien ?
Je suis pas un killer en SQL, mais la façon dont la tienne est montée me paraît étrange. (Pas le LEFT JOIN ou INNER JOIN, pour tes jointures ? )

Vous proposez quoi comme solution!!!

**agan2012** · 19/05/2010, 11h35

Envoyé par justgreat

Comment tu fais la référence à ta base de données ?

Je vois qu'en form load, tu appelles un record set, mais je ne vois pas une déclaration pour la base de données...

As tu fais quelque part avant de faire db.recordset quelque chose du genre ?

Code :

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

1
2
dim db as database 
set db= OpenDatabase("C:\MaBaseDeDonnées.mdb")

voila le code d'ouverture de la base

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub MDIForm_Load()
 
Set db = OpenDatabase(App.Path & "\pointage.mdb")
Set se = db.OpenRecordset("SECTION")
Set ta = db.OpenRecordset("TACHE")
Set ord = db.OpenRecordset("Ordre_de_Travaux")
Set em = db.OpenRecordset("EMPLOYE")
Set ef = db.OpenRecordset("EFFECTUE")
 
End Sub

Programme pointage des ouvriers

VB 6 et antérieur

Vue hybride

Discussions similaires

Partager

Partager