Sql.. selecinar atraves de intervalo de dadas?

Question

amigos, com com um pequeno problema, estou fazendo uma consulta atrav� de uma qry (sql) onde passo valores atrav�s de  parametros para selecionar registros no intervalo de data digitato em um TEditdat...

Ericksasse · Answer

Minha dica � gerar o SQL em runtime, incluindo no WHERE somente quando uma data for informada....

Ericksasse · Answer

Talvez d� certo tamb�m incluindo a checagem NULL do parametro no WHERE. Algo assim (n�o testei):

SELECT * FROM TABELA WHERE (DATA >= :PINICIO OR :PINICIO IS NULL) AND (DATA <= :PFIM OR :PFIM IS NULL)

Ant.neto · Answer

[quote:f7731a724f=�ErickSasse�]Talvez d� certo tamb�m incluindo a checagem NULL do parametro no WHERE. Algo assim (n�o testei):[code:1:f7731a724f]SELECT * FROM TABELA WHERE (DATA >= :PINICIO OR :PINICIO IS NULL) AND (DATA <= :PFIM OR :PFIM IS NULL)[/code:1:f7731a724f][/quote:f7731a724f]valeu pela a dica mas esta op��o tentei incrementar mas n�o deu certo.. o sistema travava... tentei usar a sua primeira dica passando o sql  em runtime.. Como � a primeira vez que fa�o.. o sistemas travou tambem...  tem como vc. dar uma olhada neste c�digos a� pra ver se existe alguma coisa certa!!Meu sql normal. sem passar o sql em runtime.SELECT CodCliente, Nome, Categoria, DDD, TelPrinc, TelLocal, Contato, Pessoa, E_Mail_Princ, Data_cadFROM �TbNome.DB� TbnomeWhere Upper(Tbnome.Nome) Like Upper(:VarNome) andTbnome.Data_cad between :VarDataI and  :VarDataF andUpper(Tbnome.Contato) Like Upper(:VarContato)Order by Tbnome.NomeAgora passando em runtime que deu pau... (travou)[code:1:f7731a724f]With QryPesq do    Begin      close;      Sql.clear;      Sql.Add(�SELECT CodCliente, Nome, Categoria, DDD, TelPrinc, TelLocal, Contato,       Pessoa, E_Mail_Princ, Data_cad FROM "TbNome.DB" Tbnome Where Upper(Tbnome.Nome) Like Upper(:VarNome)�);      ParamByName(�VarNome�).AsString:=���+BFSEdit1.text+���;      Prepare;      Open;     end;  // QryPesq.ParamByName(�VarNome�).AsString:=���+BFSEdit1.text+���;[/code:1:f7731a724f]tem alguma coisa certa neste c�digo a� de cima?? Valew + 1 vez.....

Macaquito86 · Answer

Posso ta falando bobagem , mas vc ja tentou usar o between ?�select bla bla bla where data between lala and lele �...

Rjun · Answer

Eu evito ao m�ximo colocar c�digo SQL no meio do c�digo fonte. Por isso, coloque seu c�digo SQL b�sico no seu componente.

SQL

SELECT 
  CodCliente, 
  Nome,
  Categoria, 
  DDD, 
  TelPrinc, 
  TelLocal, 
  Contato, 
  Pessoa, 
  E_Mail_Princ, 
  Data_cad 
FROM 
  "TbNome.DB" Tbnome

No seu c�digo, fa�a algo parecido com o c�digo abaixo:

procedure SQLFiltro;
var
  WhereData,
  WhereSemData: string;
begin
  WhereData := �Where Upper(Tbnome.Nome) Like Upper(:VarNome) and 
Tbnome.Data_cad between :VarDataI and :VarDataF and 
Upper(Tbnome.Contato) Like Upper(:VarContato) 
Order by Tbnome.Nome �;

  WhereSemData := �Where Upper(Tbnome.Nome) Like Upper(:VarNome) and Upper(Tbnome.Contato) Like Upper(:VarContato) 
Order by Tbnome.Nome �;

  // Verifica se datas s�o vazias
  if (edtData1.Text = �� or edtData2.Text = ��) then
    Query1.SQL.Add(WhereSemData)
  else
  begin
    Query1.SQL.Add(WhereData);
    Query1.ParambyName(�VarDataI�).Value := StrToDate(edtData1.Text);
    Query1.ParamByName(�VarDataF�).Value := StrToDate(edtData2.Text);
  end;

  try
    Query1.Open;
    // Coloque o que voc� quer fazer com o resultado da query
  finally
    Query1.Close;
  end;
end;

Ant.neto · Answer

Valeu Galera pela for�a...

Rjun · Answer

Deu certo?...

Ant.neto · Answer

[quote:ed209b944b=�Rjun�]Deu certo?[/quote:ed209b944b]N�o deu cara, usei sua instru��o mas o sistema trava.... n�o executa a qry...  so roda se eu colocar o sql na pr�ria sql... t� fd resolver isso... mas valeu!!...

Rjun · Answer

Que banco voc� esta usando? Qual a tecnologia de acesso?...

Ant.neto · Answer

[quote:42527a22be=�Rjun�]Que banco voc� esta usando? Qual a tecnologia de acesso?[/quote:42527a22be]Paradox - Tbnome.DB (nome da tabele).....

Rjun · Answer

Coloque o c�digo para que possamos ver o erro....

Belo · Answer

Bom, tomando como o exemplo o c�digo dado por voc�, fiz algumas altera��es, veja:

procedure TForm1.Button1Click(Sender: TObject);
begin
with QryPesq do
begin
Close;
SQL.Clear;
SQL.Add(�SELECT * FROM TbNome�);
SQL.Add(�WHERE UPPER(Nome) LIKE:Nome�);
QryPesq.Params[0].AsString := UpperCase(BFSEdit1.Text) + ��;
ExecSQL;
Open;
end;
end;

Esse exemplo � para a pesquisa do campo NOME.

No caso do campo do tipo data, existe v�rias formas de se fazer, uma delas � convertendo no proprio SQL usando a fun��o CAST, veja:

procedure TForm1.Button1Click(Sender: TObject);
begin
with QryPesq do
begin
Close;
SQL.Clear;
SQL.Add(�SELECT * FROM TbNome�);
SQL.Add(�WHERE WHERE SUBSTRING(CAST(CAST(Data_cad AS DATE) AS CHAR(10)) FROM 1 FOR 10) LIKE:Data_cad�);
QryPesq.Params[0].AsString := BFSEdit1.Text + ��;
ExecSQL;
Open;
end;
end;

Ant.neto · Answer

com exemplo de vcs. mas umas adapta��es consegui fazer..  Brigad�o.. depois  eu envio o c�digo para vcs.....

F�rum Sql.. selecinar atraves de intervalo de dadas? #287601