problème d'affichage dans listbox

Version imprimable

Bonjour,

J'ai repris un programme écrit en VB.NET qui fonction en MVC(Model, Control,
View) donc j'ai 4 parties les 3 citées en haut et le programme normal.

Je dois faire une listBox qui doit afficher les heures de travail d'une machine. Ces heures je les récupère dans une BDD.
Mon soucis d'affichage c'est que je n'arrive pas a afficher l'heure correct dans ma listBox, elle m'affiche toujours 00:00:00 au lieu de 08:00:00 par exemple.

J'ai testé ma requete sur SQL Serveur, elle fonctionne bien j'ai bien toutes les heures qui s'affichent.

Si quelqu'un peut m'aider plz je n'arrive pas a trouver pourquoi mon heure change pas.

Voici mon code :

Le code du programme normal:

Code:

1
2
3
4
5
6
7
8
9
10
11
        Dim idMachine As Integer
        viewChoixMacPoste.viewAffichPosteListBox(idMachine)
        Dim HFinPoste2 As Date
        Dim HDebPoste2 As Date
        Dim JProd As Date
        JProd = curOutputDay
        If Me.CB_NumMach.SelectedValue = 13 Then
 
            ListBox1.Items.Add(HDebPoste2 & "   " & HFinPoste2 & "   " & JProd)
 
        End If

Le code du prigramme View:

Code:

controlChoixMacPoste.controlAffichPosteListBox(idMachine)

Le code du programme control:

Code:

1
2
3
4
5
Public Function controlAffichPosteListBox(ByVal chiffre2 As Integer) As String
        Dim HFinposte2 As Date = Nothing
        HFinposte2 = modelChoixMacPoste.modelAffichPosteListBox(chiffre2)
        Return HFinposte2
    End Function

Le code du programme model:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
    Public Function modelAffichPosteListBox(ByVal idMachine As Integer) As Date
        Dim HFinPoste2 As Date = Nothing
        Dim datetest As Date = "19/09/2008 05:00:00"
        Dim IDMACHIN As Integer = 13
 
Requete = "SELECT DISTINCT (EMO.HDEB_POSTE_EVENT_MACHINE_OEE) ,  EMO.HFIN_POSTE_EVENT_MACHINE_OEE, PO.NOM_LONG_POSTE_OEE, EMO.JPROD_EVENT_MACHINE_OEE 
FROM EVENT_MACHINE_OEE EMO, POSTE_OEE PO 
WHERE PO.ID_POSTE_OEE = EMO.ID_POSTE_OEE 
AND EMO.ID_MACHINE_OEE = " & IDMACHIN & " 
AND JPROD_EVENT_MACHINE_OEE = " & datetest & " 
ORDER BY EMO.HDEB_POSTE_EVENT_MACHINE_OEE DESC"
 
Try
            reader = connection.GetAReader(Requete)
            HFinPoste2 = reader("HFIN_POSTE_EVENT_MACHINE_OEE")
        Catch ex As Exception
        End Try
        reader.Close()
 
        connection.CloseConnection()
 
        Return HFinPoste2
 
    End Function

05/11/2008, 15h09
Philippe Vialatte

je dois pas être très très réveillé:zzz:, mais je vois pas le lien entre le premier bout de code et le suivant...

En plus, je ne vois pas ou tu affectes les valeurs de HDebPoste2 et de HFinPoste2...
05/11/2008, 15h20
Ouija33

Bonjour à toi,

primo, je ne vois pas ou ta variable HDebposte2 est remplis :?

2, je comprends comment tu voulais programmer le tout, mais ca me semble un peu mélangé...quoi que moi aussi je ne dois pas etre réveillé ?

je te conseil de mettre des points d'arrêts et de t'assurer que tes valeurs sont bien transmise (moi je crée des variable de test que je remplis pour voir si tout ce passe bien :king:

bien bonne chance a toi...quoi que je suis sur que ton code pourrait etre plus simple pour ce genre de fonction:roll:
06/11/2008, 08h25
azräel

Bonjour oui je sais moi aussi j'aime pas trop comment la personne d'avant a commencer le code mais je dois continuer comme ca :(

Ensuite je passe au auter code grâce au ligne suivantes :

Code:

viewChoixMacPoste.viewAffichPosteListBox(idMachine)

Cette ligne permet de passer a la fonction "AffichPosteListBox" dans le code de View.

Code:

controlChoixMacPoste.controlAffichPosteListBox(idMachine)

Cette ligne permet de passer a la fonction "AffichPosteListBox" dans le code de control.

Code:

HFinposte2 = modelChoixMacPoste.modelAffichPosteListBox(chiffre2)

Cette ligne permet d'affecter a HFinposte2 la requete qui se fait dans la fonction "modelAffichPosteListBox" dans le code de model.

Et j'ai fait comme la personne d'avant, j'affecte ma variable HFinposte2 dans le

Code:

Try

de ma partie model.
06/11/2008, 08h48
azräel

Je viens de faire un débogage sur deux fonctions une qui marche et celle qui marche et je me suis aperçu que dans ma fonction qui marche pas, que dans le TRY de ma partie model au moment ou je dit que ma variable

Code:

HFinPoste2 = reader("HFIN_POSTE_EVENT_MACHINE_OEE")

le debogage saute cette ligne alors que sur la fonction qui marche ca passe et que ma fonction s'appuie sur celle la.
06/11/2008, 09h55
Philippe Vialatte

ok...

alors, premier conseil, si tu fais un try/catch, sans code dans le catch, ca ne sert a rien, tu fais disparaitre l'exception...ce qui t'arrive en ce moment ;)

ce qui se passe, a mon humble avis, c'est que dans cette instruction:

Code:

reader = connection.GetAReader(Requete)

tu as une exception-> tu passe dans le catch de ton try catch, qui ne fait rien...

essaye d'enlever le try/catch, tu devrais voir une exception remonter

Et dans un deuxieme temps, soit tu enleves tous ces try/catch, soit tu remontes une autre exception, un message, ou un log pour pouvoir avoir l'info que ton programme plante, par ce que ce que tu fais, ca s'appelle de l'exception swallowing, et c'est mal :)

Et dans un troisieme temps, tu transformes tes requetes en requetes parametrees, et ca t'evitera que tes requetes plantent parce que tu as un pb de formatage de tes champs de date (biscotte a vue de nez, je dirais que c'est ca qui te fait planter :D)

Citation:

ce qui se passe, a mon humble avis, c'est que dans cette instruction:

Code :
reader = connection.GetAReader(Requete)
tu as une exception-> tu passe dans le catch de ton try catch, qui ne fait rien...

Tu as raison c'est ce que ca fait par contre ma fonction qui est juste au dessus ùarche et pourtant c'est quasiment la même à quelquels détails près
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Public Function HfinDernierPoste(ByVal idMachine As Integer) As Date Dim HFinPoste As Date Requete = "SELECT TOP(1) EMO.HFIN_POSTE_EVENT_MACHINE_OEE From EVENT_MACHINE_OEE EMO WHERE ID_MACHINE_OEE =" & idMachine & " ORDER BY EMO.HFIN_POSTE_EVENT_MACHINE_OEE DESC" 'Form_CHOIX_MAC_POSTE_OEE.CB_NumMach.SelectedValue Try reader = connection.GetAReader(Requete) HFinPoste = reader("HFIN_POSTE_EVENT_MACHINE_OEE") Catch sqlEx As SqlException End Try connection.CloseConnection() Return HFinPoste End Function
Comme tu peux le constater