Discussion :

[turbif08]

Bonjour,

Je fais un VBS dans lequel j'ai une InputBox qui demande une date, ensuite je fais une requête SQL pour aller l'insérer dans la BDD, sauf que l'InputBox sort une valeur de type string et que dans ma BDD il me faut un type date, comment faire ?

Merci d'avance

[ProgElecT]

Salut
Comment convertir une chaîne de caractères en date ?

[turbif08]

J'ai déjà essayé avec CDate, cela ne fonctionne pas.

[omen999]

bonjour,

extrait de la doc de CDate :

Utilisez la fonction IsDate pour déterminer si l'argument date peut être converti en date ou en heure. CDate reconnaît les littéraux de date et heure ainsi que certains nombres compris dans la plage des dates acceptables. Lors de la conversion d'un nombre en date, la partie entière du nombre est convertie en date. Toute partie fractionnaire du nombre est convertie en heure du jour, commençant à minuit.

CDate reconnaît les formats de date en fonction des paramètres régionaux de votre système. L'ordre correct du jour, du mois et de l'année ne peut être déterminé s'il est fourni dans un format différent de celui reconnu par votre paramétrage de date. Par ailleurs, un format de date de type long n'est pas reconnu s'il contient aussi la chaîne jour de la semaine.

L'exemple ci-dessous utilise la fonction CDate pour convertir une chaîne en date. En général, l'utilisation de chaînes pour stocker des dates et des heures (comme dans cet exemple) n'est pas recommandée. Utilisez des littéraux date et heure (comme #19/10/1962#, #16:45:23#).

MyDate = "19 octobre 1962" ' Définit la date.
MyShortDate = CDate(MyDate) ' Convertit en type de données Date.
MyTime = "16:35:47" ' Définit l'heure.
MyShortTime = CDate(MyTime) ' Convertit en type de données Date

© 2001 Microsoft Corporation. Tous droits réservés.

en résumé : une entrée avec InputBox doit faire l'objet d'un contrôle de validité préalable avec IsDate avant de tenter une conversion

[turbif08]

Je suis désolé, je débute vraiment je ne comprends pas.

En gros je suis bloqué ici :

al1 = InputBox("test1","test1")
al2 = InputBox("test2","test2")

ok1 = CDate(al1)
ok2 = CDate(al2)

strSQL = "INSERT INTO TEST_DATE (test1,test2) VALUES ("& ok1 &","& ok2 &")"

[ProgElecT]

Salut

Code :

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

strSQL = "INSERT INTO TEST_DATE (test1,test2) VALUES (#" & ok1 & "#,#" & ok2 & "#)"

me semble t-il, car je n'ai jamais eu a utiliser INSERT INTO

[turbif08]

J'ai aucun souci avec la requête SQL, c'est juste le formatage à la sortie de l'InputBox...

[turbif08]

Bon, j'ai finalement copié les données dans un varchar puis dans le date.