Discussion :

[olivierm67]

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 :

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

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

[olivierm67]

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 :

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

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