Converter hora hh:mm:ss para hh:mm em data reader

Question

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.

Answer 1

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.

Answer 2

Perfeito, funcionou direitinho do jeito que eu precisava. Agradeço muito pela sua atenção Mestre

Answer 3

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.