UPDATE SQL récupérer enregistrement précédent

[ragemind]

Bonjour,

J'aurais besoin d'aide. En Access 2003, j'ai une table dont la structure est comme suit (j'ai mis des valeurs en exemple) :

ID--------Date ---------Valeur---------ValeurPrecedent
1-------01/01/2011-------- toto
2-------01/01/2011-------- titi
3-------01/01/2011--------lulu
1-------02/01/2011--------manu
2-------02/01/2011--------lili
3-------02/01/2011------- adele
1-------03/01/2011--------lolo
2-------03/01/2011-------nono
3-------03/01/2011--------lala

Avec valeurPrecedent à NULL

Comment faire (avec instruction SQL UPDATE si possible) pour mettre à jour le champ ValeurPrecedent à partir de la date 02/01/2011 pour que ce champ prenne la valeur du champ "Valeur" à la date précédente et pour le même ID ?

C'est à dire :

ID--------Date ---------Valeur---------ValeurPrecedent
1-------01/01/2011-------- toto
2-------01/01/2011-------- titi
3-------01/01/2011--------lulu
1-------02/01/2011--------manu-----------toto
2-------02/01/2011--------lili---------------titi
3-------02/01/2011------- adele------------lulu
1-------03/01/2011--------lolo--------------manu
2-------03/01/2011-------nono-------------lili
3-------03/01/2011--------lala--------------adele



Je vous remercie

[al1_24]

Voici la requête que tu pourrais exécuter lorsque tu insères une nouvelle valeur dont l'ID existe déjà

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
INSERT  INTO  matable
    (   id
    ,   date
    ,   valeur
    ,   valeurprecedent
    )
SELECT  src.id
    ,   :nouvelledate
    ,   :nouvellevaleur
    ,   src.valeur
FROM    matable AS  src
WHERE   src.id  = :idmodifié
    AND EXISTS
        (   SELECT  1
            FROM    matable AS anc
            WHERE   src.id  = anc.id
            HAVING  src.date = MAX(anc.date)
        )
;

Je te laisse réfléchir à la manière de faire quand l'ID n'existe pas et à la requête pour l'UPDATE

[ragemind]

Bonjour al1_24,

Merci de ta réponse mais au fait, j'aurais du donner un exemple plus réaliste. En pratique, le champ valeur ne contient pas du texte mais des chiffres (des cours de bourses). Donc une ligne doit ressembler à cela

ID-------------------Date-------------Valeur----ValeurPrecedent-------
NomEntreprise-------02/01/2011--------40

Et les valeurs sont insérées une bonne fois pour toute dans la table (donc j'aurai ni de nouvelles date à ajouter ni de nouvelles valeurs car les données sont déjà présentes dant la table.

Je ne sais pas si ton code peut être adapter à mon cas (j'ai réfléchi et je ne trouve pas de solution )

As-tu une idée ?

Merci beaucoup !

[iberserk]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
UPDATE matable
SET valeurPrecedente=(SELECT valeur
                                FROM matable ANT
                                WHERE ANT.ID=matable.ID
                                   AND matable.[Date]=(SELECT MAX([DATE])
                                                                 FROM matable ANTMAX
                                                                 WHERE ANTMAX.ID=matable.id 
                                                                    AND ANTMAX.[date]<matable.[date])
WHERE [date]>='02/01/2011'
   AND EXISTS(SELECT * 
                     FROM matable A
                     WHERE A.ID=matable.ID AND [date]<'02/01/2011')

[ragemind]

Merci beaucoup iberserk pour la réponse mais j'ai essayé et j'ai l'erreur en image jointe. J'ai tout essayé mais je n'arrive pas à voir où est le problème.

J'ai mis aussi en pièce jointe l'image de ma table.

Voici le code (VBA Access) que j'ai écrit :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 sSQL = "UPDATE matable " & _
            "SET ValeurPrec=(SELECT Valeur " & _
                                "FROM matable ANT " & _
                                "WHERE ANT.ID = matable.ID " & _
                                   "AND matable.LaDate=(SELECT MAX(LaDate) " & _
                                                                 "FROM matable ANTMAX " & _
                                                                 "WHERE ANTMAX.ID = matable.ID " & _
                                                                    "AND ANTMAX.LaDate < matable.LaDate) " & _
            "WHERE LaDate >= 2 " & _
            "AND EXISTS(SELECT * " & _
                     "FROM matable A " & _
                     "WHERE A.ID=matable.ID AND LaDate < 2));"
 
    DoCmd.RunSQL sSQL

En espérant votre aide et merci beaucoup !

[iberserk]

Essayez ça: (parenthèse fermante mal placée)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
sSQL = "UPDATE matable " & _
            "SET ValeurPrec=(SELECT Valeur " & _
                                "FROM matable ANT " & _
                                "WHERE ANT.ID = matable.ID " & _
                                   "AND matable.LaDate=(SELECT MAX(LaDate) " & _
                                                                 "FROM matable ANTMAX " & _
                                                                 "WHERE ANTMAX.ID = matable.ID " & _
                                                                    "AND ANTMAX.LaDate < matable.LaDate)) " & _
            "WHERE LaDate >= 2 " & _
            "AND EXISTS(SELECT * " & _
                     "FROM matable A " & _
                     "WHERE A.ID=matable.ID AND LaDate < 2);"
 
    DoCmd.RunSQL sSQL

[semaphore1984]

Bonjour,

pour ma part je peux te proposer cette requête qui marche (testée en vrai)
mais avec Mysql (je n'ai pas Access 2003)
Je pense que tu peux t'en inspirer en remplaçant la fonction timediff par son équivalent, et peut-être en changeant la manière dont est faite la jointure (par exemple avec un from au lieu du update table1 t, table1, f
le seul hic serait que l'update de Access ne puisse référencer plusieurs tables.

Code :

1
2
3
4
5
UPDATE tableautoupdate t, tableautoupdate f
SET t.valeurprecedente = f.valeur
WHERE
  t.ID = f.ID
  AND DATEDIFF(t.datecol,f.datecol) = 1;

Cordialement