Ver Mensaje Individual
  #12  
Antiguo 13-07-2008
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Aquí un ejemplo, suponiendo que las fechas inicial y final las tomas de sendos DateTimePicker:

Código Delphi [-]
var
  Fecha, FechaFinal: TDate;

begin
  ZQuery1.SQL.Text := 'insert into tabla (empleado, fecha) values(:empleado, :fecha)';

  Fecha := DateTimePicker1.Date;
  FechaFinal := DateTimePicker2.Date;

  while Fecha < FechaFinal do
  begin
    ZQuery1.ParamByName('empleado').AsString := 'fernando';
    ZQuery1.ParamByName('fecha').AsDate := Fecha;
    ZQuery1.ExecSQL;

    Fecha := Fecha + 1;
  end;
end;

// Saludos
Responder Con Cita