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]Problème RecordSet


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Inscrit en
    Avril 2006
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Avril 2006
    Messages : 2
    Par défaut [VB6]Problème RecordSet
    Bonjour, je dois développer un bout de code en vb6 dans mon stage pour faire de l'ordonnancement.
    J'ai un souci avec le recordset, je vous explique:

    Chaque tache a effectuer est divisée en charges qui sont a effectuer sur des secteurs bien precis. Je cherche en fait savoir en combien de jour sera effectué la tache suivant les capacités des secteurs. Mais le souci c'est que pour une date, il ne me trouve pas d'enregistrement, alors que les capacités des secteurs sont bien tous présent dans la base. Cependant, j'ai remarquer que ce souci se produisait toujours lorsque l'on passait à un nouveau mois de l'année.

    Voici le code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    While saveduree > (capajour(rsChargeOF.Fields("date_fin").Value, rsChargeOF.Fields("Code_secteur").Value) - jetonheure + TimeValue("08:00"))
             saveduree = saveduree - capajour(rsChargeOF.Fields("date_fin").Value, rsChargeOF.Fields("Code_secteur").Value)
             rsChargeOF.Edit
             rsChargeOF.Fields("date_fin").Value = (rsChargeOF.Fields("date_fin").Value) + 1
             rsChargeOF.Update
    Wend
     
     
    Private Function capajour(date1 As Date, secteur As String) As Integer
    Dim rscapa As Recordset
     
        Set rscapa = bdTest.OpenRecordset("SELECT Capacite_heure From Capacité WHERE ((Capacité.Date_capacite)=#" & date1 & "#) AND ((Capacité.Code_Secteur)='" & secteur & "');", dbOpenDynaset)
        capajour = rscapa.Fields("capacite_heure").Value
        rscapa.Close
    End Function

    Voila si quelqu'un a une idée à ce petit problème merci d'avance

  2. #2
    Membre Expert
    Avatar de pc75
    Profil pro
    Inscrit en
    Septembre 2004
    Messages
    3 662
    Détails du profil
    Informations personnelles :
    Âge : 70
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Septembre 2004
    Messages : 3 662
    Par défaut
    Bonjour,

    Quel SGBD utilise-tu ?

    En Access, le format d'une date dans une clause WHERE doit être au format US => mm/dd/yyyy.

  3. #3
    Candidat au Club
    Inscrit en
    Avril 2006
    Messages
    2
    Détails du profil
    Informations forums :
    Inscription : Avril 2006
    Messages : 2
    Par défaut
    j'utilise access.
    Pour le format, je ne sais pas si cela viens de la, mais le souci c'est que ca marche avec toutes les dates, jusqu'à ce que l'on change de mois en fait...
    C'est pour ca que je trouve cela tres bizare

    Après test, il est vrai que si je remplace ma variable date dans la requete de la fonciton, il faut bien la mettre au format mm/dd/yyyy.
    Toujours est-il que la requete me retourne un resultat pour le 30/04/2006 et plus pour le 01/05/2006.

Discussions similaires

  1. [VB6] Problème avec Clone d'un recordset
    Par Asdorve dans le forum VB 6 et antérieur
    Réponses: 7
    Dernier message: 28/05/2009, 14h05
  2. [VB6] Problème Recordset Hierarchique
    Par boudincweole10 dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 23/04/2006, 22h27
  3. [VB6]Problème d'impression
    Par Baquardie dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 12/10/2005, 19h11
  4. [CR7][VB6]Problème de champs
    Par jcdupayage dans le forum SDK
    Réponses: 5
    Dernier message: 19/07/2004, 14h54
  5. [VB6] [BDD] Recordset et champ égal à Null
    Par Gr|ppen dans le forum VB 6 et antérieur
    Réponses: 3
    Dernier message: 07/03/2003, 10h00

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