[VB6] Date dans un MSHFlexGrid

Version imprimable

03/05/2007, 11h19
Mat_76

[VB6] Date dans un MSHFlexGrid

Bonjour,

J'ai un un petit problème d'affichage des dates dans mon MSHFlexGrid.
En effet, dans ma base de données, les dates sont conservés sous la forme jj/mm/aaaa, mais lorsque j'affiche mon MSHFlexGrid à partir d'un DataEnvironnement, celles-ci s'affiche au format mm/jj/aaaa.
Par exemple, 30/04/2007 se transforme en 04/30/2007.

Comment puis-je résoudre ce problème ?

Merci d'avance.
03/05/2007, 11h22
La Praline

Bonjour,

As-tu essayé de te servir de la fonction Format(...) ???

Si non, un p'tit coup de :f1: devrais surement faire l'affaire ;)
03/05/2007, 11h26
Mat_76

Je ne vois pas bien comment je pourrais me servir de la fonction Format, étant donné que je ne crée pas mon tableau dans le code, mais avec un DataEnvironment ?
03/05/2007, 11h33
La Praline

Bonjour,

Je ne vois pas tellement le problème...
Enfin oui et non, disons qu'au moment où tu l'affiche tu n'a qu'à utiliser la fonction Format(...)...

Ici un gars utilise une chaine SQL pour le faire...

Fais voir ton code pour voir, ca risque d'être plus facile ^^

PS: tes paramètres régionaux sont correctements réglés ????
03/05/2007, 11h40
Mat_76

J'ai pas de code pour la création de la grille.

Je crée mon DataEnvironment, j'ajoute la Connection et les Commandes, je fais clique-droit -> déposé sur ma feuille, et je sélectionne "Grille Flex Hierarchique", donc je vois pas quand/comment je pourrais utiliser une fonction quelconque.

PS : Mes paramètres régionaux sont correctement réglés.
03/05/2007, 11h43
La Praline

Heu... :koi:

Tu travaille bien sous VB6 ???...
03/05/2007, 11h45
Mat_76

Je travail sous Microsoft Visual Basic 6.0 (SP6)
03/05/2007, 11h47
La Praline

Tu as donc forcément du code...

Tu parle de clic droit tout ça... fais tourner le code ;)

Bon je te donne mon code en brut, parce que je vois vraiment pas ce qui pourra t'aider la dedans.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
 
Option Explicit
 
Const SRC = "\\Srvope\Stages-eqt\07 Mathieu_Tatti\Plan de Prévention\Database\PdP.mdb"
Private Id_utilisateurCourant As Integer
 
Private Sub cmdAjouterPdP_Click()
    frmAjouterPdP.Show
    Me.Enabled = False
End Sub
 
Private Sub cmdAjouterPI_Click()
    frmAjouterPI.Show
    Me.Enabled = False
End Sub
 
Private Sub cmdConnection_Click()
    If (cmbResponsable <> "") Then
        cmdConnection.Enabled = False
        cmdAjouterPdP.Enabled = True
        cmdAjouterPI.Enabled = True
        cmdDeconnection.Enabled = True
        cmbResponsable.Enabled = False
 
        Load frmAjouterPdP
 
        Id_utilisateurCourant = set_ID
        frmAjouterPdP.set_ID (Id_utilisateurCourant)
    End If
End Sub
 
Private Sub cmdDeconnection_Click()
    cmdConnection.Enabled = True
    cmdAjouterPdP.Enabled = False
    cmdAjouterPI.Enabled = False
    cmdDeconnection.Enabled = False
    cmbResponsable.Enabled = True
 
    Id_utilisateurCourant = 0
End Sub
 
Private Sub cmdRafraichir_Click()
    Initialise_Txt
    MiseAJour
End Sub
 
Private Sub Form_Load()
    Initialise_Txt
    Initialise_Combo
End Sub
 
Private Sub Initialise_Combo()
    Dim cn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim rs As ADODB.Recordset
 
    'Vider la liste des responsables
    cmbResponsable.Clear
 
    'Initialisation de la connection
    Set cn = New Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & SRC & ";" & _
            "User Id=Admin; Password="
 
    'Création de la Command
    Set cmd = New Command
    Set cmd.ActiveConnection = cn
    cmd.CommandText = "SELECT Responsable.[Nom du Responsable], Responsable.[Prenom du Responsable]" & _
                      "FROM Responsable;"
 
    'Exécution de la requète
    Set rs = New ADODB.Recordset
    Set rs = cmd.Execute
 
    'Remplissage de la liste des responsables
    Do While Not rs.EOF
        cmbResponsable.AddItem rs![Nom du Responsable] & " , " & rs![Prenom du Responsable]
        rs.MoveNext
    Loop
End Sub
 
Public Sub MiseAJour()
    DataEnvironment1.rsPdP.Requery
    Set grdPdP.DataSource = DataEnvironment1
End Sub
 
Private Sub txtNomEE_Change()
    Rafraichir_Grille
End Sub
 
Private Sub txtNomEU_Change()
    Rafraichir_Grille
End Sub
 
Private Sub txtNPdP_Change()
    Rafraichir_Grille
End Sub
 
