Есть реальная проблема со скриптом

Дмитрий здравствуйте !
Посчитав задачу интересной я хотел человеку помочь и напоролся на баг (ИМХО)
задача состояла в том что бы из таблицы выбрать записи с определенной датой ( я сделал по диапазону дат ) и скопировать эти записи в ту же таблицу но заменив дату на указанную в датетаймпикчере

первая реализация состояла в том чтоб сперва SQL запросом заполнить таблгрид и от туда в цикле от количества записей их скопировать обратно в таблицу с заменой даты. ( работает полностью так как задумано )

Вторая реализация состояла из того что вместо таблгрида я использовал класс TDataSet и тут я вчера вынес себе мозг.....
Проблема состояла в том что вместо того чтоб произвести ОДНУ новую запись SQL запрос уходил в вечную циклическую запись одинаковых строк .
Путем нескольких экспериментов я установил что если вместо даты в запрос скармливать любой текст то все работает так как нужно единственно что вместо даты будет текст , НО если в запрос вставить дату в ТЕКСТОВОМ виде запрос уходит в нирвану .....

Первая реализация:

procedure zakazi_Primenit_OnClick (Sender: string; var Cancel: boolean);
var
i : integer ;
begin
 for i := 0 to zakazi.Tabl.RowCount -1 do
  begin
   SQLExecute('INSERT INTO sobitiya ( data , sobitie ) VALUES ('+zakazi.Ust.sqlDateTime+', '+chr(39)+ zakazi.Tabl.Cells[2,i]+chr(39)+' )');
  end;
  zakazi.Pokazati.Click ;
end;

Вторая реализация : ( Которая уходит в нирвану)

procedure zakazi_Button1_OnClick (Sender: string; var Cancel: boolean);  // Через TDataSet
var
    PromTabl : TDataSet;  // Объявляем класс TDataSet
begin
    // Заполняем класс данными по условию между двух дат (Заполняет корректно)
    SQLQuery('SELECT id ,data ,sobitie FROM sobitiya WHERE data Between '+ zakazi.dtFrom.sqlDateTime+' AND '+ zakazi.dtTo.sqlDateTime ,PromTabl);


    while not PromTabl.Eof do    // Если указатель записи не на конце выполнить

    begin  // Собственно запрос который уходит в бесконечный цикл записи при наличии даты  в тексте  
       SQLExecute('INSERT INTO sobitiya ( data , sobitie ) VALUES ( '+zakazi.Ust.sqlDateTime+', '+chr(39)+PromTabl.FieldByName('sobitie').AsString+chr(39) +' )');

       PromTabl.Next; //  Указатель перемещаем на следующую запись
    end;

    PromTabl.Free;
    zakazi.Pokazati.Click ;
end;

творение прикладываю , нужное закоментил.( сделал в версии 2.4 )
...если кому надо внутри есть и выборка по диапазону дат  и времени и функция преобразования DateTime в строку для SQL с миллисекундами ( передавать надо через текстовое поле )

прямо какая то засада с написанием этого скрипта.

Решил пойти путем сложным путем введя 16 переменных и добавляя записи с помощью цикла.
Мало того что это получилось муторно, так как изначально значения числовые а Insert into работает с текстовыми значениями и пришлось делать 32 переменных, так еще и пролбема потом выскочила когда значение было не целое а дробное с запятой.
При трансформации получился текст "к примеру - 32,54" и при вставке переменной в новую запись прога воспринимает его как 2 значения 32 и 54 и ругается на несопоставиме количество столбцов из базовой записи и новой записи. При целых числах - все нормально

Плюнул на все. создал дублирующую таблицу и попытался создать в ней записи
SQLExecute('insert into kash1 SELECT * FROM kash WHERE date ='+D1+' and id='+azstext+'');
и опять чтото ругается
Unique constraint failed  kash1.id

1. Временная актуальность таблицы КЭШ как минимум год
2. Сбор данных проходит по телефону, факсу, электронной почте - источники разные
3. Числа нужны для формирования отчета (это еще 1 трабла) - там выходных форм несколько и используются максимальные и минимальные занчения в разрезе муниципалитетов, средние значения по организации и муниципалитету, сравнение с 2-я датами (как парвило сравнивается неделя и декада)
4. количесвто строк и колонок в таблгриде будет много и неудобно.

Я вроде нащупал решение но пока до конца не реализовал.
1. В момент репликации данных определил максимальную ID из таблицы КЭШ (реализовано)
idkash:= SQLExecute('SELECT max(id) FROM kash ;') ;//определяем максимальныую УН запись в данных

2. Создал дубликаты записей из таблицы КЭШ туда же за опредленную дату через цикл (реализовано)
for azsx:=1 to azs do // цикл создания записей начиная с 1-й записи в справочнике АЗС и заканчивая последней
    begin
    azstext:=VarToStr (azsx);
    if SQLExecute('SELECT count(id) FROM azs WHERE id='+azstext+'') = 1 then
    begin
    SQLExecute('insert into kash (id_azs,date,gotov,Z_A80) SELECT id_azs,date,gotov,Z_A80  FROM kash WHERE date ='+D1+' and id='+azstext+'');
    UpdateDatabase('kash');
    end else
    ShowMessage ('В справочнике АЗС нет такого УН');
    end;

3. Осталось обновить дату у записей имеющих ID> idkash: (пока не реализовано)
SQLExecute('update kash SET date = '+D2+'');

надо добавить условие только но чего то не получается. в идеале по SQL должно выглядеть так
update kash SET date = '+D2+'' where id>idkash.
в том виде какая работает - обновление идет у всех записей из таблицы

Вроде заработало. Репликация данных при нажатии кнопки при наличии двух дат на форме

procedure rep_button1_OnClick (Sender: string; var Cancel: boolean);
var
D1, D2: string; //даты 1 и 2
azs: integer;//количество записей в справочнике АЗС
idkash,azsx: integer;//переменная - УН записи АЗС
idkash1, azstext: string;
begin
D1 := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000',  (rep.DateTimePicker1.DateTime)) + '"';
D2 := '"'+ FormatDateTime('yyyy-MM-DD 00:00:00.000',  (rep.DateTimePicker2.DateTime)) + '"';
SQLExecute('delete from kash where date = '+D2+'') ;
azs:= SQLExecute('SELECT max(id) FROM azs ;') ;//определяем максимальныую УН запись в справочнике АЗС для составления цикла
idkash:= SQLExecute('SELECT max(id) FROM kash ;') ;//определяем максимальныую УН запись в данных
for azsx:=1 to azs do // цикл создания записей начиная с 1-й записи в справочнике АЗС и заканчивая последней
    begin
    azstext:=VarToStr (azsx);
    if SQLExecute('SELECT count(id) FROM azs WHERE id='+azstext+'') = 1 then
    begin
    SQLExecute('insert into kash (id_azs,date,gotov,Z_A80) SELECT id_azs,date,gotov,Z_A80  FROM kash WHERE date ='+D1+' and id='+azstext+'');
    UpdateDatabase('kash');
    end else
    ShowMessage ('В справочнике АЗС нет такого УН');
    end;
idkash1:=VarToStr (idkash);
SQLExecute('update kash SET date = '+D2+' where id>'+idkash1+'');
UpdateDatabase('kash');
end;

Вы можете переместить данные из одной таблицы в другую или в туже одним запросом

INSERT INTO table1 ( column1 ) SELECT col1 FROM table2