Buscar por:

pesquisa SQL de datas amarzenadas em Varchar

Código

Olá Pessoal no meu banco de dado as datas estão gravadas em varhar, estava com dificuldades p/ manipular, em pesquisa pela net adaptei algumas coisas e deu certo.

Ai vai uma parte do codigo fonte.

procedure Tfrm_media_vendas.Label13Click(Sender: TObject);

begin

//=============== calcula total de vendas no mes de janeiro====================

frm_media_vendas.query1.Close;

frm_media_vendas.query1.sql.clear;

frm_media_vendas.query1.sql.add('select SUM(VL_TOT_ORC) from orcamentos');

frm_media_vendas.query1.sql.add ('where DT_ORC like "%01/'+(Edit2.Text)+'"');

frm_media_vendas.query1.sql.add ('ORDER by CD_ORC');

frm_media_vendas.query1.Open;

frm_media_vendas.DBGrid1.Refresh;

frm_media_vendas.Label13.Caption:=IntToStr(Query1.RecordCount);

frm_media_vendas.MaskEdit1.Text:='R$'+ floatTostr(frm_media_vendas.DBGrid1.SelectedField.AsCurrency);

//=====================fim do calculo==================================

//===================Total Orçamentos Janeiro=========================

frm_media_vendas.query1.Close;

frm_media_vendas.query1.sql.clear;

frm_media_vendas.query1.sql.add('select * from orcamentos');

frm_media_vendas.query1.sql.add ('where DT_ORC like "%01/'+(Edit2.Text)+'"');

frm_media_vendas.query1.sql.add ('ORDER by CD_ORC');

frm_media_vendas.query1.Open;

frm_media_vendas.DBGrid1.Refresh;

frm_media_vendas.Label13.Caption:=IntToStr(Query1.RecordCount);

//=========================fim da pesquisa===================

end;