IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

[VB6 Access] SQL where date>05/03/2009


Sujet :

VB 6 et antérieur

  1. #1
    Membre éclairé
    Inscrit en
    Février 2007
    Messages
    327
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 327
    Par défaut [VB6 Access] SQL where date>05/03/2009
    salut,
    comment trouver toute les date aprés la date dans text1
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    sql="select * from table1 where date>#" & text1.text & "#"
    j'ai ce code mais ca ne functionne pas


    merci d'avance

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

    D'abord, si Date est le nom d'un champ, change le, car c'est une fonction VB.
    La date doit être au format US (mm/dd/yyyy), pour cela on utilise principalement la fonction Format.

    Philippe

  3. #3
    Membre éclairé
    Inscrit en
    Février 2007
    Messages
    327
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 327
    Par défaut
    meme quand je change date ca marche pas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    sql="select * from table1 where dat>#" & text1.text & "#"
    merci

  4. #4
    Membre éprouvé
    Homme Profil pro
    Analyste développeur VB6, SQL, VB.NET, C#
    Inscrit en
    Avril 2003
    Messages
    111
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Analyste développeur VB6, SQL, VB.NET, C#
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2003
    Messages : 111
    Par défaut
    bonjour,

    ce ne serait pas un problème avec le format de la date qui n'est pas "conforme" avec celui attendu en sql?

    j'aurai plutôt opté pour ceci:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    sql="select * from table1 where dat>'" & CDate(text1.text) & "'"
    cdlt

  5. #5
    Membre éclairé
    Inscrit en
    Février 2007
    Messages
    327
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 327
    Par défaut
    svp pourquoi ce code ne functione pas

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    data1.RecordSource ="select* from table1 where jours>#06/03/2009#AND jours<#06/03/2009# OR jours=#06/03/2009 OR jours=#06/03/2009#"

  6. #6
    Invité
    Invité(e)
    Par défaut
    Re

    Déjà est-ce que jours est un champ de ta table qui est au format Date ?

    Ensuite regardes bien, il manque des espaces.

    Philippe

  7. #7
    Membre éclairé
    Inscrit en
    Février 2007
    Messages
    327
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 327
    Par défaut
    oui format Date/Heure

  8. #8
    Expert confirmé
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 127
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 127
    Par défaut
    ton
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Data1.RecordSource = "select * from table1 where " _
                    & "jours > #06/03/2009# " _
                & "AND jours < #06/03/2009# " _
                 & "OR jours =  06/03/2009# " _
                 & "OR jours = #06/03/2009#"
    Il te manque un # dans ta troisième condition, la quatrième condition répète ta troisiéme.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Data1.RecordSource = "select * from table1 where " _
                    & "jours > #06/03/2009# " _
                & "AND jours < #06/03/2009# " _
                 & "OR jours = #06/03/2009# "
    Ton algo est donc:
    Je veux obtenir les enregistrements si le champs JOURS:
    est plus grand que 06/03/2009 mais aussi qu'il soit plus petit que 06/03/2009 ou bien qu'il soit egal à 06/03/2009
    Je trouve cette condition bien curieuse, un jour plus grand et plus petit à la fois ?
    :whistle:pourquoi pas, pour remercier, un :plusser: pour celui/ceux qui vous ont dépannés.
    saut de ligne
    OOOOOOOOO👉 → → Ma page perso sur DVP ← ← 👈

  9. #9
    Membre éclairé
    Inscrit en
    Février 2007
    Messages
    327
    Détails du profil
    Informations forums :
    Inscription : Février 2007
    Messages : 327
    Par défaut
    j'ai le champ jours en date/heur avec ce code meme si les date exsiste j'ai aucun resultat

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    data.RecordSource = "SELECT * FROM table1 WHERE " _
    & "jours > #" & CDate(debu.Text) & "# " _
    & "AND jours < #" & CDate(fin.Text) & "# " _
    & "OR jours = #" & CDate(debu.Text) & "# " _
    & "OR jours = #" & CDate(fin.Text) & "# " _
    & "order by jours asc"

    merci

  10. #10
    Invité
    Invité(e)
    Par défaut
    Re et dans tes zones de texte, l'inversion mois/jour est-elle faite dans la date ?

    Philippe

  11. #11
    Membre Expert
    Avatar de Delbeke
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    2 675
    Détails du profil
    Informations personnelles :
    Âge : 71
    Localisation : France

    Informations forums :
    Inscription : Juillet 2006
    Messages : 2 675
    Par défaut
    Et si tu essayais la clause between ?

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Data.RecordSource = "SELECT * FROM table1 " & _
                        "WHERE jours between " & _
                            "#" & Format(debu.Text, "mm/dd/yyyy") & "# AND " & _
                            "#" & Format(fin.Text, "mm/dd/yyyy") & "# "

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Pb IsDate vb6/access/Sql
    Par Acid59 dans le forum VB 6 et antérieur
    Réponses: 0
    Dernier message: 29/04/2013, 17h04
  2. [AC-2010] VBA Access SQL WHERE
    Par JMMVBA dans le forum VBA Access
    Réponses: 2
    Dernier message: 04/05/2010, 12h47
  3. Réponses: 4
    Dernier message: 02/05/2007, 10h22
  4. Format date d'Access à SQL Server
    Par Bounty59 dans le forum MS SQL Server
    Réponses: 3
    Dernier message: 19/01/2007, 15h58
  5. [VB6]Requete sql access:max (date and time)
    Par enibris dans le forum VB 6 et antérieur
    Réponses: 9
    Dernier message: 05/06/2006, 09h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo