OVH Cloud OVH Cloud

Format de date sur SQL Serveur 2000

2 réponses
Avatar
Yves
Bonjour a tous,

Bon j'ai un petit problème avec le format de date sur SQL
Voici mon code

'*****************************************
'*** La date
'*****************************************
If ChkRechercheDate Then

Condition = Condition + 1
CONDITION3$ = Format(txtDateConstat, "ddmmyyyy")
strMois = Mid(CONDITION3$, 3, 2)
strJour = Left(CONDITION3$, 2)
strAnnee = Right(CONDITION3$, 4)

If UCase(strBaseDeDonnéeType) = "ACCESS" Or _
UCase(strBaseDeDonnéeType) = "ODBC" Then

LeTout = "#" + strMois + "-" + strJour + "-" + strAnnee + "#"
Else
'SQL
'aa/mm/jj
LeTout = "'" & strAnnee + "/" + strMois + "/" + strJour & "'"

lui il marche sur SQL francais
'jj/mm/aa
'LeTout = "'" & strJour + "/" + strMois + "/" + strAnnee & "'"
End If


Il existe t-il un fonction pour tout les SQL.



--
--
Cordialement
Yves

Programmeur/Analyste
_________________________________________
Merci de répondre dans le newsgroup ,`:O)

La FAQ VB
http://faq.vb.free.fr

API-Guide, indispensable pour les APIs
http://www.allapi.net/agnet/apiguide.shtml

Mz-Tools, add-in pour VB
http://www.mztools.com/

2 réponses

Avatar
Yves
Personne a une réponse


"Yves" a écrit dans le message de
news:
Bonjour a tous,

Bon j'ai un petit problème avec le format de date sur SQL
Voici mon code

'*****************************************
'*** La date
'*****************************************
If ChkRechercheDate Then

Condition = Condition + 1
CONDITION3$ = Format(txtDateConstat, "ddmmyyyy")
strMois = Mid(CONDITION3$, 3, 2)
strJour = Left(CONDITION3$, 2)
strAnnee = Right(CONDITION3$, 4)

If UCase(strBaseDeDonnéeType) = "ACCESS" Or _
UCase(strBaseDeDonnéeType) = "ODBC" Then

LeTout = "#" + strMois + "-" + strJour + "-" + strAnnee + "#"
Else
'SQL
'aa/mm/jj
LeTout = "'" & strAnnee + "/" + strMois + "/" + strJour & "'"

lui il marche sur SQL francais
'jj/mm/aa
'LeTout = "'" & strJour + "/" + strMois + "/" + strAnnee & "'"
End If


Il existe t-il un fonction pour tout les SQL.



--
--
Cordialement
Yves

Programmeur/Analyste
_________________________________________
Merci de répondre dans le newsgroup ,`:O)

La FAQ VB
http://faq.vb.free.fr

API-Guide, indispensable pour les APIs
http://www.allapi.net/agnet/apiguide.shtml

Mz-Tools, add-in pour VB
http://www.mztools.com/





Avatar
Jean-Marc
"Yves" a écrit dans le message de
news:
Personne a une réponse


"Yves" a écrit dans le message de
news:
> Bonjour a tous,
>
> Bon j'ai un petit problème avec le format de date sur SQL
> Voici mon code
>
> '*****************************************
> '*** La date
> '*****************************************
> If ChkRechercheDate Then
>
> Condition = Condition + 1
> CONDITION3$ = Format(txtDateConstat, "ddmmyyyy")
> strMois = Mid(CONDITION3$, 3, 2)
> strJour = Left(CONDITION3$, 2)
> strAnnee = Right(CONDITION3$, 4)
>
> If UCase(strBaseDeDonnéeType) = "ACCESS" Or _
> UCase(strBaseDeDonnéeType) = "ODBC" Then
>
> LeTout = "#" + strMois + "-" + strJour + "-" + strAnnee +


"#"
> Else
> 'SQL
> 'aa/mm/jj
> LeTout = "'" & strAnnee + "/" + strMois + "/" + strJour &


"'"
>
> lui il marche sur SQL francais
> 'jj/mm/aa
> 'LeTout = "'" & strJour + "/" + strMois + "/" + strAnnee &


"'"
> End If
>
>
> Il existe t-il un fonction pour tout les SQL.




Hello,

La réponse est: NON.

Le format de date (et même le code SQL) dépend d'une base de donnée
à l'autre: les choses sont différentes entre Oracle, DB2, Access, SQL
Server, etc.
Qui plus est, les choses sont même différentes pour une même database,
en fonction des "LOCAL SETTINGS" de la DB.
Pas de réponse définitive donc.

Il y a d'autres moyens, en stockant la date sous un format universel.

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."