Buscar dados através de data...


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Buscar dados através de data...

claudinei

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 30/09/2005 14:56 hs

Bom Galera !!eu tenho um form c/ 2combox , uma Text1 e um Listiview e uma tabela c/nome de saída de produtos.

Combo1=carrega produtos

Combo2 =carrega=tipo de produtos.

Text1= tenho que digitar uma data de venda do produto

-------------No meu form fica assim--------------------------

Combo1=Pizza / Combo2=Catupiry / Text=10/02/2003

Listview=Carregar produto vendido na data digitada

O que eu estou querendo? Bom, na combo1 selecionei produto=pizza na combo2 selecionei o sabor,catupiry ,na text1digito uma data que supostamente eu vendi o produto(pizza)

Ai ele tem que buscar na Tabela saída de produtos,a pizza de sabor que eu desejo, na data que eu digitei e carrega na listiview.

Grato galera!!!!

Gboese

SANTO ANDRÉ
SP - BRASIL

ENUNCIADA !

Postada em 30/09/2005 15:12 hs

Esta tabela ela têm o id do produto, o id do sabor, e a data é isto?

Bom se for, eu aconselharia você a carregar nos combos, na propriedade ItemData dele os ids, para que quando selecionado, ele possa buscar pelo id e não pelo texto

'Aqui ele está adicionando no combo, depois definindo que o itemdata daquele listindex é o id

While Not recordset.EOF
COMBO.AddItem Trim(texto)

   COMBO.ItemData(contador) = ID
   contador = contador + 1

   recordset.MoveNext
Wend

Faça isto para o combo de produtos e o de sabores.

Na hora de buscar faça o seguinte:

Select * from tabelasaidaprodutos where idsabor = " & combosabor.itemdata(combosabor.listindex) & " and idproduto = " & comboproduto.itemdata(comboproduto.listindex) & " and data = '" & DatanoFormatoDoBanco & "'

Espero ter ajudado em alguma coisa

Gustavo Boese

claudinei

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 30/09/2005 15:23 hs

Esta tabela saida de produtos, ela armazena tudo o que eu vendo ,ela possue o campo Id_Produto e não possue o campo Id_Sabor.

Quanto as combo ,eu carrego os dados de uma tabela c/nome Tab_Especialidades.

Na verdade que eu preciso é buscar na Tab_Saida_Produtos as pizzas que eu vendi nos sabores determindos e uma data vendida que eu digitar.

Grato.

claudinei

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 01/10/2005 20:28 hs

Galera ,consegui resolver o meu problema desta forma vejam,porém só um detalhe que não consegui resolver, pra funcionar o campo Cadastro na minha tabela tem que estar como tipo de dados texto, porém se estiver como data ele não fununcia...

Set rst_Data_Pizza = bd.Execute("Select *From Tab_Saida_Produtos where Produto = '" & cmb_especialidades.Text & "'" _
& " and Descricao = '" & cmb_sabor.Text & "'" _
& " and Cadastro = '" & txt_data.Text & "'")

rst_Data_Pizza.MoveMin

Do Until rst_Data_Pizza.EOF
If rst_Data_Pizza!Produto = cmb_especialidades And rst_Data_Pizza!Descricao = cmb_sabor And rst_Data_Pizza!Cadastro = txt_data Then

Set lv = lista_produto.ListItems.Add(, , rst_Data_Pizza!Id_Produto)

lv.SubItems(1) = rst_Data_Pizza!Produto
      lv.SubItems(2) = rst_Data_Pizza!Descricao
      lv.SubItems(3) = rst_Data_Pizza!qtd
      lv.SubItems(4) = rst_Data_Pizza!ValorUnit
      lv.SubItems(5) = rst_Data_Pizza!ValorTotal
      lv.SubItems(6) = rst_Data_Pizza!Cadastro


End If

rst_Data_Pizza.MoveNext
Loop

Gratos!!!

VAzei na Braquiara

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR