Erro em sql din�mica.

Question

Eu tenho uma consulta usando query din�ica, que funciona bem. Acontece que eu precisei incluir um BETWEEN, e a� a �vaca foi pro brejo�. Como faz�-las funcionar bem, eis abaixo a sql:varsql: string;i: ...

Motta · Answer

O problema est� na forma que o sql de seu bd formata a data.

No Oracle seria algo assim

data between to_date(�01-sep-03�,�dd-mmm-yy�) and
to_date(�18-sep-03�,�dd-mmm-yy�)

ou seja vc ter� de formatar a data

outra solucao

var
sql: string;
i: integer;
begin
sql:=�Select * From Cliente where�;
If Length(Tipo.Text) > 0
then Sql := Sql + � TIPO = ��+Tipo.Text+�� AND�;
If (Length(Data5.Text)) and (Length(Data6.Text)) > 0
then Sql := Sql + � Data between ��+�:d1�+�� AND ��+�:d2�+��;
If Copy(Sql,Length(Sql)-2,3) = �AND�
Then Delete(Sql,Length(Sql)-2,3);
If Copy(Sql,Length(Sql)-4,5) = �WHERE�
Then Delete(Sql,Length(Sql)-4,5);
Cliente.SQL.Text:=sql;
cliente.params[0].AsDateTime := strtodate(edit1.text);
cliente.params[1].AsDateTime := strtodate(edit2.text);
Cliente.Active:=True;

desde que o formato da data nos edits seja v�lido

Ljr · Answer

Acho que com estas alteracoes o codigo ira funcionar.

var
sql: string;
i: integer;
Par: Boolean
begin
sql:=�Select * From Cliente where�;

If Length(Tipo.Text) > 0 then
Sql := Sql + � TIPO = ��+Tipo.Text+�� AND�;

{ If (Length(Data5.Text)) and (Length(Data6.Text)) > 0 then
Sql := Sql + � Data between ��+data5.Text+�� AND ��+data6.Text+��;}

If (Length(Data5.Text)) and (Length(Data6.Text)) > 0 then
begin
Sql := Sql + � Data between :Dini AND :Dfim�;
Par:= True;
end;

If Copy(Sql,Length(Sql)-2,3) = �AND� Then
Delete(Sql,Length(Sql)-2,3);

If Copy(Sql,Length(Sql)-4,5) = �WHERE� Then
Delete(Sql,Length(Sql)-4,5);

Cliente.SQL.Text:=sql;
if Par then
begin
cliente.ParamByName(�DINI�).Value:= StrToDate(data5.Text);
cliente.ParamByName(�DFIM�).Value:= StrToDate(data6.Text);
end;
Cliente.Open;
end;

So nao testei, para ver o resultado.

Paulo · Answer

Mota, eu fiz como vc disse: Agora d� o erro, que n�o � poss�vel o campo data ficar vazio. Esta consulta(din�mica), � feita exatamente para isso, ou seja, alguns campos serem preenchidos ou n�o.
Eu tenho dois campos:
1� - Uma combobox, onde eu entro com o tipo de im�vel a ser consultado
2� - H� dois maskedit, para formatar a data. A consulta deve-se fazer da seguinte forma:
Ou eu entro com todos os dados, ou eu entro s� com o tipo de im�vel ou o per�odo, e a consulta deve prosseguir. Eu tenho outra consulta semelhante a esta, s� que com muito mais campos, como, Tipo, Localiza��o, Bairro, Valor e etc.. e a consulta funciona, tanto eu preencher todos os campos ou somente um ou alguns deles(Query Din�mica). � isto o que eu quero, s� que com per�odos de datas(BETWEEN).

Motta · Answer

que bd vc usa ?tente apenas formatar a data .no meu exemplo tinha um furo , pois se o controle que tem a data est� vazio iria passar nulo para o parametro.costumo fazer isto formatando a data no sql p/ o Oracle...

Paulo · Answer

Eu uso Paradox. Ljr, fiz como vc disse, e d� o mesmo erro que o exemplo que o Mota me mandou, ou seja, / / , is not valid date, esse � o erro. Lembrando, que esta consulta � para informar ou n�o o per�odo de datas. nem sempre ele(per�odo) ser� informado, assim como o tipo nem sempre ser� informado. Se eu preencho o tipo mas n�o o per�odo, ent�o, d� o erro acima. Se eu preencho o per�odo e n�o o Tipo, n�o d� erro e a consulta procede como eu gostaria.

