alonsoa

então eu fis algus teste no $StrLiga + ele não esta ligando com a clausula sql ex. Select * from fatura_cliente where data_entrada >= (data1) and data_entrada >= (data2) na real ele tem que montar esta linha... se puder me ajudar no Delphi 7 faço deste jeito e queria passar para o php var data: TDatetime; StrLiga, Tipo :String; begin dm.qfatura.Close; dm.qfatura.SQL.Clear; dm.qfatura.SQL.add('Select * from fatura_cliente'); StrLiga := 'where '; if EditData.FromDateSt <> ' / / ' then try Data := EditData.FromDate; dm.qfatura.SQL.Add(StrLiga+Tipo+' >= '''+FormatDateTime('yyyy/mm/dd',Data)+''''); StrLiga := 'and '; except On EConvertError do ; end; if Editdata.FromDateSt <> ' / / ' then try Data := EditData.ToDate; dm.qfatura.SQL.Add(StrLiga+Tipo+' <= '''+FormatDateTime('yyyy/mm/dd',Data)+''''); except On EConvertError do ; end; if Edit1.Text <> '' then dm.qfatura.SQL.add(StrLiga+'Cliente = '''+dm.qclienteRazaoSocial.Text+''''); dm.qfatura.Open;

$data; $StrLiga; $this->qfatura->Close(); $this->qfatura->SQL = ("Select * from fatura_cliente"); $StrLiga = 'where '; if ($this->EditData1->Text != ' / / ') try { $data = $this->EditData1.Text; $this->qfatura->SQL = ($StrLiga+'Data_Entrada >= '+$Data); $StrLiga = 'and '; } catch (Exception $exc) { //echo $exc->getTraceAsString(); if ($this->EditData2->Text != ' / / ') try { $data = $this->EditData2.Text; $this->qfatura->SQL = ($StrLiga+'Data_Entrada <= '+$Data); } catch (Exception $exc) { $this->qfatura->Open(); } }