SELECT com ClientDataSet Delphi
09/06/2021
0
Existe alguma forma de usar o REPLACE do SQL Server em uma consulta buscando do ClientDataSet?
Gxf
Curtir tópico
+ 0
Responder
Post mais votado
15/06/2021
você pode usar uma função para isso.
função:
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
Responder
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;
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
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.
ClientDataSet1.Locate('CAMPO',EDTI1.TEXT,[]);
Ele vai posicionar na linha do dbgrid o campo localizado.
Deve te ajudar.
Responder
14/06/2021
Usa
WhatsApp +16 575 29 2372 Get 100% PMP Cisco CCNA AWS Certificate Saudi Arabia
Responder
Clique aqui para fazer login e interagir na Comunidade :)