Insert continuo entre dos fechas

[[enecumene]]

Empezado por Caral

Hola
Código SQL [-]Insert Between +DateTimePicker1.Date+ and +DateTimePicker2.Date+ Where Usuario = Tu

Saludos

Hola, me es imposible usar esa sentencia ya que está incompleta, no indicas los campos ni tablas a insertar .

Bueno, intenté hacer algo como esto, pero dada mi ignorancia no tenía que funcionar :

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var I: TDateTime;
begin
for I := StrToDate(Edit1.Text) to StrToDate(Edit2.Text) - 1 do
  begin
    ZQuery1.SQL.Text := 'Insert Into PRUEBA(REGNO,EMPID,EMPLEADO,FECHA) VALUES(NULL,1,:NOM,:FEC)';
    ZQuery1.ParamByName('NOM').AsString := 'Fernando';
    ZQuery1.ParamByName('FEC').AsDate := I;
    ZQuery1.ExecSQL;
  end;
end;

No me funcionó ya que para un ciclo for debe ser de tipo ordinal.

Saludos.

[roman]

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

[donald shimoda]

Empezado por roman

Aquí un ejemplo, suponiendo que las fechas inicial y final las tomas de sendos DateTimePicker:

Creo que esta solución mas segura sobre el tipo de dato manejado

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;
    IncDay(Fecha,1); 
  end;
end;

Mas detalles sobre la función IncDay aqui

HTH

[[enecumene]]

Muchas gracias Roman eso era lo que estaba buscando me funcionó de pelos, amigo Donald tu propuesta no me funcionó, porque con la función IncDay lo que hace es que me repite la variable fecha tantas veces posible , pareciera que no tuviera fin . Ahora veré como excluyo los dias feriados y fin de semanas, cualquier cosa les comento.

Saludos.

[roman]

Lo de IncDay sí funciona, de hecho IncDay lo único que hace es sumar el segundo parámetro a la fecha que se le pasa. El problema que tuviste se debe a que IncDay es una función así que debes usarla así:

Código Delphi [-]
Fecha := IncDay(Fecha, 1);

Tal como estaba, el valor de Fecha nunca cambia y el ciclo no termina.

// Saludos

[[enecumene]]

¡Changos! (Como ContraVeneno ), tienes razón roman no me había fijado en ese detalle.

Saludos.

[donald shimoda]

Empezado por roman

Lo de IncDay sí funciona, de hecho IncDay lo único que hace es sumar el segundo parámetro a la fecha que se le pasa. El problema que tuviste se debe a que IncDay es una función así que debes usarla así:

Código Delphi [-]Fecha := IncDay(Fecha, 1);


Tal como estaba, el valor de Fecha nunca cambia y el ciclo no termina.

// Saludos

Tengan paciencia, eran las 4 de la mañana.
Saludos.

[*Caro*]

Hola enecumene, para saber los fines de semana puedes utilizar la función DayOfTheWeek de DateUtilis, si te devuelve 6 o 7, es porque es sabado o domingo.

Saluditos