[VB.NET] champ datetime dans un datagrid

**HULK** · 01/12/2005, 15h46

Bonjour,

j'ai une prod stockée qui me genere une table avec un nombre de colonne qui peut varier

je rempli ensuite un datagrid avec cette table grace à une autre prod stockée

Ca marche bien à part que dans ma table j'ai des champs datetime, mais dans mon datagrid je n'ai que les dates mais pas les heures !

Comment faire pour avoir aussi les heure ?

Merci

PS : quand je fais un export vers excel de mon datagrid j'ai bien les dates et les heures !

**neguib** · 01/12/2005, 16h12

si tu affectes un GridColumnStyle à cette colonne tu auras accès à une propriété Format il me semble pour choisir le Format DateTime que tu souhaites afficher

**HULK** · 01/12/2005, 16h21

hé ouai mais je peut pas faire ca, je ne sais pas combien de colonnes il y aura dans mon datagrid et où les seront placées

**HULK** · 01/12/2005, 16h24

je vois bien un truc, après avoir rempli mon datagrid, je fais un truc du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

for each colonnes de mon datagrid

si le nom de colonne commence par 'toto'
mets les données en type datetime
ca pourrais fonctionner ?

Editer par neguib pour l'ajout des balises |code|

**HULK** · 01/12/2005, 16h26

ou dans le datatble plutot, parce que dans le datagrid, je sens que je pourrais le faire que pour les colonnes visible

**neguib** · 01/12/2005, 18h00

je rempli ensuite un datagrid avec cette table grace à une autre prod stockée

Met moi le code qui définit le DataSource et le DataMember de ton DataGrid
pour que je comprenne mieux ton processus
Sinon sur le principe une fois la DataTable générée, il n'est pas très compliqué de recupérer le type de données de chacune de ses colonnes donc il suffit de mapper la colonne de type DateTime avec le GridColumnStyle formatable

Ainsi juste avant d'attribuer le DataSource au DataGrid tu peux définir un TableStyle à celui-ci

**HULK** · 02/12/2005, 09h20

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Dim com As New SqlClient.SqlCommand("sp_Route_Status_Requete", con)
com.CommandType = CommandType.StoredProcedure
Dim da As New SqlClient.SqlDataAdapter(com)
Dim dt As New DataSet("RouteStatus")
dt.Clear()
da.Fill(dt, "RouteStatus")
 
Mondatagrid.SetDataBinding(dt, "RouteStatus")

mon datagrid pourra avoir 6 colonnes ou 15 ou 18....

moi j'ai fais ca pour changer le type de mes colonnes (ici la deuxieme colonne) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
dt.Tables("RouteStatus").Columns(1).DataType = Type.GetType("System.String")

Mias ca me dit que je peux pas quand il y a des données dans la datatable

**neguib** · 02/12/2005, 12h34

Bon reprenons
1. Tu recupère les données d'une Table dont une colonne au moins est de type DateTime

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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Imports System
Imports System.Data
Imports System.Data.SqlClient
'...
Private Const spRouteStatus As String = "sp_Route_Status_Requete"
Private Const dtName As String = "RouteStatus"
Private WithEvents dS As DataSet
'...
 
'quelquepart ce processus ...
   Me.InitData()
   Me.InitStyle()
   Me.Mondatagrid.SetDataBinding(Me.dS, dtName)
'...
Private Sub InitData()
   Dim com As SqlCommand
   Dim da As SqlDataAdapter 
   Try
      com = New SqlCommand(spRouteStatus, Me.con)
      da = New SqlDataAdapter(com)
      Me.dS = New DataSet()
      da.Fill(Me.dS, dtName)
   Catch e As Exception
      MessageBox.Show(e.Message)
   Finally
      If Not(da Is Nothing) Then da.Dispose()
      If Not(com Is Nothing) Then com.Dispose()
   End Try
End Sub
'...
Private Sub InitStyle()
   Dim tS as New DataGridTableStyle()
   tS.MappingName = dtName 
   Dim dC As DataColumn
   'pour chaque colonne de la datatable
   For Each dC in Me.dS.Tables(dtName).Columns
      'créer le style de cette colonne
      Dim tbC As New DataGridTextBoxColumn()
 
      tbC.HeaderText = dC.ColumnName
      tbC.MappingName= dC.ColumnName
      'verifier si type DateTime
      If (dC.DataType = System.Type.GetType("System.DateTime")) Then
        'formatage en date et heure il me semble
         tbC.Format = "G"
      End If
      '...
      'ajouter la colonnestyle au tablestyle
      tS.GridColumnStyles.Add(tbC)
   Next
   'ajouter la tablestyle au datagrid
   Me.MonDatagrid.TableStyles.Add(tS)
End Sub