Pesquisa em tabela Paradox, como faço?
Olá galera,
Como faço para fazer uma pesquisa em uma tabela paradox usando um campo de data (formato: 25/08/02), estou usando o componente Table no Delphi 7.
Obrigado,
JC
Como faço para fazer uma pesquisa em uma tabela paradox usando um campo de data (formato: 25/08/02), estou usando o componente Table no Delphi 7.
Obrigado,
JC
Jc
Curtidas 0
Respostas
Koplin
04/09/2003
se o campo for tipo TDate:
var:data:TDAte;
begin
Data:=StrToDateDef(´01/01/2000,0);//se não consegue converter em data a variavel recebe valor 0 por padrão
If data > 0 then
Table1.locate(´Campo_Data´,data,[]);
var:data:TDAte;
begin
Data:=StrToDateDef(´01/01/2000,0);//se não consegue converter em data a variavel recebe valor 0 por padrão
If data > 0 then
Table1.locate(´Campo_Data´,data,[]);
GOSTEI 0
Delphox
04/09/2003
8) Faça o seguinte:
Coloque a propriedade filtered de sua table para TRUE e em algum botao
coloque o seguinte codigo:
begin
ttable.filter:=´seu_campo_data=´+#39+tedit.text+39;
end;
onde o edit.text é a data ou tambem pode usar um mask edit
ou se vc tá usando o datatimerpicker faça:
ttable.filter:=´seu_campo_data=´+39+datetostr(datatimerpicker.date)+39;
se ainda não funcionar deve ser as aspas(39),retire-as...
8)
Coloque a propriedade filtered de sua table para TRUE e em algum botao
coloque o seguinte codigo:
begin
ttable.filter:=´seu_campo_data=´+#39+tedit.text+39;
end;
onde o edit.text é a data ou tambem pode usar um mask edit
ou se vc tá usando o datatimerpicker faça:
ttable.filter:=´seu_campo_data=´+39+datetostr(datatimerpicker.date)+39;
se ainda não funcionar deve ser as aspas(39),retire-as...
8)
GOSTEI 0
Bacalhau
04/09/2003
Uma alternativa é criar um indice secundário para o campo Data. Para o aceder fazes:
// para pesquisa
tabela.indexname := <nome do indice>;
tabela.fieldbyname(´Data´).asdatetime := <data que pretendes>;
tabela.gotokey; // ou gotonearest
// para filtrar uma data ou entre datas
tabela.indexname := <nome do indice>;
tabela.setrangestart;
tabela.fieldbyname(Data´).asdatetime := <data inicial>;
tabela.setrangeend;
tabela.fieldbyname(Data´).asdatetime := <data final>;
tabela.applyrange;
// para pesquisa
tabela.indexname := <nome do indice>;
tabela.fieldbyname(´Data´).asdatetime := <data que pretendes>;
tabela.gotokey; // ou gotonearest
// para filtrar uma data ou entre datas
tabela.indexname := <nome do indice>;
tabela.setrangestart;
tabela.fieldbyname(Data´).asdatetime := <data inicial>;
tabela.setrangeend;
tabela.fieldbyname(Data´).asdatetime := <data final>;
tabela.applyrange;
GOSTEI 0