F�rum Ajuda com consulta Access + Delphi #586302

27/09/2017

Ol� galera, tudo bem?
Ent�o � o seguinte, estou com uma consulta no delphi com banco de dados SQL de vencimento essa consulta ta funcionando perfeitamente por�m estou com uma dificuldade como posso estar colocando mais uma condi��o a essa consulta?

  dm.Tab_Clientes.Open;
  with dm.Query do
    begin
    close;
    sql.Clear;
    sql.Add('select * from Clientes where Vencimento <='+FormatDateTime('#mm/dd/yyyy#',now));
    sql.Add('Order by Vencimento');
    open;
  end;

Diego Pereira

Curtir t�pico

+ 0

Responder

Posts

27/09/2017

Nomad

Boa tarde!

J� tentou adicionando o AND?

Responder

Gostei + 0

27/09/2017

Diego Pereira

N�o to sabendo acrescentar o AND nesse par�metro que usei, to meio leigo.

Responder

Gostei + 0

27/09/2017

Diego Pereira

No caso outra condi��o a ser adicionada seria um tipo True/False.

Responder

Gostei + 0

28/09/2017

Luiz Vichiatto

  dm.Tab_Clientes.Open;
  with dm.Query do
    begin
    close;
    sql.Clear;
    sql.Add('select * from Clientes where Vencimento <='+FormatDateTime('#mm/dd/yyyy#',now));
    sql.Add('Order by Vencimento');
    open;
  end;

Voc� pode utilizar IF

dm.Tab_Clientes.Open;
  with dm.Query do
    begin
    close;
    sql.Clear;
    sql.Add('select * from Clientes where 0=0 ') // 0=0 � para n�o ter que fazer controle do and ou or - artif�cio t�cnico.
	if condicao_1 then
		sql.Add(' and Vencimento <='+FormatDateTime('#mm/dd/yyyy#',now));
	if condicao_2 then
		sql.Add(' and Data_Compra <='+FormatDateTime('#mm/dd/yyyy#',now));
	
    sql.Add('Order by Vencimento');
    open;
  end;

Responder

Gostei + 0

03/10/2017

Diego Pereira

Obrigado todos pela a disposi��o em ajudar, mas consegui fazer de outra forma.

with dm.Query do
  begin
    close;
    sql.Clear;
    sql.Add('select * from Clientes where Vencimento <='+FormatDateTime('#mm/dd/yyyy#',now));
    sql.Add('and Inativo=False');
    sql.Add('Order by Vencimento');
    open;
  end;

Responder

Gostei + 0