Concatener une date et l'enregistrer dans une base

Question

Salut,

J'ai un ensemble de trois listes déroulantes qui font partie d'un formulaire :

- jour_reunion
- mois_reunion
- annee_reunion

Lors du traitement du formulaire je concatène le contenu des trois listes :

Dim date_reunion
date_reunion = "'" & Request("jour_reunion") & "'/'" & Request("mois_reunion") & "'/'" & Request("annnee_reunion") & "'"

Ensuite je veux réutiliser date_reunion pour faire un enregistrement dans une table Access

"INSERT INTO Actions_Proposees(RefAction, LibelleAction, DateReunion) VALUES ('" & ucase(Request("ref")) & "','" & Request("lib") & "', =date_reunion);"

Evidemment ça marche pas...  :(

Si vous avez une idée...

kaskran · Answer

je te conseille de faire ca :
Dim reunion as string
Dim date_reunion as datetime
reunion="'" & Request("jour_reunion") & "'/'" & Request("mois_reunion") & "'/'" & Request("annnee_reunion") & "'"

date_reunion=convert.ToDateTime(reunion)

est ensuite tu l'insert dans ta base de donnée.
Tu verra la methode convert est tres puissante est te servira souvant

i2a03b · Answer

ça ne marche pas ... 

j'utilise ASP en VBscript et je n'a pas accès à cette méthode VB

j'essaie avec la fonction Cdate(date) qui est sensée convertir en date un string style MM/JJ/AAAA

mais ça déconne encore :
en fait il me met comme message d'erreur que je ne donne pas de valeur pour le champ DateReunion de la table

i2a03b · Answer

Voilà ce que je fais :

reunion="#'" & Request("mois_reunion") & "'/'" & Request("jour_reunion") & "'/'" & Request("annnee_reunion") & "'#"

date_reunion = CDate(reunion)

Voilà l'erreur :
Type incompatible: 'CDate'

Voilà la description de CDate :
Use the CDate function to convert a string to a date
Use date literals such as #10/19/1962#

HELP !!! :(

i2a03b · Answer

C'est bon j'ai trouvé l'erreur !

Concatener une date et l'enregistrer dans une base

4 réponses

Votre réponse

Discussions similaires