Sérgio H. Martins

Ola Micheus Deu muito certo, obrigado pela dica, segui os passos do outro post q você indicou de transf. para tabela, me ajudou muito, agora vou conseguir terminar o projeto. Um grande Abraço Att Sérgio Martins

Ola Micheus Fico muito grato pela ajuda, mas não sei porque não esta funcinando, mas mudei o código, e consegui um resultado que não igual mais vai funcionar tranquilamente. Então agradeço pois aprendi bastante coisa, quando eu souber estarei ajudando o pessoal, segue abaixo o código var consulta:integer; begin if key=#13 then begin with dm.ADOQueryjurossei do begin consulta:=strtoint(edit12.text); Close; SQL.Clear; SQL.Add('select * from faturas'); SQL.Add('where txt_situac =("AP")'); SQL.Add('and num_codcli=:appCliente ORDER BY dat_vencto'); parameters.ParamByName('appCliente').Value:=consulta; Open;[/CODEBOX] Um abração Sergio Martins

Ola amigo Fiz todos os passos, mas os mesmos não retornaram o resultado, fiz uma alteração para testes e me deu um erro que o Parâmetro DTAVCTO não tem valor padrão. Segue o código que usei var DtaVcto: TDate; consulta:integer; begin if key=#13 then begin with dm.ADOQueryjurossei do begin consulta:=strtoint(edit12.text); DtaVcto:= StrToDate(Edit7.Text); Close; SQL.Clear; SQL.Add('select * from faturas'); SQL.Add('where txt_situac =("AP")'); SQL.Add('and num_codcli = 17'); //Mudei esta parte só para testes// SQL.Add('and DTAVCTO < #'+FormatDateTime('dd/mm/yyyy', DtaVcto)+'#'); Open;[/codebox] Não entendo porque não esta funcionando, porque parece estar perfeito. Obrigado pela ajuda Att Sérgio Martins

Ola Amigo Cliquei em Parameters e estava em branco, então criei manualmente seguindo a imagem q você passou, mas continua retornando o mesmo erro. Teria algum outro modo de fazer esta pesquisa? Agradeço a atenção Abraços Sérgio

Ola amigo Micheus Utilizando este código me aparece a seguinte mensagem : 'Nenhum valor foi fornecido para um ou mais parâmetros necessários'. Se eu utilizar a pesquisa sem adicionar a parte da Data funciona perfeitamente, mas quando tento filtrar os dados com o resultado + a data menor que a data atual acontece este problema. Parece que a pesquisa se perde quando coloco dois parametros. Estou utilizando Access 2003. ADOQueryjurossei em design-time? Sou um pouco iniciante, acredito que tenha feito isto sim, vou colocar um screen para ver se esta correto. Link Screen Design Time Se sim, você acessou a propriedade Parameters e definiu a propriedade DataType para o parâmetro pDataAtual? De que tipo? Esta parte não fiz nada referente a isso, como devo fazer? Fico muito grato pela atenção Um abraço Sérgio Martins

Ola pessoal tudo tranquilo? Estou com uma dúvida, tenha uma pesquisa por clientes que preciso que ela me retorne, todas as notas do clientes com status AP e com data anterior a do edit. Segue o q tentei fazer: var DtaVcto: TDate; consulta:integer; begin if key=#13 then begin with dm.ADOQueryjurossei do begin consulta:=strtoint(edit12.text); DtaVcto:= StrToDate(Edit7.Text); Close; SQL.Clear; SQL.Add('select * from faturas'); SQL.Add('where txt_situac =("AP")'); SQL.Add('and num_codcli =:appCliente') parameters.ParamByName('appCliente').Value:=consulta; // Tem como passar a pesquisa abaixo com os dados obtidos com a pesquisa acima?, (Pensei em um Subselect, mas não consigo fazer funcionar). SQL.Add('and DTAVCTO < :pDataAtual'); Parameters.ParamByName('pDataAtual').Value:= FormatDateTime('dd/mm/yyyy', DtaVcto); Open; Agradeço a atenção de todos Sergio Martins