Pesquisa em tabela Paradox, como fa�o?

Question

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...

Koplin · Answer

se o campo for tipo TDate:var:data:TDAte;beginData:=StrToDateDef(�01/01/2000,0);//se n�o consegue converter em data a variavel recebe valor 0 por padr�oIf data > 0 then Table1.locate(�Campo_Data�,data,[]);...

Delphox · Answer

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 editou 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)...

Bacalhau · Answer

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;

F�rum Pesquisa em tabela Paradox, como fa�o? #179955