Busca entre dois valores

Delphi

31/03/2003

Estou tentado criar uma busca entre dois campos cliente e cod_recibo, mas atraves do código abaixo nao consigo, o que esta errado ou como poderia fazr isso:


var Filtro : string;
begin
dm.Qr_Recibo.Close;
dm.Qr_Recibo.SQL.Clear;
dm.Qr_Recibo.SQL.Add(´select * from tb_recibo´);
if Trim(Edit1.Text) <> ´´ then
Filtro := ´WHERE cliente LIKE ´ + QuotedStr(´¬´ + Edit1.Text + ´¬´);
if Trim(edit2.Text) <> ´´ then
Filtro := ´and cod_recibo LIKE ´ + QuotedStr(´¬´ + edit2.Text + ´¬´);

dm.Qr_Recibo.SQL.Add(Filtro);
dm.Qr_Recibo.Open;


agredeço


Anonymous

Anonymous

Curtidas 0

Respostas

E_gama

E_gama

31/03/2003

Faca a seguinte alteracao:

var strWhere, strAnd, Filtro : string; 
begin 
  dm.Qr_Recibo.Close;   
  dm.Qr_Recibo.SQL.Clear; 
  dm.Qr_Recibo.SQL.Add(´select * from tb_recibo´); 
  strWhere := ´Where´;
  strAnd := ´´;
  if Trim(Edit1.Text) <> ´´ then 
    begin
     strWhere := strWhere + ´ cliente LIKE ´ + QuotedStr(´¬´ + Edit1.Text + ´¬´); 
     strAnd := ´ and ´;
    end;

  if Trim(edit2.Text) <> ´´ then 
    begin
      strWhere := strWhere + ´ ´ + strAnd + ´ cod_recibo LIKE ´ + QuotedStr(´¬´ + edit2.Text + ´¬´); 
    end;

dm.Qr_Recibo.SQL.Add(strWhere); 
dm.Qr_Recibo.Open;


Agora, reflita sobre o que poderia estar errado.


GOSTEI 0
Cristiano

Cristiano

31/03/2003

Tenho um sistema que utiliza tabelas paradox, não consigo gravar caracteres especiais numa Tabela, Por Exemplo

Uma Senha Cryptografada.

Alguém sabe qual é o mistério?

Obrigaduu :(


GOSTEI 0
Cristiano

Cristiano

31/03/2003

Tenho um sistema que utiliza tabelas paradox, não consigo gravar caracteres especiais numa Tabela, Por Exemplo

Uma Senha Cryptografada.

Alguém sabe qual é o mistério?

Obrigaduu :(


GOSTEI 0
POSTAR