Discussion :

[gaetan.tranvouez]

slt à tous

J'aimerais connaitre la requete pour recuperer la date du serveur mysql???

Merci à tous

[gaetan.tranvouez]

En fait j'ai compris un truc, j'ai du code en vb qui doit me faire recuperer la date dans une bdd mysql, mais je recupere cette date:

2002-06-06 et en fait je pense que ca vient d'une mauvaise forme, n'y a t'il pas moyen de changer l'affichage de la date en dd-mm-yyyy comme ca je pourais obtenir 02-06-2006


voila mon 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Public Function Ecrire(d, Heure, CdProd As String, Rapps() As String) As String
On Error GoTo line1
Set cd.ActiveConnection = cnx
Dim msg As String
msg = "OK"
d = Now
 
cd.CommandText = "INSERT INTO infos (CodeProduit, Date, Heure, Rapport1, Rapport2, Rapport3) VALUES ('" & CdProd & "','" & d & "','" & Heure & "','" & Rapps(0) & "','" & Rapps(1) & "','" & Rapps(2) & "');"
cd.Execute
GoTo lastline
line1:
msg = cnx.Errors.Item(0)
 
lastline:
cnx.Errors.Clear
Ecrire = msg
End Function
Public Function Connecter() As String
On Error GoTo line1
Dim msg As String
msg = "OK"
cnx.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};database=" & NameDB & ";server=" & Server & ";uid=" & NameUser & ";pwd=" & Passwd & ";"
cnx.Open
GoTo lastline
 
line1:
msg = cnx.Errors.Item(0)
lastline:
Connecter = msg
cnx.Errors.Clear
 
End Function

[gaetan.tranvouez]

Cela n'est plus la peine, j'ai juste fait une modification dans mon panneau de configuration , j'ai changé le format de la date et cela fonctionne parfaitement
j'obtient bien 02-06-2006

[ThierryAIM]

vérifie quand même que pour un jour > 12, tu n'obtiens pas : 06-13-2006 (au format mm-dd-yyyy) au lieu de 13-06-2006

[gaetan.tranvouez]

Nan j'obtiens bien la bonne date dans ma bdd mais merci du conseil Thierry