Discussion :

[brak__]

Bonjour,
Je souhaiterai savoir comment insérer la date du jour a chaque nouvel enregistrement d'une table. J'ai en effet une requête SELECT, qui selectionne un certain nombre d'enregistrements en comparant 2 tables, suivi d'un INSERT INTO de ces enregistrements dans une nouvelle table (table de sauvegarde) ou je souhaiterai qu'il m'insère en même temps la date du jour.

Voila ma requete SELECT et INSERT INTO mais je ne sais pas ou écrire l'instruction pour l'ajout de la date :

Code :

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

1
2
3
4
5
'Exécution de la requête3 (insertion)
rst.Open "SELECT gdo AS Expr2 FROM NouveauALLgdo WHERE permut_typ='HS'", cnx
While Not (rst.EOF)
  rst3.Open ("INSERT INTO Permut_HS(gdo) VALUES('" & rst("Expr2") & "');"), cnx
  rst.MoveNext

Si vous avez un conseil, une réflection ...
Merci

[Kloun]

Fait le tout en une seule requête : insert into ... select ...

[brak__]

Oui mais ce n'est pas mon problème, je n'arrive pas a insérer la date

[Heureux-oli]

Le plus simple, c'est de mettre dans la valeur par défaut du champ date de ta table

Code :

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

now()

[brak__]

De ce type :

Code :

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

1
2
3
4
5
'Exécution de la requête3 (insertion)
rst.Open "SELECT gdo AS Expr2 FROM NouveauALLgdo WHERE permut_typ='HS'", cnx
While Not (rst.EOF)
  rst3.Open ("INSERT INTO Permut_HS(date,gdo) VALUES('" & Now() & "','" & rst("Expr2") & "');"), cnx
  rst.MoveNext

????

[Kloun]

Code :

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

1
2
insert into Permut_HS (gdo, DateJour) 
SELECT gdo, now FROM NouveauALLgdo WHERE permut_typ='HS'

[brak__]

Mais ma requete INSERT INTO insere les enregistrements selectionné dans ma requete SELECT, placé la requete SELECT apres INSERT INTO est fesable ?

[Kloun]

Ben oui.
Ca te fait un insert de masse . Beaucoup mieux qu'une boucle sur un recordset.

[brak__]

ça ne marche pas, ce code n'est pas compatible avec le code du formulaire ; j'effectue une requete mais elle est ecrite dans mon formulaire

[DMboup]

En utilisant ton recordset, tu peux avoir plus performant de la manière suivante;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'Exécution de la requête3 (insertion)
rst3.Open ("Permut_HS")
rst.Open "SELECT gdo AS Expr2 FROM NouveauALLgdo WHERE permut_typ='HS'", cnx
Do until rst.EOF
  rst3.AddNew
  rst3("date") = Now()
  rst3("gdo")=rst("Expr2")
  rst3.Update
 
  rst.MoveNext
Loop

Sinon la solutin de Kloun est correcte.

[brak__]

je ne comprend vraiment pas comment insérer cette date avec chaque enregistrements, a chaque fois il me dit une erreur de syntaxe INSERT INTO, ou des erreurs de point virgule alors qu'il n'y en a pas... je ne vois pas comment faire ....

[random]

Code :

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

1
2
3
4
5
 
 
INSERT INTO autretable ( champ1, champ2, madate )
SELECT champ1, champ2, Now() AS madate
FROM matable;

[Toftof]

Bonjour,

Je viens mettre mon grain de sel car j'ai joliment l'impression que tu essaie de mettre des pommes de terre dans un filet à carottes.

Plaisanterie mise à part, de quel type est ton champ DATE.
Parce que si tu essaies de mettre une date dans un champs texte ou, ce qui semble être le cas, du texte dans un champ date, cela ne le fait pas vraiment.

Syntaxe
a/ si champ texte

Code :

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

 "SELECT '" & now() & "'"

(ne pas oublier les cottes simples!)
ou (j'aime mieux mais bon, chacun ses choix)

Code :

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

format$(now,'yyyymmdd')

b/ si champ date:

Code :

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

 "SELECT Now() ""

[brak__]

Le code de DMboop a l'air d'être aproprié à mon projet, mais il n'entraine aucune modification de la table Permut_HS :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
'Exécution de la requête3 (insertion)
rst3.Open "SELECT gdo AS Expr2 FROM NouveauALLgdo WHERE permut_typ='HS'", cnx
rst.Open ("Permut_HS")
Do Until rst.EOF
 
  rst.AddNew
  rst("date") = Now()
  rst("gdo") = rst3("Expr2")
  rst.Update
  rst.MoveNext
Loop

[DMboup]

Do Until rst.EOF

rst.MoveNext
Loop

C'est plutôt rst3.EOF et rst3.MoveNext

[brak__]

Youpiiiiiiiii ça marche, merci tout le monde !!! Il y avait quelques modifications encore, voici le code qui marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
'Exécution de la requête3 (insertion)
rst.Open "SELECT gdo AS Expr2 FROM NouveauALLgdo WHERE permut_typ='HS'", cnx
Do Until rst.EOF
  Set rst2 = CurrentDb.OpenRecordset("Permut_HS")
  rst2.AddNew
  rst2("date") = Now()
  rst2("gdo") = rst("Expr2")
  rst2.Update
  rst.MoveNext
Loop

Il fallait remplacer le code

Code :

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

1
2
3
4
5
rst.AddNew
  rst("date") = Now()
  rst("gdo") = rst3("Expr2")
  rst.Update
  rst.MoveNext

Pour qu'il y ai un recordset DAO, et non ADODB et donc ajouter

Code :

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

Set rst2 = CurrentDb.OpenRecordset("Permut_HS")

au lieu de

Code :

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

rst.Open ("Permut_HS")

[DMboup]

C'est bien ça sauf qu'il faut que tu sorte Set rst2 = CurrentDb.OpenRecordset("Permut_HS") de ta boucle.

[brak__]

Pourquoi et comment le sortir de ma boucle ?

[DMboup]

Pourquoi?
Parce que CurrentDb. utilisé après le Do; tu l'instancie plusieurs fois sans jamais le fermer (rst2.Close) avant le Loop. Si ton rst contient trop de ligne tu risque d'avoir des problèmes mémoire au bout de quelques minutes.

comment le sortir de ma boucle ?

En mettant jusque avant la boucle

Code :

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

1
2
3
4
5
6
 
 
Set rst2 = CurrentDb.OpenRecordset("Permut_HS")
 
Do Until rst.EOF
..

Voila!

[brak__]

Merci c'est nikel