Pesquisa por data dando erro..

Question

E a� ?... antes eu usava VARCHAR para receber valores data a� resolv� mudar os campos para DATE, s� que quando fa�o um pesquisa ela est� dando erro..vela o que pode ser de errado...[code:1:85ffbd3890]...

Oscar Candido · Answer

Vc fechou a �ltima aspa??seria:[code:1:d3fec924da]...�StrToDate(MaskEdit2.text)�; [/code:1:d3fec924da]ao inv�s de :[code:1:d3fec924da]...�StrToDate(MaskEdit2.text); [/code:1:d3fec924da]...

Gigatel · Answer

Mudei assim[code:1:2d76d0a3dc]  _FORM_OS_REL_IMP_01.BD_OFC_ELE.SQL.Add(�Select * from ORCAMENTO_OFIC_ELET where GS_OOE_DATA_ORC between �+char(39)+MaskEdit1.text+char(39)+� and � +char(39)+MaskEdit2.text+char(39));[/code:1:2d76d0a3dc]m�s d� agora este erro[code:1:2d76d0a3dc]conversion errorfrom string 22/11/2005[/code:1:2d76d0a3dc]tentei converter m�s num deu certo.....

Oscar Candido · Answer

Ops, falei besteira :oops: :oops:

acho que seria

  _FORM_OS_REL_IMP_01.BD_OFC_ELE.Close;
  _FORM_OS_REL_IMP_01.BD_OFC_ELE.SQL.Clear;
  _FORM_OS_REL_IMP_01.BD_OFC_ELE.SQL.Add(�Select * from ORCAMENTO_OFIC_ELET where GS_OOE_DATA_ENT between �+ StrToDate(MaskEdit1.text)+ � and � + StrToDate(MaskEdit2.text);
  _FORM_OS_REL_IMP_01.BD_OFC_ELE.Open;

Gigatel · Answer

deu este erro aki[code:1:7d5740e25e]&#91;Error&93; Unit41.pas(86): Incompatible types: �String� and �TDateTime�&91;Error&93; Unit41.pas(86): Incompatible types: �String� and �Extended�[/code:1:7d5740e25e]Vlw pelo apoio...

Gigatel · Answer

Andei pesquisando m�s s� mudei o tipo do campo de varchar para date...e d� o erro...muito estranho.. e continua sem solu��o......

Okama · Answer

Ol� Gigatel,

Insira Aspas simples e formate a data antes de enviar para o SQL.
N�o h� necesisdade de usar Varchar:

Var
  DataINI, DataFIM : TDateTime
Begin

Try 
   DataINI := StrToDateTime( MaskEdit1.Text );
   DataFIM := StrToDateTime( MaskEdit2.Text );
Except
end; 


SQL.text := �Select * from TABELA  where Campo_Data between �+
                  QuotedStr( FormatDateTime(�mm/dd/yyyy�, DataINI) )+
          � and �+
                  QuotedStr( FormatDateTime(�mm/dd/yyyy�, DataFIM) );

              
Open;
...

Gigatel · Answer

[quote:43c7b0d988=�Okama�]Ol� Gigatel, Insira Aspas simples e formate a data antes de enviar para o SQL.N�o h� necesisdade de usar Varchar:[code:1:43c7b0d988]Var  DataINI, DataFIM : TDateTimeBeginTry    DataINI := StrToDateTime( MaskEdit1.Text );   DataFIM := StrToDateTime( MaskEdit2.Text );Exceptend; SQL.text := �Select * from TABELA  where Campo_Data between �+                  QuotedStr( FormatDateTime(�mm/dd/yyyy�, DataINI) )+          � and �+                  QuotedStr( FormatDateTime(�mm/dd/yyyy�, DataFIM) );              Open;...[/code:1:43c7b0d988][/quote:43c7b0d988]OI blz ?...Coloquei este c�digo:[code:1:43c7b0d988]procedure T_FORM_OS_SELDATA_MOS.Button1Click(Sender: TObject);Var  DataINI, DataFIM : TDateTime;Begin  Try    DataINI := StrToDateTime( MaskEdit1.Text );    DataFIM := StrToDateTime( MaskEdit2.Text );    Except  end;   _FORM_OS_REL_IMP_01 := T_FORM_OS_REL_IMP_01.Create(Self);   _FORM_OS_REL_IMP_01.QRLabel6.Caption := �Relat�rio de O.S. - Entradas�;   _FORM_OS_REL_IMP_01.BD_OFC_ELE.Close;   _FORM_OS_REL_IMP_01.BD_OFC_ELE.SQL.Clear;   _FORM_OS_REL_IMP_01.BD_OFC_ELE.SQL.Add(�Select * from ORCAMENTO_OFIC_ELET  where GS_OOE_DATA_ORC between �+                  QuotedStr( FormatDateTime(�mm/dd/yyyy�, DataINI) )+          � and �+                  QuotedStr( FormatDateTime(�mm/dd/yyyy�, DataFIM) );  _FORM_OS_REL_IMP_01.BD_OFC_ELE.Open;  _FORM_OS_REL_IMP_01.QuickRep1.Preview;end;[/code:1:43c7b0d988]m�s d� este erro[code:1:43c7b0d988]&#91;Error&93; Unit41.pas(98):...

Gigatel · Answer

Vlw..agora funcionou estava faltando um parenteses ( acho que � assim que se escreve )....A func�o ficou assim...

procedure T_FORM_OS_SELDATA_MOS.Button1Click(Sender: TObject);
Var
  DataINI, DataFIM : TDateTime;
Begin
  Try
    DataINI := StrToDateTime( MaskEdit1.Text );
    DataFIM := StrToDateTime( MaskEdit2.Text );
    Except
  end;
   _FORM_OS_REL_IMP_01 := T_FORM_OS_REL_IMP_01.Create(Self);
   _FORM_OS_REL_IMP_01.QRLabel6.Caption := �Relat�rio de O.S. - Entradas�;
   _FORM_OS_REL_IMP_01.BD_OFC_ELE.Close;
   _FORM_OS_REL_IMP_01.BD_OFC_ELE.SQL.Clear;
   _FORM_OS_REL_IMP_01.BD_OFC_ELE.SQL.Add(�Select * from ORCAMENTO_OFIC_ELET  where GS_OOE_DATA_ORC between �+ QuotedStr( FormatDateTime(�mm/dd/yyyy�, DataINI) )+ � and �+ QuotedStr( FormatDateTime(�mm/dd/yyyy�, DataFIM)));
   _FORM_OS_REL_IMP_01.BD_OFC_ELE.Open;
   _FORM_OS_REL_IMP_01.QuickRep1.Preview;
end;

Vlw...pelo apoio t+