Filtro com Acces via ADOQuery

Delphi

27/08/2003

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:


Alexgard

Alexgard

Curtidas 0

Respostas

Wbb

Wbb

27/08/2003

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


GOSTEI 0
POSTAR