none
Affichage dans un datetimepicker RRS feed

  • Question

  • Comment afficher une date, récupérée dans une colonne de datagridview, dans un datetimepicker???

    Je veux en fait récupérer dans un premier temps des données dans la base, les intégrer dans mon datagrid, puis lorsque l'utilisateur selectionnera la ligne qui lui convient, afficher la date du datagrid dans le datetimepicker. Pour ce faire, j'ai le code suivant :

    Private Sub MenuModificationContrat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuModificationContrat.Click
            VueModifContrat.Rows.Clear()
            MaconnexionOle.Open()
            MarequeteOle.Connection = MaconnexionOle
            MarequeteOle.CommandText = "SELECT Id_contrat, Nom_cli, Libelle_service, Tarif_contrat FROM contrats_maintenance, clients_maintenance, services WHERE contrats_maintenance.Id_cli=clients_maintenance.id_cli AND contrats_maintenance.Id_service=services.Id_service"
            MesresultatsOle = MarequeteOle.ExecuteReader
            While MesresultatsOle.Read
                VueModifContrat.Rows.Add(MesresultatsOle.GetInt32(0), MesresultatsOle.GetString(1), MesresultatsOle.GetString(2), MesresultatsOle.GetDecimal(3))  'Je remplis mon datagridview
            End While
            MaconnexionOle.Close()
        End Sub
        Private Sub VueModifContrat_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles VueModifContrat.CellContentClick
            For Each colonne In VueModifContrat.SelectedRows
                DateTimeModifContratDateFin. 'Et là je coince, j'ignore comment faire
            Next()
        End Sub

    Quelqu'un peut-il m'éclairer???

    Cordialement.


    Celui qui ne sait rien en sait autant que celui qui n'en sait pas plus!!
    mardi 1 février 2011 09:32

Réponses

  • Bonjour,

    Tiens, moult exemples pour ton DateTimePicker1, pour le haut de ta question je ne sais pas :

     Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim jj As Integer
      Dim mm As Integer
      Dim a4 As Integer
      Dim hh As Integer
      Dim mn As Integer
      Dim ss As Integer
      Dim ladate As Date
      Dim s As String = "/"
      Dim d As String = ":"
      Dim j As String
      Dim h As String = " 00:00:00"
      jj = 10
      mm = 9
      a4 = 1956
      hh = 21
      mn = 30
      ss = 23
      ladate = jj & s & mm & s & a4 & " " & hh & d & mn & d & ss
      MsgBox(DateTimePicker1.Value)
      DateTimePicker1.Value = ladate
      MsgBox(DateTimePicker1.Value)
      j = jj & s & mm & s & a4
      ladate = j & h
      DateTimePicker1.Value = ladate
     End Sub
    
    

    Cordialement.

     



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe mardi 1 février 2011 12:45
    • Marqué comme réponse guznat mardi 1 février 2011 13:10
    mardi 1 février 2011 12:45
  • Bonjour, monsieur ehjoe,

    Cette citation sur celui qui ne sait rien était surtout destinée à me définir moi...

    Cordialement.


    Celui qui ne sait rien en sait autant que celui qui n'en sait pas plus!!
    • Marqué comme réponse guznat jeudi 24 février 2011 17:49
    mercredi 2 février 2011 09:26

Toutes les réponses

  • Bonjour,

    Tiens, moult exemples pour ton DateTimePicker1, pour le haut de ta question je ne sais pas :

     Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim jj As Integer
      Dim mm As Integer
      Dim a4 As Integer
      Dim hh As Integer
      Dim mn As Integer
      Dim ss As Integer
      Dim ladate As Date
      Dim s As String = "/"
      Dim d As String = ":"
      Dim j As String
      Dim h As String = " 00:00:00"
      jj = 10
      mm = 9
      a4 = 1956
      hh = 21
      mn = 30
      ss = 23
      ladate = jj & s & mm & s & a4 & " " & hh & d & mn & d & ss
      MsgBox(DateTimePicker1.Value)
      DateTimePicker1.Value = ladate
      MsgBox(DateTimePicker1.Value)
      j = jj & s & mm & s & a4
      ladate = j & h
      DateTimePicker1.Value = ladate
     End Sub
    
    

    Cordialement.

     



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe mardi 1 février 2011 12:45
    • Marqué comme réponse guznat mardi 1 février 2011 13:10
    mardi 1 février 2011 12:45
  • Merci

    Celui qui ne sait rien en sait autant que celui qui n'en sait pas plus!!
    mardi 1 février 2011 13:10
  • Bonjour à nouveau Guznat,

    De rien, ben tu vois ta citation ne s'applique pas, je n'en sais pas plus, mais j'en sais quand même assez pour répondre à la seconde partie, donc je ne sais pas rien, ah :o)

    Si tu es satisfait de mes services, tu peux me mettre un point en cliquant sur le triangle vert dans le rectangle en haut à gauche de ma réponse ...parce qu'on est payé au point, alors si je n'ai pas de point je ne mange rien à la fin de la journée ;o)

    Cordialement.

     



    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe mardi 1 février 2011 13:24
    mardi 1 février 2011 13:23
  • Bonjour, monsieur ehjoe,

    Cette citation sur celui qui ne sait rien était surtout destinée à me définir moi...

    Cordialement.


    Celui qui ne sait rien en sait autant que celui qui n'en sait pas plus!!
    • Marqué comme réponse guznat jeudi 24 février 2011 17:49
    mercredi 2 février 2011 09:26