PREENCHER COMBO ENTRE DATAS E SITUACAO DISPONIVEL

EVERSON.PASETTO 04/01/2012 18:18:18
#392417
Tenho uma pesquisa entre datas assim

If txtDataInicial.Text <> [Ô]__/__/____[Ô] And txtDataFinal.Text <> [Ô]__/__/____[Ô] Then
cboNroCupom.AddItem rstconsulta.Fields([Ô]cx_NroCupomFiscal[Ô]) [ô]Preencher a combo
End if

Mas como faço para preencher a combo com os dados entre as datas pesquisada.. e tb onde a situação for = 1
Pois se for = 1 ela esta na loja..
Se for = 0 ja saiu para entrega.. ou seja esta no veiculo..

Apenas quero fazer a pesquisa entre data.. e onde situacao = 1 e preencher a combo
Como faço isso..??
TECLA 06/01/2012 23:30:15
#392608 Resposta escolhida
Sua dúvida é na construção da instrução SQL ou da rotina em VB6?
EVERSON.PASETTO 07/01/2012 11:23:38
#392618
No VB..
Pois ja resolvi.. criando uma tabela secundaria..
e dos dados contidos nela.. vão para a combo..
Obrigado mesmo assim..
RICARDO.RAPA 08/01/2012 15:37:08
#392665
Faz a pesquisa da sql de todas as notas ai vc filtra pela situação que você criou ai utilizando um laço:

instrução SQL ...... para fazer a pesquisa

do until rstconsulta.recortset.EOF

if rstconsulta.recortset.Fields([Ô]situacao[Ô]) = 1 then cboNroCupom.AddItem rstconsulta.Fields([Ô]cx_NroCupomFiscal[Ô])

rstconsulta.recortset.movenext
loop
Tópico encerrado , respostas não são mais permitidas
Voltar