Discussion :

[angelevil]

Bonjour à tous,

Dans une application j'enregistre dans un champ d'une table le temps que prend le travail. La personne saisit les heures et les minutes. L'enregistrement dans la BD fonctionne très bien.

Le problème est lorsque je fais afficher en VB.NET Express 2008 le temps (HH:MM dans la BD) dans le form ca m'affiche la date 1899-12-30 suivit de l'heure mit dans l'enregistrement. ex : 1899-12-30 04:50 Je veux juste afficher le 04:50.

Dans ma BD le champs Durée est type de donnée : heure/date , format "Date, général" et masque de saisie : 00:00;0;_ .


Voici le code que j'ai produit pour l'affichage....

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
 
       Try
            Dim strCon = CStr("provider=microsoft.jet.oledb.4.0;" & "data source= " & Application.StartupPath & "\" & "Demandes.mdb;")
            Cn = New OleDb.OleDbConnection(strCon)
            Cn.ConnectionString = strCon
            Cn.Open()
            CmdR = Cn.CreateCommand() 'Creation de commande
            CmdR.CommandText = "select Nom_Tech as [Technicien], DateHeureReparation as [Date réparation], durée as [Durée], DescriptionRep as [Description réparation], HeuresDemandes.id_demande FROM HeuresDemandes INNER JOIN Techniciens ON Techniciens.ID_Tech = HeuresDemandes.ID_Tech where Id_Demande = '" & no & "'"
            DtSet = New DataSet
            DtAdapteur = New OleDb.OleDbDataAdapter
            DtAdapteur.SelectCommand = CmdR
            DtAdapteur.Fill(DtSet, "heuresDemandes")
 
            Details_Heures_Problemes.DG_Heures_Probs.DataSource = DtSet.Tables("heuresDemandes")
            Details_Heures_Problemes.DG_Heures_Probs.Columns.Item(0).Visible = True
            Details_Heures_Problemes.DG_Heures_Probs.Columns.Item(1).Visible = True
            Details_Heures_Problemes.DG_Heures_Probs.Columns.Item(2).Visible = True
            Details_Heures_Problemes.DG_Heures_Probs.Columns.Item(3).Visible = True
            Details_Heures_Problemes.DG_Heures_Probs.Columns.Item(4).Visible = False
            Cn = Nothing
            CmdR = Nothing
            DtAdapteur = Nothing
            DtSet = Nothing
            DtTable = Nothing
            DtRow = Nothing
 
        Catch ex As OleDb.OleDbException
            Cn = Nothing
            CmdR = Nothing
            DtAdapteur = Nothing
            DtSet = Nothing
            DtTable = Nothing
            DtRow = Nothing
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try

Je vous remercie

AngelEvil!

[jesslegende]

salut,
tu peux tester ca << MsgBox(Mid("developpez", "developpez".IndexOf("v"), 7)) >> affiche eveloppez
entre la date et l'heure il y a un espace utilise le à la place de v dans la propriété indexof

[angelevil]

Bonjour,

Okidoo je comprends!

Mais pourquoi Access envoie à l'affichage d'un champs Access qui contient juste des heures et minutes (HH:MM) il m'envoie aussi la date 1899-12-30 ????

C'est ca que je ne comprends pas....

Comme si je demandais : affiche moi les minutes et il m'affiche la date au complet... kkchose qui se passe que je ne comprends pas...

Merci pour l'idée je vais tester ca.

Je vous ferai signe du résultat

AngelEvil!

[angelevil]

Comme l'affichage se fait dans une Grid et bindé avec un dataset je ne peux pas modifier l'affichage ..................

[jesslegende]

salut,
toujour pas de solution dans access par contre en vb.net dans la commande de sélection de dataadapter esseye ca :
<< select convert(varchar,date,108) from test >>
ca marche pour l'affichage de l'heur seulement je ne sais pas pour l'edition???
bonne chance.

[jesslegende]

en fait si tu cherches à calculer la durée entre deux dates pourquoi ne pas utiliser la fonction datediff() qui retourn une valeur detype integer.
http://www.techonthenet.com/access/f...e/datediff.php