Filtrar somente os 4 primeiros numeros do campo?

Question

Ola amigos boa tardeTem possibilidade de fazer um filtro dentro de um campo que esta com o cadastro assim:000100010001000200020001000300010003000200040001000500010005000200050003Ai tenho 02(dois) edit...

Adriano_servitec · Answer

Ja descobri tai o codigo se alguem um dia precisar

procedure TForm1.BitBtn11Click(Sender: TObject);
begin
QUERY3.ACTIVE:=TRUE;
query3.refresh;
with Query3 do
begin
close;
sql.clear;
sql.add(�select * from dpfuncs�);
sql.add(�WHERE (fco >= � + quotedstr(Edit23.Text + �0000�) + � ) and (fco <= � + quotedstr(Edit24.Text + �9999�) + � )�);
open;
end;
end;

Adriano_servitec · Answer

To quebrando a cabe�a e nao consigo achar se tem um jeito de filtrar os 4 ultimos numeros tambem

00010001
00010002
00010003

No edit1 digitar 0001 e no edit2 digitar 0002 e no dbgrid aparecer assim
00010001
00010002

Esse de pegar os 4 numeros finais ta mais complicado

Alguem tem alguma ideia?
Agrade�o a ajuda de todos
Obrigado
ADRIANO

Adriano_servitec · Answer

Desculpe nao ter informado estou usando tabela paradox e delphi 5...

Emerson Nascimento · Answer

utilize LIKE...

Emerson Nascimento · Answer

ou substringpegar do inicio:�select * from dpfuncs where �+�substring(fco from 1 for 4) between �+quotedstr(Edit23.Text)+� and �+quotedstr(Edit24.Text)pegar do fim:�select * from dpfuncs where �+�substring(fco from 5 for 4) between �+quotedstr(Edit23.Text)+� and �+quotedstr(Edit24.Text)...

Adriano_servitec · Answer

ola Emerson blz amigoPode me dar uma ajudinha amigo como fa�o o like pq nao compila, so consigo usar ele dentro da SQL da queryOlha como fizprocedure TForm1.Button4Click(Sender: TObject);beginQUERY3.ACTIVE:=TRUE;query3.refresh;with Query3 dobeginclose;sql.clear;sql.add(�select * from dpfuncs�);//SQL.ADD(�where substring(fco from 5 for 4) between � + quotedstr(Edit18.Text) +� and �+quotedstr(Edit19.Text)�);//aqui nao conseguisql.add(�WHERE FNo = like ��0001� OR FNO = LIKE ��0003��); //aqui no ligar 0001 a 0003 tem como colocar edit1.text a edit2.text, pois la que vou digitar os codigos para serem filtrados entre esse intervaloopen;end;end;...

Adriano_servitec · Answer

Obrigado Emerson a substring funciona certinho, era que tava faltando fechar para compilar

Tava assim
SQL.ADD(�where substring(fco from 5 for 4) between � + quotedstr(Edit18.Text) +� and �+quotedstr(Edit19.Text)�);

Ai corrigi o final colocando + �� para fechar

SQL.ADD(�where substring(fco from 5 for 4) between � + quotedstr(Edit18.Text) +� and �+quotedstr(Edit19.Text)+ ��);

Valeu amigao, obrigado.

Mais pq da erro aqui na ora de compilar e no SQL do Query nao

sql.add(�WHERE FNo = like ��0001� OR FNO = LIKE ��0003��);
Fica apontando no ��0001� ai nao compila, O q ta errado?

Firekiller · Answer

Onde voc� colocou assim: �WHERE FNo = like ��0001� deveria ficar assim:�WHERE FNo like ��0001� Quando voc� for usar o like, n�o precisxar por o sinal de igual....

Emerson Nascimento · Answer

utilize par�metros sempre que poss�vel. al�m de deixar seu c�digo mais �limpo�, em muitos casos n�o ser� necess�rio preocupar-se com convers�es de dados .

eu faria assim:

procedure TForm1.Button4Click(Sender: TObject); 
begin 
  //para pegar do in�cio:
  with Query3 do 
  begin 
    close; 
    sql.text := �select * from dpfuncs �+ 
                �where substring(fco from 1 for 4) between :inicio and :fim �;
    parambyname(�inicio�).asstring := Edit18.Text;
    parambyname(�fim�).asstring := Edit19.Text;
    open;
  end; 

  //para pegar do fim:
  with Query3 do 
  begin 
    close; 
    sql.text := �select * from dpfuncs �+ 
                �where substring(fco from 5 for 8) between :inicio and :fim �;
    parambyname(�inicio�).asstring := Edit18.Text;
    parambyname(�fim�).asstring := Edit19.Text;
    open;
  end; 
