Fórum Busca ordenada #330463
30/09/2006
0
´Prescido de um filtro onde digito um número filtre somente ele tipo o que es tenho aki..
quando digito ele vai me dando opções..tipo digito o 4, se tiver um 40 ele me mostra, más eu presciso que me mostre somente o 4 ...tem como fazer isto..digito o 10 vem só o 10, digito o 1 vem só o um tem como ? vlwt+
var
A:integer;
begin
A:=BD_VENDAGS_VEN_CODIGO.Value;
with BD_VENDA_ITENS do
begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM VENDA_ITENS´);
SQL.Add(´WHERE UPPER(GS_ITEN_COD_ACES) LIKE:GS_ITEN_COD_ACES´);
BD_VENDA_ITENS.Params[0].AsString := UpperCase(IntToStr(a)) + ´¬´;
BD_VENDA_ITENS.Open;
end;
quando digito ele vai me dando opções..tipo digito o 4, se tiver um 40 ele me mostra, más eu presciso que me mostre somente o 4 ...tem como fazer isto..digito o 10 vem só o 10, digito o 1 vem só o um tem como ? vlwt+
Gigatel
Curtir tópico
+ 0
Responder
Posts
01/10/2006
Paullsoftware
´Prescido de um filtro onde digito um número filtre somente ele tipo o que es tenho aki..
quando digito ele vai me dando opções..tipo digito o 4, se tiver um 40 ele me mostra, más eu presciso que me mostre somente o 4 ...tem como fazer isto..digito o 10 vem só o 10, digito o 1 vem só o um tem como ? vlwt+
var
A:integer;
begin
A:=BD_VENDAGS_VEN_CODIGO.Value;
with BD_VENDA_ITENS do
begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM VENDA_ITENS´);
SQL.Add(´WHERE UPPER(GS_ITEN_COD_ACES) LIKE:GS_ITEN_COD_ACES´);
BD_VENDA_ITENS.Params[0].AsString := UpperCase(IntToStr(a)) + ´¬´;
BD_VENDA_ITENS.Open;
end;
claro, remova o ´¬´ do final da linha e pronto... :wink:
var
A:integer;
begin
A:=BD_VENDAGS_VEN_CODIGO.Value;
with BD_VENDA_ITENS do
begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM VENDA_ITENS´);
SQL.Add(´WHERE UPPER(GS_ITEN_COD_ACES) LIKE :GS_ITEN_COD_ACES´);
BD_VENDA_ITENS.Params[0].AsString := UpperCase(IntToStr(a));
BD_VENDA_ITENS.Open;
end;
:!: Se a pesquisa é para encontrar numeros, ou seja, valores exatos não há a necessidade de usar o [b:f8f37dbaa6]LIKE[/b:f8f37dbaa6] pode-se simplesmente usar o sinal de atribuição IGUAL assim:
var
A:integer;
begin
A:=BD_VENDAGS_VEN_CODIGO.Value;
with BD_VENDA_ITENS do
begin
Close;
SQL.Clear;
SQL.Add(´SELECT * FROM VENDA_ITENS´);
SQL.Add(´WHERE UPPER(GS_ITEN_COD_ACES) =:GS_ITEN_COD_ACES´);
BD_VENDA_ITENS.Params[0].AsInteger := A;
BD_VENDA_ITENS.Open;
end;
espero ter ajudado :wink:
:idea: Normalmente usamos o Like + ´¬´ no final da linha para que seja retornado todos os registros que começam com os dados informados. Por exemplo: quero encontrar todas os registro que começam com M então digito M, quando executar a pesquisa ele me retornará todas os registro que iniciam com essa letra...
Responder
Gostei + 0
01/10/2006
Gigatel
Cara foi de uma grande ajuda vlw mesmo...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)