7 respuestas en este tema

[enecumene]

A ver, no sé si es que me pasé el tiempo programando en PHP en estos días que se me ha olvidado las reglas básicas de Dephi , estoy tratando de insertar los datos a una tabla desde otra tabla, lógico que ambos tienen los mismos campos:

delphi

procedure TFAstGen.btn1Click(Sender: TObject);
begin
QGetRows.Close;
QGetRows.SQL.Clear;
QGetRows.SQL.Text := 'SELECT * FROM LOG_ASISTENCIA';
QGetRows.Open;
 
//pbProgreso.Max := QGetRows.RecordCount;
 
if QGetRows.RecordCount > 0 then begin
 
  QGetRows.First;
  while not QGetRows.Eof do begin
   //pasamos los datos del log a la tabla oficial
   //Registramos si es entrada
   if QGetRows.FieldByName('LOG_STATUS').Value = 1 then begin
        try
            QGetLogData.Close;
            QGetLogData.SQL.Clear;
            QGetLogData.SQL.Text := 'INSERT INTO ASISTENCIA (EMP_ID,AST_FECHA,AST_ENT, CA_ID)' +
                            ' SELECT EMP_ID, LOG_FECHA, LOG_TIME, 1 FROM LOG_ASISTENCIA';
            QGetLogData.ExecSQL;
        except
          ShowMessage('Hubo un problema con la tabla');
        end;
   end;
   QGetRows.Next;
  end;
    DM.ZData.Commit;
end else ShowMessage('No hay registro que generar!');
end;

El caso es que me repite los registros varias veces

[Rolphy Reyes]

Saludos.

Amigo debe repetirte todas las inserciones porque lo tienes en un Loop.

Deberías de ver si es posible que lo quites de ese Loop y pongas un "WHERE" en tu sentencia select.

[Alfredo]

Pues si, lo tienes en un ciclo, asi que debe insertar los registros varias veces, segun entiendo el codigo que pusiste lo que quieres es copiar los registros de la tabla Log_Asistencia que tengan el valor de 1 en el campo Log_Status en la tabla Asistencia. Eso lo puedes hacer en un simple query y sin necesidad del ciclo
algo como esto

delphi

[size=1] QGetLogData.Close; 
QGetLogData.SQL.Clear;
QGetLogData.SQL.Text := 'INSERT INTO ASISTENCIA(EMP_ID,AST_FECHA,AST_ENT, CA_ID)' +
 ' SELECT EMP_ID, LOG_FECHA, LOG_TIME, 1 FROM LOG_ASISTENCIA';  
QGetLogData.ExecSQL;[/size]

Siempre y cuando las dos tablas esten en la misma base de datos, en caso contrario
si necesitarias dos querys y el ciclo, pero entonces, cambiarias un poco la sentencia de insercion a algo como esto:

sql

QGetLogData.SQL.Clear;
QGetLogData.SQL.Text := 'INSERT INTO ASISTENCIA(EMP_ID,AST_FECHA,AST_ENT, CA_ID)' +
 ' Values (:Emp_Id,:Ast_Fecha,:Ast_Ent,:Ca_Id)';  
QGetLogData.ExecSQL;[/SIZE]

Espero no haber enredado mas el asunto, y lo siento si se ve mal el código, me enrede con las etiquetas 

[pcicom]

sql

INSERT INTO ASISTENCIA (EMP_ID,AST_FECHA,AST_ENT, CA_ID)   
                                   SELECT EMP_ID, LOG_FECHA AS AST_FECHA, LOG_TIME AS AST_ENT, 1 AS CA_ID FROM LOG_ASISTENCIA

LOS CAMPOS DEBEN DE SER DEL MISMO TIPO Y NOMBRARSE IGUAL...

[Alfredo]

sql

INSERT INTO ASISTENCIA (EMP_ID,AST_FECHA,AST_ENT, CA_ID)   
                                   SELECT EMP_ID, LOG_FECHA AS AST_FECHA, LOG_TIME AS AST_ENT, 1 AS CA_ID FROM LOG_ASISTENCIA

LOS CAMPOS DEBEN DE SER DEL MISMO TIPO Y NOMBRARSE IGUAL...

No, solamente deben ser del mismo tipo y estar en el mismo orden

[enecumene]

Gracias amigos ya lo hice de esta manera y me lo guarda como quiero :

delphi

procedure TFAstGen.btn1Click(Sender: TObject);
begin
QGetRows.Close;
QGetRows.SQL.Clear;
QGetRows.SQL.Text := 'SELECT * FROM LOG_ASISTENCIA';
QGetRows.Open;
 
//pbProgreso.Max := QGetRows.RecordCount;
 
if QGetRows.RecordCount > 0 then begin
 
  QGetRows.First;
  while not QGetRows.Eof do begin
   //pasamos los datos del log a la tabla oficial
   //Registramos si es entrada
   if QGetRows.FieldByName('LOG_STATUS').Value = 1 then begin
        try
            QGetLogData.Close;
            QGetLogData.SQL.Clear;
            QGetLogData.SQL.Text := 'INSERT INTO ASISTENCIA (EMP_ID,AST_FECHA,AST_ENT) VALUES(:EMP,:FECHA,:ENT)';
            QGetLogData.ParamByName('EMP').Value := QGetRows.FieldByName('EMP_ID').AsInteger;
            QGetLogData.ParamByName('FECHA').Value := QGetRows.FieldByName('LOG_FECHA').Value;
            QGetLogData.ParamByName('ENT').Value := QGetRows.FieldByName('LOG_TIME').Value;
            QGetLogData.ExecSQL;
        except
          ShowMessage('Hubo un problema con la tabla');
        end;
   end;
   QGetRows.Next;
  end;
    DM.ZData.Commit;
end else ShowMessage('No hay registro que generar!');
end;

Eso es nada más es la primera parte de un laaargo código. Gracias a todos

[pcicom]

Este codigo lo puedes OPTIMIZAR de ls siguiente manera..

delphi

procedure TFAstGen.btn1Click(Sender: TObject);
Var
   cSql:String;
begin
 cSql := 'INSERT INTO ASISTENCIA (EMP_ID,AST_FECHA,AST_ENT, CA_ID)  ';
 cSql := cSql + '  SELECT EMP_ID, LOG_FECHA, LOG_TIME, 1 AS CA_ID FROM LOG_ASISTENCIA ';
 cSql := cSql + '  WHERE LOG_STATUS=1';
 Try
    qryTemp.SQL.Clear;
    qryTemp.SQL.Add(cSql);
    qryTemp.ExecSql;
 except
    ShowMessage('No hay registro que generar!');
 end;
end;

SALUDOS..

[enecumene]

Muchas gracias pcicom, eso sí es más corto .