Insert continuo entre dos fechas

[[Caral]]

Hola
Pues no se, como hace ya unos meses que no programo, pues se me esta olvidando.
Pero:
Inset entre fecha1 y fecha2 where usuario = X.
Ya sabes, traducido a sql (es que ahora no tengo ganas de pensar), pero esa es la idea.
De que se puede se puede.
Saludos

[[enecumene]]

Empezado por Caral

Hola
Pues no se, como hace ya unos meses que no programo, pues se me esta olvidando.
Pero:
Inset entre fecha1 y fecha2 where usuario = X.
Ya sabes, traducido a sql (es que ahora no tengo ganas de pensar), pero esa es la idea.
De que se puede se puede.
Saludos

A ver, ¿de donde saco la función entre?, , en broma veré como hago, gracias.

Saludos.

[[Caral]]

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

Saludos

[[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.