Usuário com melhor resposta
Converter hora hh:mm:ss para hh:mm em data reader

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.
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.
- Marcado como Resposta Gilberto Andre Junior terça-feira, 18 de junho de 2019 15:00
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.
- Marcado como Resposta Gilberto Andre Junior terça-feira, 18 de junho de 2019 15:00
-
-