Pb de date et select...

Question

J'interroge une base Acces avec VB5.
Mais pour creer un recordsource basé sur une instruction select avec comme
paramètres une comparaison de date, je dois présenter la date en mm/jj/aaaa alors que mes paramètres
régionnaux sont en jj/mm/aaaa.

nio · Answer

il faut modifier le format de la date avec par exemple la fonction suivante

'#############################################
' pour mettre les dates dans un format SQL
'#############################################

Public Function DatumFormat(ByVal Datum As String) As String
    DatumFormat = _
        "#" & Mid$(Datum, 4, 2) & _
        "/" & Left$(Datum, 2) & _
        "/" & Right$(Datum, 2) & "#"
End Function

puis ecrire la requete SQL du type :

      RequeteSQL_Contrat = "SELECT LesContrats.*, LesVendeurs.IdVendeur, LesProduits.TypeProduit, LesProduits.IdProduit FROM LesContrats, LesVendeurs, LesProduits " & _
                           "WHERE LesContrats.IdVendeur = LesVendeurs.IdVendeur " & _
                           "AND LesContrats.IdProduit = LesProduits.IdProduit " & _
                           "AND LesVendeurs.Surnom = " & "'" & SurnomVendeur & "'"

        RequeteSQL_Période = " AND DateDébutContrat >= " & DatumFormat(DébutPériode) & _
                             " AND DateDébutContrat <= " & DatumFormat(FinPériode) & _
                             " ORDER BY DateDébutContrat "

      Requete = RequeteSQL_Contrat  & RequeteSQL_Période 

A+

Pb de date et select...

1 réponse

Discussions similaires