Archives mensuelles : décembre 2006

Faire du vélo en 7 jours : 1er jour

Bon comment dire…

« Mais Papa, tu retires les petites roulettes ? mais Papa, tu retires aussi les pédales ? Tu ne veux pas retirer la selle ? »

Après 3 minutes : « Pfouuu… Papa, je suis crevé ! c’est fatiguant sans les pédales… »

Assis sur sa selle rabaissée, à pousser avec les deux pieds en même temps ou un après l’autre, on s’est fait remarquer… On (ou plutôt lui..) a tenu 30 minutes, et encore avec des ruses du genre « Allez tu essaies de faire la distance en 5 étapes pour qu’il allonge la foulée…

Aujourd’hui, on change de parc, on va au jardin des plantes. 

Faire du vélo comme Zou

Facile direz vous !

Oui, mais rappelez vous quand vous aviez 3 ou 4 ans… Ah, ça devient moins simple ?

Mais qui est Zou ?

C’est le petit zèbre de Michel Gay. Ce libre est dans la collection « l’école des loisirs » à laquelle on peut abonner son enfant en maternelle. Un livre par mois de octobre à mai.

Dans ce livre, Michel Gay nous livre sa méthode pour apprendre à faire du vélo, et j’avoue que j’y crois. La méthode consiste à baisser la selle pour que les pieds touchent bien par terre, à retirer les roulettes et les pédales (!) En gros comme sur l’image. L’enfant découvre beaucoup mieux l’équilibre, se préocuppe plus du guidon que des pédales. Ensuite, une fois l’équilibre intégré, on ajoute les pédales.

Je vais donc experimenter cette méthode avec Titouan, 4 ans tout juste, pendant les vacances de noël. Une heure chaque matin, au parc du Gué de Molny    ici

Bien évidement, vous aurez le droit à un petit compte-rendu chaque jour !

Sinon, vous avec la méthode classique, Enzo et son Papa en font les frais… Parce que je ne sais pas si vous avez déjà poussé un enfant en vélo pendant quelques centaines de mêtres…

 

Problème de date dans une base de données

Une autre problématique dès que l’on travaille sur plusieurs bases (Access, Sql Server, Oracle) et que l’on est confronté à des langues différentes au niveau des serveurs… Même le LCID = 1036 (qui permet d’imposer la langue utilisée par le serveur web) ne vient pas à bout de certaines architectures ! En plus la syntaxe SQL de la langue n’est pas identique selon les bases. Donc pour éviter de voir le 7 mai se transformer en 5 juillet, voilà une solution, l’utilisation du format ODBC compatible avec les trois bases citées :

L’idée est de transformer un format de date jj/mm/aaaa ou mm/dd/yyyy en un format identique : {d ‘aaaa-mm-jj} {d ‘yyyy-mm-dd} ou un format comportant les heures : {ts ‘yyyy-mm-dd hh:mm:ss’} ou {ts ‘aaaa-mm-jj hh:mm:ss’}

La requête SQL devient  « … WHERE champ > {d ‘2006-08-23} « 


‘****************************************************************************************************
‘ Fonction     : strODBCDate
‘ Objet        : Preparer l’insertion d’une date dans une requete SQL
‘ Entrée       :
‘               – dtmParam : date a traiter
‘ Retour       : chaine a inserer directement dans le code SQL
‘ Sortie       :
‘ Commentaires : le format final est {d ‘aaaa-mm-jj’}
‘                quelle que soit la langue d’installation de la base cible
‘ Exemple      :
‘****************************************************************************************************
Function strODBCDate(ByVal dtmParam)
 Dim strOut
 If IsNull(dtmParam) Or dtmParam= » » Then
  strOut = Null
 Else
  If Not IsDate(dtmParam) Then
   strOut = Null
  Else
   Dim strMonth, strDay
   Dim dtmMonth, dtmDay
   ‘ Traitement du mois si sur un seul chiffre
   dtmMonth = Month(dtmParam)
   If dtmMonth<10 Then
    strMonth = « 0 » & CStr(dtmMonth)
   Else
    strMonth = CStr(dtmMonth)
   End If
   ‘ Traitement du jour si sur un seul chiffre
   dtmDay = Day(dtmParam)
   If dtmDay<10 Then
    strDay = « 0 » & CStr(dtmDay)
   Else
    strDay = CStr(dtmDay)
   End If
   ‘ Creation de la chaine de retour
   strOut = « {d ‘ » & CStr(Year(dtmParam)) & « – » & strMonth & « – » & strDay & « ‘} »
  End If
 End If
 strODBCDate = strOut
End Function


‘=======================================================================================
‘ Fonction     : strODBCDateTime
‘ Objet        : Preparer l’insertion d’une date dans une requete SQL
‘ Entrée       :
‘               – dtmParam : date et heure a traiter
‘ Retour       : chaine a inserer directement dans le code SQL
‘ Sortie       :
‘ Commentaires : le format final est {ts ‘aaaa-mm-jj hh:mm:ss’}
‘                quelle que soit la langue d’installation de la base cible
‘ Exemple      :
‘=======================================================================================
Function strODBCDateTime(ByVal dtmParam)
 Dim strOut
 If IsNull(dtmParam) Or dtmParam= » » Then
  strOut = Null
 Else
  If Not IsDate(dtmParam) Then
   strOut = Null
  Else
   Dim strMonth, strDay
   Dim dtmMonth, dtmDay
   Dim strHour, strMinutes, strSecondes
   strHour =hour(dtmParam)
   strMinutes= minute(dtmParam)
   strSecondes = second(dtmParam)
   ‘ Traitement du mois si sur un seul chiffre
   dtmMonth = Month(dtmParam)
   If dtmMonth<10 Then
    strMonth = « 0 » & CStr(dtmMonth)
   Else
    strMonth = CStr(dtmMonth)
   End If
   ‘ Traitement du jour si sur un seul chiffre
   dtmDay = Day(dtmParam)
   If dtmDay<10 Then
    strDay = « 0 » & CStr(dtmDay)
   Else
    strDay = CStr(dtmDay)
   End If
   If strHour<10 Then
    strHour = « 0 » & CStr(strHour)
   Else
    strHour = CStr(strHour)
   End If
   If strMinutes<10 Then
    strMinutes = « 0 » & CStr(strMinutes)
   Else
    strMinutes = CStr(strMinutes)
   End If
   If strSecondes<10 Then
    strSecondes = « 0 » & CStr(strSecondes)
   Else
    strSecondes = CStr(strSecondes)
   End If
   ‘ Creation de la chaine de retour
   strOut = « {ts ‘ » & CStr(Year(dtmParam)) & « – » & strMonth & « – » & strDay &  » « & strHour & « : »& strMinutes & « : »& strSecondes& »‘} »
  End If
 End If
 strODBCDateTime = strOut
End Function