Fórum Busca entre dois valores #150669

31/03/2003

0

Delphi

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

Responder

Posts

31/03/2003

E_gama

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.


Responder

Gostei + 0

01/04/2003

Cristiano

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 :(


Responder

Gostei + 0

01/04/2003

Cristiano

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 :(


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar