Ya pude detectar la linea que pone el profiler al momento de ejecutar la aplicacion de Delphi:
"SET FMTONLY ON select recvtime from history where 1=2 SET FMTONLY OFF"
el query que utilizo es el sig:
Cita:
With modulo.ADOQuery1 do
Begin
Close;
SQL.Clear;
SQL.Add('Select card.cardholderid, card.cardnumber, card.deleted,');
SQL.Add('cardholder.recordid, cardholder.firstname, cardholder.lastname, cardholder.deleted,cardholder.note4,');
SQL.Add('history.param3,history.param2,history.param1,history.link1,history.recvtime,history.gentime ,history.link2,history.link3,history. deleted');
SQL.Add('From card,cardholder,history');
SQL.Add('Where (card.cardholderid = cardholder.recordid)And(cardholder.recordid=history.link3)And(card.Deleted = 0)And(CardHolder.Deleted = 0)');
SQL.Add('And (card.cardnumber Between :EmpIni And :EmpFin)');
SQL.Add('And (history.link1 = :Puerta1)Or(history.link1 = :Puerta2)');
SQL.Add('And (history.recvtime >= :FechaIni) And (history.recvtime <= :FechaFin)');
SQL.Add('And (cardholder.note4 = :depto)');
SQL.Add('Order By card.Cardnumber');
Parameters.ParamByName('EmpIni').DataType:=ftString;
Parameters.ParamByName('EmpFin').DataType:=ftString;
Parameters.ParamByName('Puerta1').DataType:=ftString;
Parameters.ParamByName('Puerta2').DataType:=ftString;
Parameters.ParamByName('FechaIni').DataType:=ftDateTime;
Parameters.ParamByName('FechaFin').DataType:=ftDateTime;
Parameters.ParamByName('Depto').DataType:=ftString;
Parameters.ParamByName('EmpIni').Value:=Edit_EmpIni.Text;
Parameters.ParamByName('EmpFin').Value:=Edit_EmpFin.Text;
Parameters.ParamByName('Puerta1').Value:=Edit_PE.Text;
Parameters.ParamByName('Puerta2').Value:=Edit_PS.Text;
Parameters.ParamByName('FechaIni').Value:=Fecha1;
Parameters.ParamByName('FechaFin').Value:=Fecha2;
Parameters.ParamByName('Depto').Value:='Mantenimiento';
Open;
End;
|