Motta · Answer

exemplo de sql extraido do help do paradoxSELECT *FROM OrdersWHERE (SaleDate <= �1/23/1998�)tente formatar a data assim entre aspas duplas e deve funcionar...

Paulo · Answer

Mota, n�o � o formato de data, mas � a pesquisa n�o est� aceitando a data vazia, e eu preciso da consulta com data vazia tamb�m, por isso eu optei por query�s din�micas. Cmo foi declarado par�metro, creio que por causa disso � que n�o aceita data vazia.

Ljr · Answer

Entao quando a data for nula qual deve ser o comportamento da query?...

Motta · Answer

costumo fazer assimquery1.sql.add(�select *�);query1.sql.add(�from tabela�);// condicao obrigquery1.sql.add(�where campo1=12345�);// condicao opcionalif edit1.text <> �� then query1.sql.add(� and campo2=�+edit1.text);// outra opcionalif edit2.text <> �� then query1.sql.add(� and campo3<>�edit2.text);s� tome cuidado para que a sintaxe fique legal...

Adilsond · Answer

[code:1:127392f528]begin with Cliente do begin if Active then Close; SQL.Clear; SQL.Add(�select *�); SQL.Add(�from Cliente�); if Trim(Tipo.Text) <> �� then SQL.Add(�where tipo = � + QuotedStr(Tipo.Text)); if (Trim(Data5.Text) <> �/ /�) and (Trim(Data6.Text) <> �/ /�) then begin if SQL.Count = 2 then SQL.Add(�where data between :dtini and :dtfin�) else SQL.Add(� and data between :dtini and :dtfin�); ParamByName(�dtini�).AsDate := StrToDate(Data5.Text); ParamByName(�dtfin�).AsDate := StrToDate(Data6.Text); end else if (Trim(Data5.Text) <> �/ /�) or (Trim(Data6.Text) <> �/ /�) then begin if Trim(Data5.Text) = �/ /� then begin if SQL.Count = 2 then begin SQL.Add(�where (data is null�); SQL.Add(� or data <= :dtfin)�); end else begin SQL.Add(� and (data is null�); SQL.Add(� or data <= :dtfin)�); end; ParamByName(�dtfin�).AsDate := StrToDate(Data6.Text); end else begin if SQL.Count = 2 then begin SQL.Add...

Paulo · Answer

Deixa eu explicar melhor. As querys din�micas servem para, por exemplo, eu tenho cinco edits para consulta. Eu uso query din�mica para n�o necessariamente usar todos os itens dos edits para satisfazer a consulta, consulta muito comum na Internet, assim: Digamos que eu tenha 4 combobox:
1� - Localiza��o
2� - Bairro
3� - Condom�nio
4� - Valor
Ent�o o cliente ele quer, usar as quatros, a consulta vem pelas quatro. Mas um outro cliente, por exemplo, s� quer o valor e o bairro, e assim por diante, por isso o uso de query din�mica. Comigo � semelhante, s� que ao inv�s de um campo fixo, direto, eu uso um per�odo de datas e o tipo de im�vel. Se os campos de Data(Data_Ini e Data_Fim) estiverem vazios, a pesquisa vem s� pelo tipo, ou seja, a data � ignorada, o contr�rio � v�lido tamb�m.

Adilsond · Answer

Ent�o utilize apenas a primeira parte do c�digo anterior:

begin 
  with Cliente do 
    begin 
      if Active then 
         Close; 
      SQL.Clear; 
      SQL.Add(�select *�); 
      SQL.Add(�from Cliente�); 
      if Trim(Tipo.Text) <> �� then 
         SQL.Add(�where tipo = � + QuotedStr(Tipo.Text)); 
      if (Trim(Data5.Text) <> �/  /�) and 
         (Trim(Data6.Text) <> �/  /�) then 
         begin 
           if SQL.Count = 2 then 
              SQL.Add(�where data between :dtini and :dtfin�) 
           else 
              SQL.Add(�  and data between :dtini and :dtfin�); 
           ParamByName(�dtini�).AsDate := StrToDate(Data5.Text); 
           ParamByName(�dtfin�).AsDate := StrToDate(Data6.Text); 
         end;
      Open; 
    end; 
end;

F�rum Erro em sql din�mica. #182828