Discussion :

[rspyo]

Bonjour,

Je dispose dans le cadre d'un appli. Access d'une table d'activité (Oui/Non) par date sur une longue période (5 ans) soit environ 2000 enregistrements.

Un nombre important de calculs (dont certains sont dans de grandes boucles itératives) font appel à l'activité pour une date donnée au sein de code VBA.

Option simple:
fonctions de domaine: lent (environ 20s pour checker le statut de 1000 dates)

Option un peu plus élaborée:
A base de DAO,

Code :

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

1
2
dim rst as dao.recordset
rst=currentdb.openrecordset("texte requête SQL sur la table d'activité", dbOpenSnapshot)

Le temps de réponse est amelioré (environ 10s pour checker le statut de 1000 dates)

Existe-il d'autres options qui seraient plus performantes?

En vous remerciant par avance

Christophe

[f-leb]

bonjour,

...environ 10s pour checker le statut de 1000 dates

ça me parait énorme, qu'entends-tu par "checker" ?
tu es en environnement multi-utilisateurs ?

sinon, regarde dans ce tutoriel: Guide d'optimisation de vos applications Microsoft ACCESS

tu peux peut-être optimiser la requête: III-E. Requêtes

[rspyo]

Merci,

Je vais essayer d'être plus précis car je pense faire quelque part une grossière erreur de conception...

i.) les 10s de temps de réponse sont avec frontale/dorsale
cela devient 2s si une seule base

ii.) "checker": une boucle théorique pour 1000 dates afin de mesurer le temps de réponse

iii.) description détaillée

a) table: "tbl ActiviTest"
deux champs: Date (type Date) Actif (type Boolean), table indexée sans doublons
environ 150 enregistrements avec des dates comprises entre 2010/2014

b) fonction "JourActif" qui interroge la table et renvoie

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
Public Function JourActif(dtDate As Date) As Boolean
Dim source As String
Dim Record As DAO.Recordset
 
    source = "SELECT [tbl ActiviTest].Actif FROM [tbl ActiviTest]WHERE Date=" & USDate_SQL(dtDate)
    Set Record = CurrentDb.OpenRecordset(source, dbOpenSnapshot)
            If Record.RecordCount < 1 Then
                    JourActif = False
            Else
                    JourActif = Record.Fields("Actif")
            End If
 
    Record.Close
    Set Record = Nothing
 
End Function

c) routine de test pour itérer 1000 appels successifs à « JourActif »

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
Public Sub Test()
Dim dt As Date
Dim dtvar As Double
Dim i As Integer
 
dt = DateSerial(2010, 1, 6)
dtvar = CDbl(dt)
 
sngDebut = VBA.DateTime.Timer
 
' boucle theéorique pour appeler 1000 fois la fonction "JourActif"
 
For i = 1 To 1000
    JourActif (CDate(dtvar))
    dtvar = dtvar + 1
Next i
 
MsgBox "Temps d'execution : " & Str(VBA.DateTime.Timer - sngDebut) & " secondes"
 
End Sub

Voila, rien de fracassant mais je suppose que la pauvre performance à a voir avec la creation iterative du recordset. Ceci étant, je n'ai pas d'idée d'approche alternative.

En vous remerciant par avance.

[Jean-Philippe André]

salut,
et en utilisant une fonction de domaine, ne va-t-on pas plus vite ?

Code :

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

1
2
3
Public Function JourActif(dtDate As Date) As Boolean
JourActif = Nz(Dlookup("Actif","[tbl ActiviTest]","[tbl ActiviTest]=" & USDate_SQL(dtDate)),False)
End Function

[rspyo]

Tu as raison pour la fonction de domaine. Toute chose étant égale par ailleurs, pour 1000 itérations, je passe de 2s à 0.6s.

C'est un bon début. Merci.

[rspyo]

Par contre toujours aussi lent lorsque la table est déportée dans la dorsale.

[Jean-Philippe André]

Pour la dorsale,
faire une copie dans une table locale en amont du traitement peut-être ?

[rspyo]

c'est la conclusion à laquelle j'étais arrivé, et dans ce cas la performance est raisonnable mais c'est un peu frustrant...
même si la bouzigue est ok en l'état, je suis preneur de toute piste d'amélioration.
merci pour le support.