Pesquisa

[leandromarujo 0]

Tenho um campo chamado vencimento, onde são cadastradas datas, gostaria de fazer o seguinte, colocar um edit e um botao, e que nesse edit seria digitado uma data futura, e num dbgrid seria exibido da data atual até a data futura.tentei fazer isso , mas não funcionou:Select * form tabelawhere vencimento between getdate() and :data_finalno botão localizar:query1.ParamByName('Data_Final').asDate := StrToDate(Edit1.Text);Open;aparece uma janela escrito dabase engine errordizendo: Capability not supported.

[InuTaishou 0]

Não entendi bem a mensagem de erro e também não sei usar o between, mas de qualquer forma tente assim:

Select * form tabelawhere vencimento >= getdate() and vencimento <= :data_final

[]'s,

[leandromarujo 0]

Não entendi bem a mensagem de erro e também não sei usar o between, mas de qualquer forma tente assim:

Select * form tabelawhere vencimento >= getdate() and vencimento <= :data_final

[]'s,

continuo dando o mesmo erro...

[InuTaishou 0]

Tente tirar o Getdate e fazer um filtro de data, estilo:

Select * form tabelawhere vencimento between StrToDate( '01\01\2001' ) and :data_final

[Aroldo Zanela 0]

Colega,

 

Troque form por from

[leandromarujo 0]

Colega,

 

Troque form por from

o form eu percebi rápido, desse jeito não pope, pois preciso da data atual, se especificar uma data hoje e amanhã

[Aroldo Zanela 0]

Colega,Qual é o banco de dados que você está utilizando (a sintaxe usada é a do SQL Server) e qual mecanismo de acesso (parece ser BDE)?

[leandromarujo 0]

Colega,Qual é o banco de dados que você está utilizando (a sintaxe usada é a do SQL Server) e qual mecanismo de acesso (parece ser BDE)?

bde paradox7

[Aroldo Zanela 0]

Colega,

 

Então a mensagem de erro é gerada em face do Paradox não suportar a função GetDate() (presente no SQL Server). Uma solução:

 

Select * from tabela where vencimento between :data_inicial and :data_final 

 

no botão localizar:

 

with query1 dobegin  Close;  ParamByName('Data_inicial').asDate := Date; // Data do OS  ParamByName('Data_Final').asDate := DateTimePicker1.Date; //   Open;end;

[leandromarujo 0]

Colega,Então a mensagem de erro é gerada em face do Paradox não suportar a função GetDate() (presente no SQL Server). Uma solução:

<font face="verdana">Select * from tabela where vencimento between :data_inicial and :data_final </font> 

no botão localizar:

with query1 dobegin  Close;  ParamByName('Data_inicial').asDate := Date; // Data do OS  ParamByName('Data_Final').asDate := DateTimePicker1.Date; //   Open;end;

a mensagem de erro agora mudou:bde error: 10770 [$2A] [$12]token : selectline number 2Invalid use of keyword.

[Aroldo Zanela 0]

Colega,

 

Não consegui visualizar o problema. Tente adicionar a seguinte linha para vermos o script antes de sua abertura:

 

with query1 dobegin Close; ParamByName('Data_inicial').asDate := Date; // Data do OS ParamByName('Data_Final').asDate := DateTimePicker1.Date; //   ShowMessage(SQL.Text); // Adicionar esta linha Open;end;