none
ARMAZENAR MINUTOS NO BANCO DE DADOS RRS feed

  • Pergunta

  • Amigos preciso de uma ajuda.

    Segue o meu problema:

    Preciso fazer um Slide Show para sincronizar com uma apresentação.

    Gostaria de sincronizar as imagens automaticamente no decorrer da apresentação.

    O total da apresentação são 30 minutos

    Estou armazenando as imagens num banco de dados, com a seguinte estrutura

    SLIDE_ID = Número da imagem

    SLIDE_IMG = A imagem a ser exibida

    SLIDE_TIME = A hora exata da exibição de determinada imagem, entre 00:00 e 30:00

    Estou usando o campo Data SLIDE_TIME como parâmetro para fazer a consulta e um DateTimePicker com UPDown

    Formato no Evento Load do Form: 

    With dtpSlide
                .Format = DateTimePickerFormat.Custom
                .CustomFormat = "mm:ss"
                .ShowUpDown = True
                .MaxDate = DateTime.Today.AddMinutes(30)
    End With

    Embora ele apresente para o usuário apenas os minutos, por exemplo: Quando quero gravar o Slide que deve aparecer com 12:25 segundos da apresentação, ele grava no banco o dia , a hora, e 12 minutos e 25 segundos.  De modo que ao consultar sempre da uma data diferente. Como faço para gravar e depois fazer a consulta apenas do intervalo. Independente do dia e da hora que estou consultando. Será que tenho que usar no BD um campo numérico e não Data?

    Poderiam me fornecer um exemplo em C# ou VB.NET abaixo o código para salvar no Banco:

    Private Sub Salvar()
            Try


                Slides = New SlidesBLL
                Dim slide = New SlidesDTO

                pbSlide.Image.Save(Application.StartupPath + "\temp.dat")
                slide.SLIDE_ID = Slides.ProximoRegSlides

                Dim fst As New FileStream(Application.StartupPath + "\temp.dat", FileMode.Open)
                Dim arrbyte(fst.Length) As Byte
                fst.Read(arrbyte, 0, arrbyte.Length)
                fst.Close()

                slide.SLIDE_IMG = arrbyte
                slide.SLIDE_TIME = dtpSlide.Value



                'File.Delete(Application.StartupPath + "\temp.dat")

                Dim bll As SlidesBLL = New SlidesBLL
                bll.inserirSlides(slide)



                carregaSlides()


            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub

    Obrigado!!!

    • Movido welington jr sábado, 7 de outubro de 2017 23:31 lugar mais apropriado
    sexta-feira, 6 de outubro de 2017 19:34

Respostas

  • Bom dia, JoeSan. Tudo bem?

    Obrigado por usar o fórum MSDN.

    Essa seria uma questão de "Break Fix/Erro" ou "How to/Customização"?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 9 de outubro de 2017 13:17
    Moderador

Todas as Respostas

  • Bom dia, JoeSan. Tudo bem?

    Obrigado por usar o fórum MSDN.

    Essa seria uma questão de "Break Fix/Erro" ou "How to/Customização"?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 9 de outubro de 2017 13:17
    Moderador
  • Bom dia,

    Por falta de retorno essa thread está encerrada.

    Se necessário, favor abrir uma nova thread.

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 16 de outubro de 2017 13:11
    Moderador