Fórum Erro em Busca #472951

14/03/2014

0

Olá pessoal, sou nova aqui, me desculpe se estiver falando em lugar errado. Já pesquisei sobre isso mas nao achei, então, se puderem me ajudar...
Então, criei um cadastro simples e na hora de fazer a BUSCA, não dá certo. Sempre que coloco para buscar, fala que nada foi encontrado.
Os dados estão sendo cadastrados certinho, estão indo para o DB. Estou usando o Delphi XE e o IBExpert.
Estou usando um DataModule e nele tem: SQLConnection, SQLDataSet, DataSetProvider, ClientDataSet.
Segue o código:

begin
DataModule1.ClientDataset1.Active := False;
DataModule1.ClientDataset1.Params[0].AsString := Edit1.Text + '%';
DataModule1.ClientDataset1.Active := True;
BitBtnok.Enabled := not DataModule1.ClientDataset1.IsEmpty;

if DataModule1.ClientDataSet1.IsEmpty then
StsBr.SimpleText := Format ('Nenhum registro foi encontrado com ' + '"%s"', [Edit1.Text])
else
StsBr.SimpleText := Format ('%d registro encontrado com ' + '"%s"', [DataModule1.ClientDataSet1.RecordCount, Edit1.Text]);

end;

Desde já agradeço!
Laya Lessa

Laya Lessa

Responder

Posts

14/03/2014

Rafael Cunha

Posta o sql que está sendo executado.
Responder

Gostei + 0

14/03/2014

Laya Lessa

alterei algumas coisas no SQL e funcionou parcialmente

select * from CAD_PACIENTE
Where CNS like :Pcns

agora até faz a busca, porém, faz apenas uma.
ao limpar e realizar outra busca, não dá certo. só se fechar e abrir novamente.
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar