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