Jump to content
Fórum Script Brasil
  • 0

[AJUDA] Agenda de horarios


soulaff

Question

Ola gente!
Tudo bem com vocês?

Eu sou novo no fórum e no visual e estou tentando fazer um programa para gerenciar meu consultório odontológico.
Estou tentando fazer uma agenda de horários para marcar os pacientes.
Pensando bastante cheguei a um resultado aceitável, porem o código não ficou bom e tenho certeza que existe uma saída mais tranquila para meu problema
Deixe-me tentar explicar:

coloquei um calendário a esquerda da minha form e a direita estão textboxes onde cada uma representa o paciente marcado no horário especifico, de 8 as 19 com horários de 30 min, ou seja, uma tbx para as 8:00 uma para as 8:30 outra para as 9:00 e assim vai, ate as 19:00.

estou usando uma ACCDB com as colunas data, hora e paciente

Para preencher estas textboxes estou fazendo assim:

        Dim cs As String = My.Settings.DBagendaConnectionString
        Dim conect As New OleDbConnection
        conect.ConnectionString = cs
        conect.Open()

        'para a tbx relacionada as 8:00
        Dim sqlcmd As String = "SELECT paciente , hora FROM tb_agenda WHERE data = '" + Me.MonthCalendar1.SelectionRange.Start + "' AND hora = '8:00'"
        Dim cmd As New OleDbCommand(sqlcmd, conect)
        cmd.CommandType = CommandType.Text
        tbx80.Text = cmd.ExecuteScalar

        
        'para a tbx relacionada as 8:30
        Dim sqlcmd2 As String = "SELECT paciente , hora FROM tb_agenda WHERE data = '" + Me.MonthCalendar1.SelectionRange.Start + "' AND hora = '8:30'"
        Dim cmd2 As New OleDbCommand(sqlcmd2, conect)
        cmd2.CommandType = CommandType.Text
        tbx83.Text = cmd2.ExecuteScalar

                                               .
                                               .
                                               .

Tenho certeza que posso simplificar esse código, porem não sei como!
Se alguém conseguir me ajudar, ficarei muitíssimo grato!!!

Edited by soulaff
Link to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.1k
    • Total Posts
      652k
×
×
  • Create New...