PESQUISA COMPLICADA

USUARIO.EXCLUIDOS 03/09/2007 12:12:12
#233849
Pessoal bom dia!!!

Preciso desenvolver uma pesquisa da seguinte forma:

Tenho um form. com um DBGRID onde me mostra todas as vendas neste DBGRID, agora porém preciso realizar uma pesquisa multipla, ou seja, quero visualizar as vendas de 10 vendedores, e mandar pesquisar, o resultado tem que ser por ordem de vendedores de acordo com a pesquisa.
Os Vendedores possuem codigos 1010, 1020, 1030, 1040...
Esta pesquisa tem que me possibilitar em pesquisar o quantos vendedores eu quiser, de 01 a 100.
Nâo sei nem como começar!!!
Já pesquisei no forum e nada achei!!!

Obs.:
Trabalho somente com DAO e Access2000
VB6.0

Marcelino Neto
USUARIO.EXCLUIDOS 03/09/2007 12:27:37
#233852
MFERREIRANETO,

Voce tem pelo menos o BD com alguns registros?

Valeu!
USUARIO.EXCLUIDOS 03/09/2007 12:28:45
#233853


Cara...isso vc consegue com sql...simples..

e aí no grid...vc clica no vendedor x, e abriria otro grid ou no mesmo..e faria outra consultya


apesar q ta meio confusa sua duvida mas..


entendeu mais ou menos?


USUARIO.EXCLUIDOS 03/09/2007 12:44:43
#233857
Tenho na tabela de vendas (TblVendas) mais de 600 registros. Vou tentat explicar novamente:
Preciso de uma rotina simples que pesquise no BD (TblVendas) todas as Vendas dos vendedores 1010, 1020, 1030, 1040, 1050, 1060 e por ai vai...
por periodo de Datas. No DBGRid vem o resutado em ordem de vendedores.
Depois do resultado no DBGRID vou criar uma exportação para excel.
Já tenho esta consulta onde realizo de um por um por datas, preciso que seja uma consulta multipla para ganhar tempo, ao invés de um por um, vou pesquisar vários de uma vez.
Fui mais claro???

Marcelino Neto
VB 6.0
Access2000
DAO

USUARIO.EXCLUIDOS 03/09/2007 13:40:37
#233867
Resposta escolhida
Amigo, poste aqui pra gente como está sua consulta hoje, somente com as datas...
USUARIO.EXCLUIDOS 03/09/2007 13:49:25
#233873
Caro Marcelo, veja como esta hoje minha consulta!
Dim DataInicial As String
Dim DataFinal As String

DataInicial = Format(DTDataInicial, "mm/dd/yyyy")
DataFinal = Format(DTDataFinal, "mm/dd/yyyy")
Data1.RecordSource = "Select * From TblVendas where Vendedor like '" & txtCodigo.Text & "*' and DataVenda BetWeen #" & Format(DTDataInicial, "mm/dd/yyyy") & "# And #" & Format(DTDataFinal, "mm/dd/yyyy") & "# "
Data1.Refresh


marcelino
MJAC 03/09/2007 13:51:26
#233875
Amigo no seu Data1.RecordSource use:

"Select * From TblVendas Where CampoComData Between #DataInical_MM/DD/YYYY# And #DataFinal_MM/DD/YYYY# Order By CampoCodigoVendedor, CampoComData Desc"

mas lembre-se de trocar pelo nome dos seus campos e de informar a data nos lugares indicados, para o Access as data devem ser informadas entre # e no formato mes, dia, ano. Abraços
Tópico encerrado , respostas não são mais permitidas