end;

Adriano_servitec · Answer

Obrigado pela dica amigosValeu mesmo, me ajudou muito...

Adriano_servitec · Answer

**Nao cosigo criar um novo topico por isso esta aqui munha duvida

Boa tarde amigos, o problema agora eh saber como fa�o para pegar somente os resultados dos dois primeiros numeros do campo dat tabela

Bom tenho dois edits tipo edit1 e edit2 e um botbtn para fazer o comando dentro de um dbgrid. Entao na tabela esta assim

11-RONDONIA
1100015-ALTA FLOTESTA
12-ACRE
1200013-ACRELANDIA
13-AMAZONAS
1300029-ALVARES

Bom entao no edit1 digitar assim 11 e no edit2 assim 13, quero que no dbgrid me apare�a da seguinte forma:

11-RONDONIA
12-ACRE
13-AMAZONAS

Preciso de uma ideia como se faz isso em SQL ja tentei usar o like e nao consegui, e tambem tentei de diversas formas, e nada ainda

Eis o codigo
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
QUERY2.ACTIVE:=TRUE;
query2.refresh;
with Query2 do
begin
try
close;
sql.clear;
sql.add(�select * from tb8munic�);
//sql.add(�WHERE (comunicipio >= � + quotedstr(edit2.Text) + � ) and (comunicipio <= � + quotedstr(edit3.Text) + � )�);
//SQL.ADD(�where substring(comunicipio from 1 for 2) between � + quotedstr(Edit2.Text) +� and �+quotedstr(Edit3.Text)+ ��);
//sql.add(�where comunicipio = like :Vcini and comunicipio = like :Vcfim�);
sql.add(�WHERE (comunicipio like :vcini) and (comunicipio like :vcfim)�);
Query2.ParamByName(�Vcini�).Value:=Edit2.Text+��;
Query2.ParamByName(�Vcfim�).Value:=��+Edit3.Text;
//sql.add(�WHERE (comunicipio >= � + quotedstr(edit2.Text + �00�) + � ) and (comunicipio <= � + quotedstr(edit3.Text + �99�) + � )�);
open;
except
beep;
ShowMessage(�Erro de SQL!�);
end;
end;
end;

Alguem tem uma ideia como me ajudar?
Grato
Adriano

Emerson Nascimento · Answer

[code:1:44758dab6f]procedure TForm2.BitBtn2Click(Sender: TObject);begin  with Query2 do    try      close;      sql.clear;      sql.add(�select * from tb8munic�);      sql.add(�WHERE (substring(comunicipio from 1 for 2) between :vcini and :vcfim)�);      sql.add(�and (substring(comunicipio from 3 for 1) = :traco)�);      ParamByName(�Vcini�).Value:= Edit2.Text;      ParamByName(�Vcfim�).Value:= Edit3.Text;      ParamByName(�Traco�).Value:= �-�;      open;     except       beep;       ShowMessage(�Erro de SQL!�);     end; end;[/code:1:44758dab6f]desde que seja garantido que em Edit2 e Edit3 ser�o digitados apenas 2 d�gitos. caso contr�rio deve ser alterado o par�metro da fun��o substring()veja se isso funciona. faz muito tempo que eu n�o trabalho com paradoidox.......

Adriano_servitec · Answer

Primeiramente queria agradecer pela sua aten�ao e ajuda, mais ainda nao deu, esta me retornando um valor vazio dentro da dbgridGrato pela ajudaAdriano...

Adriano_servitec · Answer

Ola Emerson, fiquei aqui estudando seu codigo ate chegar ao resultado esperado amigo, mais foi gra�as a vc e sua aten�ao que consegui chegar ao valor exato do que eu queria.

Eis o codigo

begin
with Query2 do
try
close;
sql.clear;
sql.add(�select * from tb8munic�);
sql.add(�WHERE (substring(COmunicipio from 1 for 2) between :vcini and :vcfim)�);
sql.add(�and (substring(COmunicipio from 7 for 3) < :numero)�);
ParamByName(�Vcini�).Value:= Edit2.Text;
ParamByName(�Vcfim�).Value:= Edit3.Text;
ParamByName(�numero�).Value:= �0�;
open;
except
beep;
ShowMessage(�Erro de SQL!�);
end;
end;

Percebi que na tabela depois dos dois primeiros numeros tinha um 0 (zero) entao foi so fazer um sbstring do 7 ao 3 sendo menor que 0

Pronto o resultado ficou satisfatorio

Agrade�o mais uma vez por ter me ajudado
Obrigado amigo
Abra�os
T+

F�rum Filtrar somente os 4 primeiros numeros do campo? #301020