Loop Enquanto As Datas No Banco Forem Iguais, Batendo Cabeça

[Alink]

Faço uma busca em uma determinada tabela trazendo os registro, umas das colunas é a data que contem um campo do tipo data onde possui datas diferentes, ex:

9/11/2006

9/11/2006

9/11/2006

10/11/2006

10/11/2006

10/11/2006

10/11/2006

10/11/2006

....

quero fazer um loop onde execute, enquanto as datas de um registro for igual, ex:

'onde datanova é a dataatual é a data atual e a datanova seria a próxima data do registro trazido.

Enquanto for dataatual = datanova

Execute isso...

Fecha Loop

algo desse tipo, não sei se fiz corretamente:

While data_atual = data_nova

....

data_nova = rs("data")

rs.MoveNext

Wend

Quro que o loop execute enquanto, as datas forem igual caso contrario said do loop.

Obs: este loop tem que esta dentro de um outro loop igual a esse:

While not rs.EOF

....

o loop citado acima

Wend

Um Abraço a todo e grata desde já,

Patricia

[Romero Dias]

olha se deste jeito funciona,

dataAtual = date()

while not rs.Eof 
if cdate(rs("data")) = dataAtual then
   novaData = rs("data")
end if
wend

abraços

Editado Março 15, 2007 por Romero Dias

[Alink]

olha se deste jeito funciona,

dataAtual = date()

while not rs.Eof 
if cdate(rs("data")) = dataAtual then
   novaData = rs("data")
end if
wend

abraços

Olá obrigado pela resposta mais as duas data virão do banco entende? è para comparaca com as dastas que vem do banco e não com a data do dia atual entende, que que um loop execute até que a data que esta no banco mude, como no exemplo acima.

Aguardo uma ajuda com exmplo do código como tem que ser feito.

um Abraço

[rike_0]

tenta..

'aqui as duas primeiras datas são a mesma pra dar o primeiro loop

data_atual=rs("data")

data_nova=rs("data")

do while data_atual=data_nova

executa a função

rs.movenext

data_nova=rs(data)

loop

quando a próxima for diferente ele para o loop... você precisa fazer isso uma vez só ou pra todas as datas do banco??????????