lunes, 9 de marzo de 2009

Consulta de Fechas con un adoquery

datamodule2.ADOQueryrepresultados.Close;
datamodule2.ADOQueryrepresultados.SQL.Clear;
datamodule2.ADOQueryrepresultados.SQL.Add('Select * from resultados_emitidos,pacientes,convenios');
datamodule2.ADOQueryrepresultados.SQL.Add('where resultados_emitidos.cedula_paciente=pacientes.cedula');
datamodule2.ADOQueryrepresultados.SQL.Add('and resultados_emitidos.codigo_convenio = convenios.codigo');
datamodule2.ADOQueryrepresultados.SQL.Add('and fecha1 >= :fecha_emision and fecha2<= :fecha2');
datamodule2.ADOQuery1.Parameters.ParamByName('fecha1').value := DateTimePicker1.Date;
datamodule2.ADOQuery1.Parameters.ParamByName('fecha2').value := DateTimePicker2.Date;
datamodule2.ADOQueryrepresultados.Open;