SELECT com ClientDataSet Delphi

SQL

Delphi

09/06/2021

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

Gxf

Curtidas 0

Melhor post

Emerson Nascimento

Emerson Nascimento

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;

GOSTEI 2

Mais Respostas

Gxf

Gxf

09/06/2021

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;
GOSTEI 0
Anderson Gonçalves

Anderson Gonçalves

09/06/2021

Usa o comando locate do ClienteDataSet

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

Ele vai posicionar na linha do dbgrid o campo localizado.

Deve te ajudar.
GOSTEI 1
Usa

Usa

09/06/2021


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