Performance code vba

Version imprimable

bonjour,

quelqu'un pourrait-il m'éclairer en ce qui concerne les performance d'un code !?

y-a t'il un moyen d'améliorer ce genre de code ou pas pour être plus rapide dans son éxécution ?
et si oui de quelle manière et le pourquoi de cette amélioration !?

merci

Code:

1
2
3
4
5
6
7
sql = "UPDATE TDates INNER JOIN TPer ON TDates.DatesCasCalendrier = TPer.PeriodeCasCalendrier SET TDates.DatesPeriode = [TPer]![PeriodeType] "
         sql = sql & "WHERE (((TDates.DatesDate)>=[TPer]![Perio1_du] And (TDates.DatesDate)<=[TPer]![Perio1_au]) "
         sql = sql & "AND ((IIf(Weekday([TDates]![DatesDate])=1 And [TPer]![PeriodeDim]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=2 "
         sql = sql & "And [TPer]![PeriodeLun]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=3 And [TPer]![PeriodeMar]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=4 "
         sql = sql & "And [TPer]![PeriodeMer]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=5 And [TPer]![PeriodeJeu]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=6 "
         sql = sql & "And [TPer]![PeriodeVen]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=7 And [TPer]![PeriodeSam]=-1,[TPer]![PeriodeType],Null)))))))) Is Not Null))"
         DoCmd.RunSQL sql

02/04/2009, 17h16
Jean-Philippe André

salut,
à la place des boucles IIF imbriquées, utilises l'opérateur OR ;)

ok merci

j'aurai du présenter différemment le post
désolé

y-a t'il une différence de performance entre ces 2 codes : le code du 1er post et ce code ci-dessous qui ont le même résultat ?

imaginons que j'ai remplacer les boucles IFF imbriquées par des OR

merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim rs As New ADODB.Recordset
 
 rs.Open "select  * from TPer", CurrentProject.Connection
    Do While Not rs.EOF
        sql = "update TDates set DatesPeriode = '" & rs!PeriodeType & "' where " & _
            "(DatesCasCalendrier =" & rs!PeriodeCasCalendrier & ") and (" & _
            "(DatesDate >=" & rs!Perio1_du * 1 & " and DatesDate <= " & rs!Perio1_au * 1 & ") and (" & _
            "weekday(DatesDate) = " & -rs!PeriodeLun * 2 & " or " & _
            "weekday(DatesDate) = " & -rs!PeriodeMar * 3 & " or " & _
            "weekday(DatesDate) = " & -rs!PeriodeMer * 4 & " or " & _
            "weekday(DatesDate) = " & -rs!PeriodeJeu * 5 & " or " & _
            "weekday(DatesDate) = " & -rs!PeriodeVen * 6 & " or " & _
            "weekday(DatesDate) = " & -rs!PeriodeSam * 7 & " or " & _
            "weekday(DatesDate) = " & -rs!PeriodeDim * 1 & "))"
        DoCmd.RunSQL sql
        rs.MoveNext
    Loop

02/04/2009, 22h03
Jean-Philippe André

la première méthode sera la plus rapide :)

merci

je bute sur l'adaptation du 1er code avec les boucles IFF imbriquées vers le OR

j'en suis pour l'instant là mais je bloque sur la fin

pourriez-vous m'aider svp ?
merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
sql = "UPDATE TDates INNER JOIN TPer ON TDates.DatesCasCalendrier = TPer.PeriodeCasCalendrier SET TDates.DatesPeriode = [TPer]![PeriodeType] "
         sql = sql & "WHERE TDates.DatesDate>=[TPer]![Perio1_du] And TDates.DatesDate<=[TPer]![Perio1_au] "
         sql = sql & "AND Weekday[TDates]![DatesDate]=1 And [TPer]![PeriodeDim]=-1 "
         sql = sql & "OR Weekday[TDates]![DatesDate]=2 And [TPer]![PeriodeLun]=-1 "
         sql = sql & "OR Weekday[TDates]![DatesDate]=3 And [TPer]![PeriodeMar]=-1 "
         sql = sql & "OR Weekday[TDates]![DatesDate]=4 And [TPer]![PeriodeMer]=-1 "
         sql = sql & "OR Weekday[TDates]![DatesDate]=5 And [TPer]![PeriodeJeu]=-1 "
         sql = sql & "OR Weekday[TDates]![DatesDate]=6 And [TPer]![PeriodeVen]=-1 "
         sql = sql & "OR Weekday[TDates]![DatesDate]=7 And [TPer]![PeriodeSam]=-1 "
 
         sql = sql & " ????"
 
         DoCmd.RunSQL sql

salut,
en fait lorsque tu utilises les OR, il faut penser à mettre des parenthèses pour partitionner les critères ;)

Code:

1
2
3
4
5
6
7
8
9
sql = "UPDATE TDates INNER JOIN TPer ON TDates.DatesCasCalendrier = TPer.PeriodeCasCalendrier SET TDates.DatesPeriode = [TPer]![PeriodeType] "
         sql = sql & "WHERE TDates.DatesDate>=[TPer]![Perio1_du] And TDates.DatesDate<=[TPer]![Perio1_au] "
         sql = sql & "AND ((Weekday[TDates]![DatesDate]=1 And [TPer]![PeriodeDim]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=2 And [TPer]![PeriodeLun]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=3 And [TPer]![PeriodeMar]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=4 And [TPer]![PeriodeMer]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=5 And [TPer]![PeriodeJeu]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=6 And [TPer]![PeriodeVen]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=7 And [TPer]![PeriodeSam]=-1)) "

ok mais je n'arrive pas à adapter le bout de code de la fin

Code:

,Null)))))))) Is Not Null))"

si je ne met rien de plus que le code ci-dessous les période ne sont pas affecté correctement :

Code:

1
2
3
4
5
6
7
8
9
10
sql = "UPDATE TDates INNER JOIN TPer ON TDates.DatesCasCalendrier = TPer.PeriodeCasCalendrier SET TDates.DatesPeriode = [TPer]![PeriodeType] "
         sql = sql & "WHERE TDates.DatesDate>=[TPer]![Perio1_du] And TDates.DatesDate<=[TPer]![Perio1_au] "
         sql = sql & "AND ((Weekday[TDates]![DatesDate]=1 And [TPer]![PeriodeDim]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=2 And [TPer]![PeriodeLun]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=3 And [TPer]![PeriodeMar]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=4 And [TPer]![PeriodeMer]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=5 And [TPer]![PeriodeJeu]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=6 And [TPer]![PeriodeVen]=-1) "
         sql = sql & "OR (Weekday[TDates]![DatesDate]=7 And [TPer]![PeriodeSam]=-1))"
DoCmd.RunSQL sql

merci de votre aide