Private Sub Rafraichir_Grille()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim req As String
 
    'Initialisation de la connection
    Set cn = New ADODB.Connection
    cn.Provider = "MSDataShape"
    cn.Open "Data Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & SRC & ";" & _
            "User Id=Admin; Password="
 
    'Création de la requète
    req = "SHAPE {SELECT * FROM `Plan de Prévention`} AS PdP " & _
          "APPEND ({SELECT * FROM `Responsable`}  AS Resp " & _
          "RELATE 'ID du Responsable' TO 'ID du Responsable') " & _
          "AS Resp,({SELECT * FROM `Autorisation de travail`}  " & _
          "AS AT RELATE 'Numéro de PDP' TO 'Numéro de PDP') AS AT"
 
    'Exécution de la requète
    Set rs = New ADODB.Recordset
    rs.Open req, cn, adOpenDynamic, adLockOptimistic, adCmdText
 
    'Si Numéro de PDP n'est pas vide, on ajoute la contraite à la recherche
    If (txtNPdP <> "") Then
        rs.Filter = "[Plan de Prévention].[Numéro de PDP] LIKE '" & txtNPdP & "%' "
    End If
 
    'Si le nom de l'EE n'est pas vide,      "       "
    'If (txtNomEE <> "") Then
    '   rs.Filter = rs.Filter & "AND [Plan de Prévention].[Nom de l'entreprise extérieur] LIKE '%" & txtNomEE & "%' "
    'End If
 
    'Si le nom de l'EU n'est pas vide,      "       "
    'If (txtNomEU <> "") Then
    '   rs.Filter = rs.Filter & "AND [Plan de Prévention].[Nom de l'entreprise utilisatrice] LIKE '%" & txtNomEU & "%'"
    'End If
 
    'Do While Not rs.EOF
    '    MsgBox (rs![Numéro de PDP])
    '    rs.MoveNext
    'Loop
 
    Set grdPdP.DataSource = rs
    grdPdP.Refresh
 
End Sub
 
Private Sub Initialise_Txt()
    txtNomEE = ""
    txtNomEU = ""
    txtNPdP = ""
End Sub
 
Private Function set_ID() As Integer
    Dim cn As ADODB.Connection
    Dim cmd As ADODB.Command
    Dim req As String
 
    Dim Tableau() As String
    Dim nom As String
    Dim prenom As String
 
    'Initialisation de la connection
    Set cn = New Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & SRC & ";" & _
            "User Id=Admin; Password="
 
    Tableau = Split(cmbResponsable, " , ")
    nom = Tableau(0)
    prenom = Tableau(1)
 
    'Création de la Command
    Set cmd = New Command
    Set cmd.ActiveConnection = cn
    cmd.CommandText = "SELECT Responsable.[ID du Responsable] " & _
                      "FROM Responsable " & _
                      "WHERE Responsable.[Nom du Responsable] = '" & nom & "' " & _
                      "AND Responsable.[Prenom du Responsable] = '" & prenom & "';"
 
    'Exécution de la requète
    Dim rs As Recordset
    Set rs = cmd.Execute
 
    set_ID = rs![ID du Responsable]
 
End Function
 
Private Sub Form_Unload(Cancel As Integer)
    End
End Sub

03/05/2007, 14h26
zazaraignée

C'est un problème souvent traité sur ce forum. Les formats de date d'affchage quand on travaille avec les bases de données. T'as fait une recherche?
03/05/2007, 14h55
Mat_76

Oui j'ai effectué une recherche, mais dans les sujets trouvés les personnes n'utilisaient pas de MSHFlexGrid ce qui leur permettait d'utiliser Format(chaine, "jj-mm-aaa").

Or mes données étant alouer à partir d'une Command, je ne vois pas comment je pourrais me servir de cette fonction...
03/05/2007, 15h00
Delbeke

Essaye de faire le format au niveau de la chaine sql
03/05/2007, 15h38
Mat_76

Bon j'ai résolu le problème d'une manière un peu bourrine.

J'ai remplacé le format date dans la base de données par le format texte et maintenant tout marche parfaitement.

Merci à tous.
03/05/2007, 15h57
La Praline

Citation:

Envoyé par Delbeke

Essaye de faire le format au niveau de la chaine sql

Citation:

Envoyé par La Praline

Ici un gars utilise une chaine SQL pour le faire...

Déjà proposé... avec un beau hyperlien et tout !!! Mais en vain !

:arrow: Ravi que tu y soit arrivé. Manière bourine en effet mais... après tout si cela est de taille à te satisfaire il n'y apas de mal (là je n'engage que moi ^^)
03/05/2007, 16h13
Mat_76

J'aurais du, il est vrai, préciser que le format dans la chaine SQL n'a pas marcher car, par exemple, si je veux la date 01/02/2007, il m'affiche 02/01/2007 qu'il interprète déjà comme une date valide, le format me renvoyant ainsi la même chaine.
03/05/2007, 16h18
La Praline

Et oui je sais bien...

De toute manière tu as du voir dans tes recherches que c'est toujours la galère ce genre de problème de dates... En général ca ne va pas tout seul...

Et c'est là que les solutions bourines sont les meilleures :mouarf:
03/05/2007, 16h50
zazaraignée

Le problème, en mettant tes dates en chaînes dans ta base de données, c'est que si tu fais des champs calculés (dans une requête ou directement dans Access) qui utilisent les dates dans le calcul... problème!