Разъединить записи

[S.V.D.]

Здравствуйте!
Имею запрос при котором выполняется поиск и объединение количества записей с одинаковым IdT.
И соответственно удаляем лишние (исходные) записи.

    TMP.SQL.Text := 'select min(id) as id, sum(kol) as kol, count(*) as cnt from "'+tablename+'" group by IdT';
    TMP.Open;
    TMP.First;
    while not TMP.Eof do begin
      tmpQuery.SQL.Text := 'update "'+tablename+'" set kol = ' + TMP.FieldByName('kol').AsString
                                + ' where id = ' + TMP.FieldByName('id').AsString;
      tmpQuery.ExecSQL;

      TMP.Next;
    end;

    repeat
      TMP.Close;
      TMP.SQL.Text := 'select max(id) as id from "'+tablename+'" group by IdT having count(*) > 1';
      TMP.Open;
      TMP.First;
      while not TMP.Eof do begin
        tmpQuery.SQL.Text := 'delete from "'+tablename+'" where id = ' + TMP.FieldByName('id').AsString;
       tmpQuery.ExecSQL;

        TMP.Next;
      end;
    until TMP.RecordCount = 0;

Помогите пожалуйста с обратной функцией - где ищем IdT записи с количеством > 1, делаем новые записи c kol=1 (количество записей зависит от значения Kol > 1) и после удаляем исходную строку с kol>1.

пример:
имеем

    
  id      Idt    kol
  1      123    3
  2      234    1

необходимо

    
  id      Idt    kol
  2      234    1  
  3      123    1
  4      123    1
  5      123    1

[Stilet]

И соответственно удаляем лишние (исходные) записи.

А зачем? Насколько я знаю группировка распространенное явление, и смысла в удалении после группировки нет никакого. Даже для экономии места это не дает никакого эффекта, ибо удаляемые записи таки остаются физически в базе в 90% случаев, пока не будет запущен уборщик мусора базы, но с ним работают не часто.

[evg_m]

Помогите пожалуйста с обратной функцией

SQL select  // -где ищем IdT записи с количеством > 1, 
while not EOF do
begin

while kol>1 do
begin
  sql insert //делаем новые записи c kol=1 
  kol=kol-1; // (количество записей зависит от значения Kol > 1) 
end;
  
// и после удаляем исходную строку с kol>1.

end;

[Serge_Bliznykov]

тема явно имеет отношение не к SQL - а к "БД в Delphi"
куда и переезжает...

Модератор.

[S.V.D.]

   TMP.SQL.Text := 'select Id from "'+tablename+'" where kol>1';
    TMP.Open;
 while not TMP.Eof do begin

while kol>1 do

begin

        tmpQuery.SQL.Text:='INSERT INTO "'+tablename+'" (Idt, kol) VALUES('
                        +TMP.FieldByName('Idt').asstring+'", 1)';
                        tmpQuery.ExecSQL;
        TMP.Next;

  kol=kol-1; // (количество записей зависит от значения Kol > 1) не понятно как реализовать условие, при котором он запишет столько строк сколько равно значению kol
end;

Прошу помощи.

[Serge_Bliznykov]

ну примерно так (пишу прямо здесь, возможны опечатки, мелкие неточности и ошибки):

 TMP.SQL.Text := 'select Id, idt, kol from "'+tablename+'" where kol>1';
 TMP.Open;
 while not TMP.Eof do begin
   Kol := TMP.FieldByName('Idt').AsInteger;
   while kol>=1 do  begin
     tmpQuery.SQL.Text:='INSERT INTO "'+tablename+'" (Idt, kol) VALUES('
                   +TMP.FieldByName('Idt').asstring+'", 1)';
     tmpQuery.ExecSQL;
     kol=kol-1; 
   end;

   // тут надо удалить исходную запись 
   tmpQuery.SQL.Text := 'DELETE FROM "'+tablename+'" where id = '+
                            TMP.FieldByName('Id').AsString;
   tmpQuery.ExecSQL;

   // пошли на следующую запись с kol>1
   TMP.Next;
 end;

[S.V.D.]

Итак, подправил и сделал рабочий код.
Не смог добиться синхронности и корректности при одновременной обработке insert и delete, поэтому сделал через finally.
Спасибо всем кто помог словом и делом.

       try
  TMP.SQL.Text := 'select * from "'+tablename+'" where kol>1';
   TMP.Open;

 while not TMP.Eof do begin
    Kol := TMP.FieldByName('kol').AsInteger;

  while kol>=1 do  begin

        tmpQuery.SQL.Text:='INSERT INTO "'+tablename+'" (Idt, kol) VALUES('''
                        +TMP.FieldByName('Idt').asstring+''', 1)';
                       tmpQuery.ExecSQL;

      kol:=kol-1;
end;
     TMP.Next;
    end;

   finally
   TMP.SQL.Text := 'select * from "'+tablename+'" where kol>1';
   TMP.Open;

    while not TMP.Eof do begin
        tmpQuery.SQL.Text := 'delete from "'+tablename+'" where id = ' + TMP.FieldByName('id').AsString;
        tmpQuery.ExecSQL;
        TMP.Next;
    end;

  end;

[Serge_Bliznykov]

ну... это не серьёзно.
Раз уж Вы хотите удалить ВСЕ записи, где KOL>1
ну так и удаляйте их.
Зачем ещё цикл ненужный?!

вместо того, что у Вас в finally
достаточно двух строк кода:

   tmpQuery.SQL.Text := 'delete from "'+tablename+'" where kol > 1';
   tmpQuery.ExecSQL;

[S.V.D.]

Спасибо, справедливо. Сам я "зациклился" - упустил из виду.