Format datetime non respecté

Format datetime non respecté - Perl - Programmation

Marsh Posté le 02-07-2008 à 09:55:07    

Bonjour à tous,
 
J'ai fait un petit script CGI qui me remonte les données d'une BD SQL SERVER.
Le problème est que le champ date dans la BD est au format datetime donc 2008-07-01 09:36:01.000
mais lors de l'affichage, il me sort la date au format Jul 1 2008 09:36AM
 
Avez-vous une idée.
 
Voici le script tout bête :

Code :
  1. #!/usr/bin/perl -w
  2. print "Content-type: text/html\n\n";
  6. use strict;
  7. use CGI::Carp qw(fatalsToBrowser);
  8. use DBI;
  12. my $data_source = q/dbi:Sybase:MSSQL-TEST/;
  13. my $user = q/sa/;
  14. my $password = q/admin/;
  16. # Connect to the data source and get a handle for that connection.
  17. my $dbh = DBI->connect($data_source, $user, $password)
  18.      or die "Can't connect to $data_source: $DBI::errstr";
  19. #
  20. #
  21.      # Connexion à la base TEST
  22.      my $use = "use TEST";
  23.      my $sth = $dbh->prepare($use) or die "Can't connect to database: $DBI::errstr";
  24.      $sth->execute();
  26.      my $sql_inconnu = "SELECT [Date_Heure], [Compteur], [Type_Evenement], [Numero], [Valeur], [Numero_Site], [Description] FROM [TEST].[test].[MS_RETRO] WHERE [Type_Evenement] = 101 and [Description] like '\%inconnu\%' order by [Date_Heure]";
  27. #
  28.      # Prepare the statement.
  29.      $sth = $dbh->prepare($sql_inconnu) or die "Can't prepare statement: $DBI::errstr";
  31.      # Execute the statement.
  32.      if($sth->execute())#Execution de la commande
  33.      {
  34.         my $names = $sth->{'NAME'};#Nom de la colonne
  35.         my $numFields = $sth->{'NUM_OF_FIELDS'};#Nombre de champs
  36.         print "<table border='1'>\n<tr>\n";
  37.         print "<tr><th colspan='7'style='background-color:red'>Etat des Inconnus</th></tr>";
  38.         for (my $i = 0;  $i < $numFields;  $i++)
  39.         {
  40.                 print("<td>$$names[$i]</td>" );#Affichage du nom de chaque champs
  42.         }
  43.         print "</tr>\n<tr>\n";
  44.         while (my $ref = $sth->fetchrow_arrayref)#Récupère la ligne comme une référence de tableau de champs.
  45.         {
  46.                 for (my $j = 0;  $j < $numFields;  $j++)
  47.                 {
  48.                         print("<td>$$ref[$j]</td>" );#Affiche les données de chaque champs
  49.                 }
  50.         print "</tr>";
  51.         }
  52. print "</table>";
  53. }


Reply

Marsh Posté le 02-07-2008 à 09:55:07   

Reply

Marsh Posté le 02-07-2008 à 12:01:22    

ca m'a plus l'air d'un problème de formattage de date côté SQL Server

Reply

Marsh Posté le 02-07-2008 à 12:16:02    

Peut être mais je n'en suis pas sure.
 
J'ai un script en php faisant également une requête sur cette base, et la remontée de date se fait sans modif.
 
 

Reply

Marsh Posté le 02-07-2008 à 12:52:24    

Citation :

Le problème est que le champ date dans la BD est au format datetime donc 2008-07-01 09:36:01.000

datetime, c'est stoqué en interne sur 4 octets par SQL Server
C'est SQL Server qui fait par défaut le format de sortie que tu as: http://msdn.microsoft.com/en-us/li [...] L.80).aspx
0 (default) mon dd yyyy hh:miAM (or PM)
Il doit y avoir moyen de modifier ça, mais je ne suis pas spécialiste.
A+,


Message édité par gilou le 02-07-2008 à 13:09:36

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 02-07-2008 à 13:43:56    

CONVERT(DATETIME,date_heure,format) et voir le lien de gilou pour la liste des formats possibles.

 

Sinon voir les variables d'environnements de DBD, je crois  que tu en as une sur le format de sortie des dates.


Message édité par anapajari le 02-07-2008 à 13:44:55

---------------
Software and cathedrals are much the same - first we build them, then we pray.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed