Select por Dt do dia e retornar dados no ListBox


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Select por Dt do dia e retornar dados no ListBox

Patricia
não registrado

Postada em 25/10/2004 10:43 hs

Olá

Estou fazendo um programa que tem um caixa, a atendente escolhe os produtos via combox e salva o pedido. Depois ela tem a opção de clicar no botão " Atualizar " para aparecer todos os pedidos do dia, ou seja, o Caixa Total do dia. Meu problema é q aparece todos os pedidos gravados e não somente os da data de hoje. Preciso de um código que resolva meu problema, um IF resolveria ? Estou usando o Data para acessar o banco de dados e alem disso a data do caixa é incluida em um label pela data do computador.

Tem alguem on line para responder ?

Obrigada

Manigni

SAO PAULO
SP - BRASIL

Postada em 25/10/2004 11:15 hs

Por que você não experimenta passar um parâmetro na sua Select?

Por exemplo, se você deseja os produtos vendidos no dia 25/10/2004 tente passar:

"SELECT Produto FROM Vendas WHERE DtVenda=#10/25/2004#"

Depois insira o resultado desta consulta nos campos desejado...

Espero ter ajudado.

Patricia
não registrado

Postada em 25/10/2004 11:43 hs

Olá Manigni

Bom o parâmetro já existe, é a data atual do computador ( que fica já descrita em um label qdo inicializa o form). Qdo clica em " Atualizar " executa o Load novamente e inclui todos os pedidos( nº do pedido, nome do cliente, valor do pedido) salvos no BD em alguns ListBox. O problema é que não consigo fazer ele selecionar somente os da data do computador. Tentei colocar a data do label em uma variável e então fazer uma pesquisa igualando o campo com o label mas não deu certo pois não sei o código certo. Pensei em fazer algo assim:

lblDt.Caption = Format(Date, "DD/MM/YY")

' Variavel critério recebe valor que esta no label, no caso a data do sistema

critério = lblDt.Caption

' Não sei fazer essa parte

Data1.Recordset.FindMin " Dt Like '" & criterio & "'"

rs.additem

if critério = <nome do campo)

rs.additem

Não sei se consegui explicar direito mas

Obrigada

Manigni

SAO PAULO
SP - BRASIL

Postada em 25/10/2004 12:50 hs

Primeiramente você não precisaria ter usado uma variável só pra pegar a data que está na Label, você pode usar a label diretamente. Dessa forma:

"...dt LIKE " & lblDt.Caption & ""

Isso melhora o desempenho do seu programa pois evita usar mais memória, quanto mais variável, menos desempenho.

Agora, gostaria que você me explicasse melhor como você ta acessando seu banco no access, pois o código que você colocou aí em cima não funcionaria, pois Data1.Recordset é o retorno da consulta que você mandou ele fazer. Portanto, um recordset possui índices (data1.recordset(index)), ou seja, é uma "tabela" de resultados obtidos através da consulta que vc passou pra ele.

Me explique de que maneira vc ta usando o data... Como você chegou até a parte de puxar os pedidos...

Patricia
não registrado

Postada em 27/10/2004 13:58 hs

Olá Manigni

desculpe a demora mas não tive acesso a internet. Gostaria de te mandar o código para vc dar uma olhada. Vc poderia me passar um email ? aí te envio o código

Obrigada

Manigni

SAO PAULO
SP - BRASIL

Postada em 27/10/2004 22:36 hs

rockflush@terra.com.br

Estou no aguardo...

Abraços...

Página(s): 1/2 PRÓXIMA »

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

VOLTAR