Variable Date et Base de données (MySQL)

Bonjour,

Je vous écris car je bloque sur un VBScript.
Celui-ci devrait me permet d'insérer la date actuelle (dans l'idéal avec l'heure) dans une base de données (MySQL).

J'ai essayé différentes méthodes :
- Valeur de la cellule de destination : DATE, DATETIME
- Utilisation de fonction VBScript : Date, FormatDateTime, DateValue

Côté code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

'Connexion à la base set objConn = CreateObject("ADODB.Connection") objConn.Open "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=test_date;UID=user;PWD=mdp;" set objRS = CreateObject("ADODB.Recordset") objRS.Open "employe", objConn   'Récupération de la date et insertion tmp = (FormatDateTime(Date,2))   commandText = "INSERT INTO employe(date) VALUES('" + temp + "')"   objConn.Execute commandText set objRS = Nothing objConn.Close

---

Est-il possible de réussir à intégrer la date dans la base sans la transformer en String ?

Merci pour votre aide ;)

Bonjour,

J'ai trouvé cette fonction sur internet.
Assez contraignante.
Le problème était apparemment du au format de sortie de la date ('/' au lieu de '-').

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

function toSQLDate(dateInput)   strYear = CStr(Year(dateInput)) strMonth = CStr(Month(dateInput)) strDay = CStr(Day(dateInput)) strHour = CStr(Hour(dateInput)) strMinute = CStr(Minute(dateInput)) strSecond = CStr(Second(dateInput))   If Len(strhour) = 1 Then strhour = "0" & strhour ElseIf Len(strhour) = 0 Then strhour = "00" End If   If Len(strMinute) = 1 Then strminute = "0" & strMinute ElseIf Len(strMinute) = 0 Then strminute = "00" End If   If Len(strSecond) = 1 Then strsecond = "0" & strSecond ElseIf Len(strSecond) = 0 Then strsecond = "00" End If   If Len(strDay) = 1 Then strday = "0" + strDay ElseIf Len(strDay) = 0 Then strday = "00" End If   If Len(strMonth) = 1 Then strmonth = "0" & strMonth ElseIf Len(strMonth) = 0 Then strmonth = "00" End If   toSQLDate = strYear + "-" + strmonth + "-" + strday + " " + strhour + ":" + strminute + ":" + strsecond   end function

---

:ccool: