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 :

[Astute] Les 12 mois de l'année


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éprouvé Avatar de Le Pharaon
    Profil pro
    Inscrit en
    Mai 2004
    Messages
    880
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2004
    Messages : 880
    Par défaut [Astute] Les 12 mois de l'année
    Quand je travaille avec les 12 mois de l'année, je crée une table mois T_Mois
    (idMois,Mois), idMois étant le numéro du mois.
    Ensuite dans mon interface VB, je les mets dans un DataCombo comme suit :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    NomDataCombo .ListField = Mois
            NomDataCombo .BoundColumn = idMois
    Histoire de vouloir partager, je voudrais savoir si vous avez d'autres astuces plus ou moins efficaces.

    Merci

  2. #2
    Membre Expert
    Avatar de sovo
    Homme Profil pro
    Développeur Java
    Inscrit en
    Mars 2004
    Messages
    1 389
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Cameroun

    Informations professionnelles :
    Activité : Développeur Java
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2004
    Messages : 1 389
    Par défaut
    deja moi je n'utilise jamais les datacombo car je trouve ca trop facile. J'aime les coder moi meme. Alors je passe plutot par un combobox ou un listbox

    et voila comment ca ce passe

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    'Apres m'etre connecter je fait
    rst.movefirst
    while not rst.eof    'rst etant mon recordset
         combo1.additem rst!IdMois
         rst.movenext
    wend
    J'avantage selon moi c'est que je peut manipuler a ma guise ces donnees. sans en modifier le contenu dans la BD.

  3. #3
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    C'est pour quoi faire ?
    Avoir en toutes lettres le mois correspondant à un n° ?
    Si c'est celà, il y a beaucoup plus simple !

  4. #4
    Membre émérite
    Avatar de Theocourant
    Profil pro
    Inscrit en
    Janvier 2005
    Messages
    618
    Détails du profil
    Informations personnelles :
    Âge : 47
    Localisation : France

    Informations forums :
    Inscription : Janvier 2005
    Messages : 618
    Par défaut
    Citation Envoyé par jmfmarques
    C'est pour quoi faire ?
    Avoir en toutes lettres le mois correspondant à un n° ?
    Si c'est celà, il y a beaucoup plus simple !
    Avec un Format et les arguments qu'il faut ...

  5. #5
    Inactif  
    Avatar de jmfmarques
    Profil pro
    Inscrit en
    Décembre 2005
    Messages
    3 784
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Décembre 2005
    Messages : 3 784
    Par défaut
    Evidemment, Theo ...

    par exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub Command1_Click()
      mois = 3
      MsgBox Format("01/" & Format(mois, "00") & "/2000", "mmmm")
    End Sub
    mais on peut en faire d'autres, comme celle-là, pardi

    Ps : au fait, Bujuman, que veut dire "astute" ? en espagnol sela serait l'impératif d'un verbe et voudrait dire "restez-en coi"

  6. #6
    Membre Expert
    Avatar de sovo
    Homme Profil pro
    Développeur Java
    Inscrit en
    Mars 2004
    Messages
    1 389
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Cameroun

    Informations professionnelles :
    Activité : Développeur Java
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Mars 2004
    Messages : 1 389
    Par défaut
    moi je pensais plutot a la fonction MonthName, qui retourne le mois en lettre

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     
    Private Sub Command1_Click()
      mois = 3
      MsgBox MonthName(mois)
    End Sub

  7. #7
    Membre éprouvé Avatar de Le Pharaon
    Profil pro
    Inscrit en
    Mai 2004
    Messages
    880
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2004
    Messages : 880
    Par défaut
    Citation Envoyé par jmfmarques
    Ps : au fait, Bujuman, que veut dire "astute" ? en espagnol sela serait l'impératif d'un verbe et voudrait dire "restez-en coi"
    Excuse je croyais être sur un forum francophone Je me suis mal réveillé ce matin.

    Les mois je les affiche en lettre mais dans la base je mets les nums .
    En espagnole ça donne ...........

Discussions similaires

  1. [AC-2003] Analyse croisée sur les mois de l'année
    Par doncamelo dans le forum Requêtes et SQL.
    Réponses: 4
    Dernier message: 31/08/2010, 23h29
  2. [Cubes] cumul d'une mesure sur les N premiers mois de l'année
    Par sasadm dans le forum Outils BI
    Réponses: 3
    Dernier message: 14/04/2010, 11h01
  3. Opération tous les N jours de chaque mois de l'année
    Par hellspawn_ludo dans le forum ASP.NET
    Réponses: 6
    Dernier message: 14/11/2008, 21h05
  4. [POO] afficher les mois de l'année dans une boucle
    Par une_tite_question dans le forum Général JavaScript
    Réponses: 11
    Dernier message: 16/08/2008, 08h15
  5. les mois de l'année
    Par hananemeryem dans le forum SAP Crystal Reports
    Réponses: 2
    Dernier message: 23/08/2007, 14h48

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