Fórum SELECT com ClientDataSet Delphi #615924

09/06/2021

0

SQL Delphi

Existe alguma forma de usar o REPLACE do SQL Server em uma consulta buscando do ClientDataSet?
Gxf

Gxf

Responder

Post mais votado

15/06/2021

você pode usar uma função para isso.
ClientDataset.Filtered := False;
ClientDataset.OnFilterRecord := FiltraCPF;
ClientDataset.Filtered := True;

função:
procedure TFormX.FiltraCPF(DataSet: TDataSet; var Accept: Boolean);
  function SomenteNumeros(Texto: string): string;
  var i: integer;
  begin
    result := '';
    for i := 1 to length(Texto) do
      if CharInSet(Texto[i],['0'..'9']) then
        result := result + Texto[i];
  end;
begin
  Accept := ContainsText(SomenteNumeros(DataSet['CampoCPF'].AsString), EditPesquisa.Text);
end;

Emerson Nascimento

Emerson Nascimento
Responder

Gostei + 2

Mais Posts

09/06/2021

Gxf

algm poderia ajudar?

no caso o CPF é gravado no banco de dados com "." e "-" e preciso filtrar ignorando isso... Via AdoQuery consegui fazer, porem preciso tbm usando a função FILTER do clientdataset.

Att;
Responder

Gostei + 0

14/06/2021

Anderson Gonçalves

Usa o comando locate do ClienteDataSet

ClientDataSet1.Locate('CAMPO',EDTI1.TEXT,[]);

Ele vai posicionar na linha do dbgrid o campo localizado.

Deve te ajudar.
Responder

Gostei + 1

14/06/2021

Usa


WhatsApp +16 575 29 2372 Get 100% PMP Cisco CCNA AWS Certificate Saudi Arabia
Responder

Gostei + 0

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

Aceitar