none
Converter hora hh:mm:ss para hh:mm em data reader RRS feed

  • Pergunta

  • Bom dia caros Mestres, estou com uma dificuldade que pra vocês deve ser bem simples que é converter uma textbox para o formato de hora/minuto e não hora/minuto/segundo sendo que na base de dados vai estar hh:mm:ss em tipo de dados time no mysql.

    Utilizo DataReader para trazer os resultados da base de dados com o seguinte procedimento.

    Private Sub ACarregaAudiencia()
            Dim dr As mysqldatareader = Nothing
            Using con As mysqlconnection = getConnection()
                Try
                    con.Open()
                    Dim sql As String = "SELECT Audiencia.cod_audiencia, Audiencia.Pasta, Audiencia.DataDaAudiencia, Audiencia.Horario, Audiencia.Audiencia,"
                    sql += " Audiencia.AnotacoesAudiencia, Audiencia.Advogado, Processos.Vara, Processos.Forum, Processos.ParteSContrarias,"
                    sql += " Processos.TipoAcao, Processos.Processo FROM Audiencia INNER JOIN Processos ON Audiencia.Pasta = Processos.Pasta"
                    sql += " WHERE Audiencia.cod_audiencia =" & (CStr(CodigoAudiencia))
                    Dim cmd As New MySqlCommand(sql, con)
                    dr = cmd.ExecuteReader(CommandBehavior.SingleRow)
                    If dr.HasRows Then
                        dr.Read()
                        txtpasta.Text = dr.Item("Pasta").ToString
                        txtdataaudiencia.Text = String.Format("{0:dd/MM/yyyy}", dr.Item("DataDaAudiencia"))
                        txthorario.Text = dr.Item("Horario")
                        txttipoaudiencia.Text = dr.Item("Audiencia").ToString
                        txtanotacoes.Text = dr.Item("AnotacoesAudiencia").ToString
                        txtadvogado.Text = dr.Item("Advogado").ToString
                        txtvara.Text = dr.Item("Vara").ToString
                        txtforum.Text = dr.Item("Forum").ToString
                        txtpartecontraria.Text = dr.Item("ParteSContrarias").ToString
                        txttipoacao.Text = dr.Item("TipoAcao").ToString
                        txtnumeroprocesso.Text = dr.Item("Processo").ToString
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                Finally
                    con.Close()
                End Try
            End Using
        End Sub

    No caso é o campo "Horario", ja tentei .ToString("hh:mm") mas da erro "A conversão da cadeia de caracteres 'hh:mm' no tipo 'Integer' não é válida.

    Tentei tambem o  Convert.ToDateTime(txthorario.Text).ToString("HH:mm")) mas que tambem dá erro.

    Estou migrando de access para MySQL portanto estou tendo certas dificuldades com isso mas que vão se resolvendo conforma vou aprendendo.

    Agradeço desde já mestres.

    terça-feira, 18 de junho de 2019 14:09

Respostas

  • Bom dia Gilberto,

    Tente desta maneira: Fiz um exemplo básico com Windows Forms

    Dim hhmmss As String = "15:23:33"
    Dim hhmm As String
    
    hhmm = CType(hhmmss, DateTime).ToString("HH:mm")
    MsgBox(hhmm)

    No seu Caso, tente: 

    TextBox1.Text = CType(dr.Item("Horario").ToString(), DateTime).ToString("HH:mm")

    Comenta aí se resolveu

    Abraços



    Se o meu conteúdo resolveu o seu problema ou sua dúvida, então marque como "Resposta", ou se foi útil, "Vote". Pois isso ajudará outras pessoas com o mesmo problema ou dúvida.

    terça-feira, 18 de junho de 2019 14:48

Todas as Respostas

  • Bom dia Gilberto,

    Tente desta maneira: Fiz um exemplo básico com Windows Forms

    Dim hhmmss As String = "15:23:33"
    Dim hhmm As String
    
    hhmm = CType(hhmmss, DateTime).ToString("HH:mm")
    MsgBox(hhmm)

    No seu Caso, tente: 

    TextBox1.Text = CType(dr.Item("Horario").ToString(), DateTime).ToString("HH:mm")

    Comenta aí se resolveu

    Abraços



    Se o meu conteúdo resolveu o seu problema ou sua dúvida, então marque como "Resposta", ou se foi útil, "Vote". Pois isso ajudará outras pessoas com o mesmo problema ou dúvida.

    terça-feira, 18 de junho de 2019 14:48
  • Perfeito, funcionou direitinho do jeito que eu precisava. Agradeço muito pela sua atenção Mestre
    terça-feira, 18 de junho de 2019 15:01
  • Maravilha!!

    Precisando, posta aí!

    Abraços


    Se o meu conteúdo resolveu o seu problema ou sua dúvida, então marque como "Resposta", ou se foi útil, "Vote". Pois isso ajudará outras pessoas com o mesmo problema ou dúvida.

    terça-feira, 18 de junho de 2019 15:05