Fórum Filtro com Acces via ADOQuery #178006
27/08/2003
0
Tenho Uma Tabela de Clientes Onde Quero Selecionar todos Clientes
com situação = N. Mas Precisar deixar o Edit1.text em Edição para procurar so os clientes com situação = N;
Faço Desta Forma no Sql Editor:
Select * From Clientes
Where Situacao=´N´ Like:AchaProduto
AchaProduto é o nome do parametro...
no Botão de Pesquisar Faço desta Forma:
With QryClientes do Begin
Close;
QryProdutos.Parameters.ParamByName(´AchaCliente´).Value:=Edit1.Text+´¬´;
Prepared;
Open;
end;
if QryClientes.RecordCount=0 then Begin
MessageDlg(´Cliente não encontrado!´,mtInformation,[mbOK],0);
edit1.Text:=´´;
end
end;
Me Ajudem ....
Alex.... :oops:
com situação = N. Mas Precisar deixar o Edit1.text em Edição para procurar so os clientes com situação = N;
Faço Desta Forma no Sql Editor:
Select * From Clientes
Where Situacao=´N´ Like:AchaProduto
AchaProduto é o nome do parametro...
no Botão de Pesquisar Faço desta Forma:
With QryClientes do Begin
Close;
QryProdutos.Parameters.ParamByName(´AchaCliente´).Value:=Edit1.Text+´¬´;
Prepared;
Open;
end;
if QryClientes.RecordCount=0 then Begin
MessageDlg(´Cliente não encontrado!´,mtInformation,[mbOK],0);
edit1.Text:=´´;
end
end;
Me Ajudem ....
Alex.... :oops:
Alexgard
Curtir tópico
+ 0
Responder
Posts
31/08/2003
Wbb
Não sei se entendi sua pergunta. Está confuso.
Me parece que existe um campo chamado ´Situação´, e que lhe interessa o registro cujo campo ´Situação´ for igual a ´N´. Certo?
Se for isso, tente:
QryClientes.Close;
QryClientes.SQL.Clear;
QryClientes.SQL.Add(´Select * From Clientes Where Situacao = N´);
QryClientes.Open;
if QryClientes.RecordCount=0 then Begin
MessageDlg(´Cliente não encontrado!´,mtInformation,[mbOK],0);
edit1.Text:=´´;
end
wbb
Me parece que existe um campo chamado ´Situação´, e que lhe interessa o registro cujo campo ´Situação´ for igual a ´N´. Certo?
Se for isso, tente:
QryClientes.Close;
QryClientes.SQL.Clear;
QryClientes.SQL.Add(´Select * From Clientes Where Situacao = N´);
QryClientes.Open;
if QryClientes.RecordCount=0 then Begin
MessageDlg(´Cliente não encontrado!´,mtInformation,[mbOK],0);
edit1.Text:=´´;
end
wbb
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)