Requete SQL... Traiter les données directement dans la requete

Question

Salut à tous, 

Alors voilà le problème: 

Je travaille sous VB avec une table access 'TTest' par exemple avec un champ 'CDate' qui contient une date.  Pour éviter les problèmes de conversion de date j'ai définis CDate non pas comme un champ date mais comme un entier long.  

Le prog VB prend une date, la convertit en entier long et l'envoie dans la table sous cette forme (c'est le seul moyen que j'ai trouvé pour éviter le problème du formatage différent des dates(si qqn à une autre soluce...)).  

Le problème est que j'aimerais récupérer cette date et la mettre directement dans une grille via une requete SQL du style "Select CDate from TTest". Si j'utilise cette requete, ma grille contiendra l'entier correspondant à la date. 

Donc je me demande si il est possible de modifier l'entier long en date dirrectement dans la requete SQL? 

Merci d'avance

cs_audrey07 · Answer

salut,
Je ne suis pas sure de moi mais essaye l'expression CDate(expression) As Date
Je pense que ca va transformer ton long en date.

stefsoft · Answer

essaye la fonction cdate

SELECT CDate(CDATE) FROM TTest

cs_C17 · Answer

Merci,

la commande fonctionne très bien!... à 1 jour près ;)

Je dois juste utiliser:

CDate(expression -1) As Date

@+

MerlinLRN · Answer

En utilisant un compossant calendar, voici une méthode pour formater la date comme dans Access :

'Affichage de la date formatée, extraite du calendrier

If Calendar1.Day < 10 Then
Label1.Caption = "0" & Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year
Label12.Caption = "0" & Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year
DATDEB = "0" & Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year
DATD = "0" & Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year
If Calendar1.Month < 10 Then
Label1.Caption = "0" & Calendar1.Day & "/" & "0" & Calendar1.Month & "/" & Calendar1.Year
Label12.Caption = "0" & Calendar1.Day & "/" & "0" & Calendar1.Month & "/" & Calendar1.Year
DATDEB = "0" & Calendar1.Day & "/" & "0" & Calendar1.Month & "/" & Calendar1.Year
DATD = "0" & Calendar1.Day & "/" & "0" & Calendar1.Month & "/" & Calendar1.Year
End If
Else
If Calendar1.Month < 10 Then
Label1.Caption = Calendar1.Day & "/" & "0" & Calendar1.Month & "/" & Calendar1.Year
Label12.Caption = Calendar1.Day & "/" & "0" & Calendar1.Month & "/" & Calendar1.Year
DATDEB = Calendar1.Day & "/" & "0" & Calendar1.Month & "/" & Calendar1.Year
DATD = Calendar1.Day & "/" & "0" & Calendar1.Month & "/" & Calendar1.Year
Else
Label1.Caption = Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year
Label12.Caption = Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year
DATDEB = Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year
DATD = Calendar1.Day & "/" & Calendar1.Month & "/" & Calendar1.Year
End If
End If

Requete SQL... Traiter les données directement dans la requete

4 réponses

Discussions similaires