Discussion :

[Nouti]

Bonjour,

On m'a fourni une base de donnée contenant un table qui se présente sous la forme suivante :

frefarticle	Données (plusieurs colonnes)	fdatelivdem (une date)
1	xxxxx	05/05/2014
1	xxyxx	01/01/2014
1	xxyyy	02/08/2015
2	aaxxx	15/12/2014
2	zzzuu	02/01/2015

Pour chaque référence, je ne veux récupérer que les données les plus récentes.
Soit pour ce exemple :

frefarticle	Données (plusieurs colonnes)	fdatelivdem (une date)
1	xxyyy	02/08/2015
2	zzzuu	02/01/2015

J'utilise ensuite ces données pour compléter des données dans un classeur Excel.

Jusque là, pas de soucis,
depuis Excel, j'ouvre un recordset avec la requête suivante :

Code :

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

1
2
3
SELECT * FROM  NomTable a WHERE a.fdatelivrdem =
(SELECT MAX(b.fdatelivrdem) FROM NomTable b WHERE b.frefarticle=a.frefarticle GROUP BY b.frefarticle)
ORDER BY a.frefarticle

Le problème ici vient du fait que cette base est vraiment très grande (plus de 140 000 enregistrements) ce qui fait que le temps de traitement est énorme (je ne suis jamais allé jusqu'au bout).

Y a-t-il un moyen d'optimiser cette requête et/ou un travail en amont à réaliser sur la table, sous access afin de rendre la procédure réalisable ? :/
J'ai déjà supprimé les champs dont je ne me servais pas et réduit la base au maximum en supprimant les données trop anciennes pour être utiles (Il s'agit d'une copie que l'on m'envoie, je peux lui faire "subir" n'importe quoi sans danger)

Merci de votre aide

[marot_r]

Bonjour.

As-tu essayé de "Casser" ta requête en 2 ?

1. reqMaxB : Une requête qui calcule les maxima de B : Code Produit, DateMax
2. reqMaxA : Une requête qui prend les données de A en jointure sur reqMaxB

À mon avis cela devrait être plus rapide que de calculer le max à chaque enregistrement.

Autre solution, faire une requête pour enregistrer les maxima dans une table temporaire et faire la jointure sur la table temporaire.
Ou utiliser les macros de données (triggers de Access) pour garder une table des maxima au fur et à mesure de l'évolution de B (je ne sais pas si c'est possible).

A+

[fsmrel]

Bonsoir,

Par ailleurs, qu’est-ce que cela donne sans le GROUP BY (en principe inutile) ? Les colonnes en cause sont-elles indexées ?

[Nouti]

Bonjour,

Merci de m'avoir répondu.

Bonsoir,

Par ailleurs, qu’est-ce que cela donne sans le GROUP BY (en principe inutile) ? Les colonnes en cause sont-elles indexées ?

Si j'enlève le GROUP BY, pas de différence, même temps de traitement, et les colonnes sont bien indexées.

Bonjour.

As-tu essayé de "Casser" ta requête en 2 ?

reqMaxB : Une requête qui calcule les maxima de B : Code Produit, DateMax
reqMaxA : Une requête qui prend les données de A en jointure sur reqMaxB



À mon avis cela devrait être plus rapide que de calculer le max à chaque enregistrement.

Autre solution, faire une requête pour enregistrer les maxima dans une table temporaire et faire la jointure sur la table temporaire.
Ou utiliser les macros de données (triggers de Access) pour garder une table des maxima au fur et à mesure de l'évolution de B (je ne sais pas si c'est possible).

A+

En effet avec une union j'ai un résultat avec un temps d'exécution très raisonnable. J'ai un peu le mauvais réflexe de mettre des sous requêtes partout ><


Je suis passé par cette requête :

Code :

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

1
2
3
4
5
6
7
SELECT DISTINCT *
FROM  nomTable AS a INNER JOIN 
    (SELECT frefarticle, Max(fdatelivrdem) AS MaxDefdatelivrdem
    FROM  nomTable
    GROUP BY frefarticle)  AS b
ON (a.fdatelivrdem = b.MaxDefdatelivrdem) AND (a.frefarticle = b.frefarticle)
ORDER BY a.frefarticle

(J'utilise le distinct car le cas ou les données sont exactement identiques pour deux enregistrements se produit quelques fois)

Le temps de traitement étant satisfaisant, je n'ai pas tenté la méthode avec la création d'une table temporaire, je ne pense pas que j'y gagnerais tellement en terme d'efficacité.
Pour la dernière solution, je ne me suis pas lancé dedans non plus, C'est la première fois que j'ai à utiliser des bases access (Je n'ai fait que du MySQL et de l'Oracle ) et je suis un peu pressé par le temps, l'étude des triggers sous access devra attendre un peu, mais ça m'intéresse tout de même.

J'en profite pour dire que j'ai énormément gagné en temps de traitement car pour placer les informations obtenues par cette requête dans mon catalogue, sous Excel, j'utilisais la méthode find alors que j'ai un catalogue trié. J'ai donc écrit une fonction pour faire des recherches dichotomiques, en terme de rapidité, forcément, ça change tout... D'ailleurs si il existe un fonction de recherche dichotomique dans les librairies de base en VBA, je ne l'ai pas trouvée :/ Je met ici le code de la mienne des fois que ça serve à quelqu'un, sait-on jamais...

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Public Function rech_dicho(plage As Range, valeurCherchee As Variant) As Range
 
    Dim ligneDebut As Double
    Dim ligneFin As Double
    Dim ligneLue As Double
 
    Set rech_dicho = Nothing
 
    ligneDebut = 1
    ligneFin = plage.Count
 
    If plage.Cells(ligneDebut).Value > valeurCherchee Then
        Set rech_dicho = Nothing
        Exit Function
    End If
 
    If plage.Cells(ligneFin).Value < valeurCherchee Then
        Set rech_dicho = Nothing
        Exit Function
    End If
 
    While ligneDebut <> ligneFin - 1
        ligneLue = Int((ligneFin + ligneDebut) / 2)
        If plage.Cells(ligneLue).Value = valeurCherchee Then
            Set rech_dicho = plage.Cells(ligneLue)
            Exit Function
        End If
 
        If plage.Cells(ligneLue).Value > valeurCherchee Then
            ligneFin = ligneLue
        Else
            ligneDebut = ligneLue
        End If
    Wend
 
    If plage.Cells(ligneDebut).Value = valeurCherchee Then
        Set rech_dicho = plage.Cells(ligneDebut)
    ElseIf plage.Cells(ligneFin).Value = valeurCherchee Then
        Set rech_dicho = plage.Cells(ligneFin)
    End If
 
 
End Function

Sur ce je passe tout ça en résolu. Merci à vous.