[Resolvido] Form de Agendamento Registro entre datas - VS2003

[Julierme Felix 0]

Pessoal tenho dois forms um de agendamento e outro de exibição com um calendar e um datagrid para exibir os eventos agendadoss.

 

No form de agendamento tenho os seguintes campos:

ID

DataINicio

DataFim

HoraInicio

HoraFim

Evento

Local

Responsavel

 

Digamos que fiz esse agendamento abaixo.

 

ID=10

DataInicio = 17/03/2008

DataFim=20/03/2008

HoraInicio=08:00

HoraFim:10:00

Evento: Curso de Ingles

Local = Sala 70

Responsavel = Fulano de Tal

 

No form de exibição ao escolher no calendar a data do dia 17/03/2008 vai me trazer as informções, porem se clicar no dia 18/03/2008 não me traz nada, como resolver isso sem precisar fazer um registro para cada dia agendado nesse intervalo de datas.

[quintelab 91]

Julierme não entendi o seu problema, você queria que trouxesse o que?

 

Abraços...

[Julierme Felix 0]

Julierme não entendi o seu problema, você queria que trouxesse o que?

 

Abraços...

como fazer ao preencher as datainicio e datafim o programa criar um registro para cada data dentro do intervalo digitando os dados um unica vez ao inves do usuario ter que fazer um registro para cada data.

[quintelab 91]

Agora entendi. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Talvez tenha uma forma melhor de fazer isso no select, mas no momento não sei. O que parece ser mais fácil é no momento em que você estiver inserindo os dados, você usar um laço para ele ir inserindo até inserir o registro do dia 20, e toda vez que você insere um novo registro você incrementa uma variável para saber quando parar.

 

Abraços...

[Julierme Felix 0]

Agora entendi. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Talvez tenha uma forma melhor de fazer isso no select, mas no momento não sei. O que parece ser mais fácil é no momento em que você estiver inserindo os dados, você usar um laço para ele ir inserindo até inserir o registro do dia 20, e toda vez que você insere um novo registro você incrementa uma variável para saber quando parar.

 

Abraços...

Pessoal consegui resolver a questão usando o código abaixo.

CODE

Dim dt As String

Dim dt1 As String

Dim d As Date

Dim d1 As Date

dt = EditData1.Text

dt1 = EditData2.Text

d = dt

d1 = dt1

While d <= d1

Me.EditID.Text = ProximoNumero()

Dim drAux As DataRow

drAux = TesteDS1.Tables("tblevento").NewRow

drAux("ID") = EditID.Text

drAux("DataInicio") = d

drAux("DataFim") = EditData2.Text

drAux("Evento") = EditNome.Text

d = d.AddDays(1)

TesteDS1.Tables("tblevento").Rows.Add(drAux)

SqlDataAdapter1.Update(TesteDS1)

End While

Agradeço ao Brandão e ao Leandro pela ajuda....