Novato en SQL

[[Caral]]

Hola
Siempre es bueno indicar la mayor cantidad de cosas que se pueda cuando se hace una pregunta, por ejemplo:
Que base de datos usas?
Con que componentes la enlazas?
La sentencia sql la quieres que se ejecute en?
Estas son preguntas que no necesitaria hacer si conociera tu proyecto, como ves, es importante especificar un poco mas.
Si nos ayudas, sera mas facil.
Ha bienvenido al Club.
Saludos

[mgaytan]

Gracias caral por tu sugerencia:
Bueno en primer lugar tengo una tabla que se llama EMP_YEE.Dbf
La cual guarda tareas realizadas por trabajadores.
Un ejemplo: En una jornada laboral un empledo hace 10 tareas las cuales se controlan por codigo de barras.
Al termino se captura el codigo de barras el numero de empleado la fecha. Para generar un destajo.

Fecha
Numero de empledo
codigo de barras (trabajo)

Necesito un reporte del cual yo ingrese el rango de fecha y el numero de empleado y me despliege todas las tareas realizadas en eso periodo de fechas.

Todo esto esto que te menciono lo hace el sistema relizo una busqueda cn codigo delphi y lleno una tabla 2 la cual muestro en un QuickReport. Pero esta consulta tine una desventaja es muy lenta me comentaron que con Sql se pueden hacer consultas mucho mas rapidas.
Mas sin enbargo yo no se nada de Sql es por eso que recurro a los expertos en el tema.

Disculpen si me dejo ver muy novato pero nimodo mas vale preguntar que ser ignorante.

Espero me puedan ayudar Gracias.

[ContraVeneno]

¿como haces la búsqueda? ¿como llenas la tabla?

Lo más simple sería utilizar componente TQuery para hacer la búsqueda. Necesitarías un TDataset enlazado al TQuery y además, enlazar el Dataset a un TDBGrid para mostrar los resultado. El quickreport estaría enlazado al TQuery y diseñado para que muestre los resultado.

Supongo que tendrás dos TDTPicker para seleccionar las fechas, un TEdit para ingresar el número de empleado, un botón "Buscar" y un TDBGrid par amostrar los resultados.

En el evento onclick del tu botón Buscar:

Código Delphi [-]
with TuQuery do begin
 If Active then Close;
 SQL.Clear;
 SQL.Add('Select A.Fecha, T.NombreTrabajo');
 SQL.Add('From Emp_YEE A');
 SQL.Add('join Empleados E on A.IDEmpleado = E.IDEMpleado');
 SQL.Add('join Trabajos T on E.IDTrabajo = T.IDTrabajo');
 SQL.Add('Where A.IDEmpleado = :Empleado');
 SQL.Add('And A.Fecha Between :FechaIni and :FechaFin');
 SQL.Add('Order by A.fecha, A.IDTrabajo');
 ParamByName('Empleado').AsString := Edit1.Text;
 ParamByName('FechaIni').AsDateTime := dtpFechaINi.DateTime;
 ParamByName('FechaFin').AsDateTime := dtpFechaFIN.DateTime;
 Open;
end; //with

Dos cosas:
1. Si utilizas "FECHA>=:FechaInicio and FECHA<=:FechaFin" la fecha final siempre tendrá que ser mayor a la fecha inicial, de lo contrario no te mostrará resultado. Con lo que tendrías que validar que la fecha sea correcta.

Pero, si utilizas "Fecha Between :FechaIni and :FechaFin" no tendrás que hacer esta validación ya que no importa cuál fecha es mayor a la otra.

2. Para ingresar el query puedes utilizar SQL.Text he ir agregando línea por línea, igual que como se hace con SQL.Add. La diferencia es que si utilizas SQL.Text y tienes un error, tu manejdor de base de datos siempre te dirá que tienes un error en la línea 1; y si utilizas SQL.Add, tu base de datos te dirá el número exacto de la línea donde esta el error.

P.D. Los nombres de las tablas y de los campos deberás ajustarlos a los que tu tienes.

[mgaytan]

ooorale esto si funciona caon
soloamente que si pides un rango igual no muestra nada
y empieza un dia despues es decir solamnte valua el rango mayor el igual nop
me prodian ayudar
Gracias
a puse esto para validar fecha:

with Query1 do begin
If Active then Close;
SQL.Clear;
SQL.Add('Select FECHA');
SQL.Add('From Emp_YEE ');
SQL.Add('Where FECHA Between :FechaIni and :FechaFin');
SQL.Add('Order by FECHA');
ParamByName('FechaIni').AsDateTime := DateTimePicker1.DateTime;
ParamByName('FechaFin').AsDateTime := DateTimePicker2.DateTime;
Open;
end;
QuickRep1.Preview;
end;

[[Caral]]

Hola

Código Delphi [-]
with Query1 do begin
If Active then Close;
SQL.Clear;
SQL.Add('Select FECHA');
SQL.Add('From Emp_YEE ');
SQL.Add('Where Fecha >=' +DateToStr(DateTimePicker1.DateTime)+' AND Fecha <=' +DateToStr(DateTimePicker2.DateTime));
SQL.Add('Order by FECHA');
Open;
end;
QuickRep1.Preview;
end;

Saludos

[ContraVeneno]

Empezado por mgaytan

ooorale esto si funciona caon
soloamente que si pides un rango igual no muestra nada

Recuerda que el DTpicker tambien verifica la hora y tal vez sea por eso por lo que no te muestra nada. Define la hora del primer dtpicker a las 0 horas y el segundo a las 23:59 horas

[mgaytan]

Antes que nada gracias por su paciencia.

El sistema quedo funcionando a la perfeccion. Espero que cuando tengan alguna duda con dephli porder ayudar yo tambien.
no soy muy experto como ustedes pero si puedo con mucho gusto.

GRACIAS A TODOS.