Скопировать выделенные строки в DBGrid из одной таблицы в другую

[terexa]

Форма:
TDataSource2, TADOQuery2, DBGrid2 - отображение таблицы HourData
TDataSource3, TADOQuery3, DBGrid3 - отображение таблицы HourData_3
Структура таблиц аналогичная: поля Data, TimeMs, TStreet, Tinside, DataEdit
Для DBGrid2 установлено MultiSelect=True

1) Необходимо скопировать только выделенные в DBGrid2 строки из таблицы2 (HourData) в таблицу3 (HourData_3).


Просмотрел статьи на форуме,везде идут отсылки на одно и тоже, и нет информации в случае MultiSelect.
Попытался в таком формате, но получаю ошибку.

for i:=0 to DBGrid2.SelectedRows.Count-1 do
begin
      DBGrid2.DataSource.DataSet.GotoBookmark(Pointer(DbGrid2.SelectedRows[i]));
      with ADOQuery3 do
      begin
        Active:=False;
        SQL.Clear;
        Zapros:='INSERT INTO HourData_3 (Data,TimeMs,TemperatureInside,TemperatureStreet,DataFull) VALUES (:pData,:pTimeMs,:pTempInside,:pTempStreet,:pDataTime);';
        SQL.Add(Zapros);
        Parameters.ParamByName('pData').Value:=DBGrid2.DataSource.DataSet.Fields[0].Value;
        Parameters.ParamByName('pTimeMs').Value:=DBGrid2.DataSource.DataSet.Fields[1].Value;
        Parameters.ParamByName('pTempInside').Value:=DBGrid2.DataSource.DataSet.Fields[2].Value ;
        Parameters.ParamByName('pTempStreet').Value:=DBGrid2.DataSource.DataSet.Fields[3].Value ;
        ExecSQL;
        Active:=True;
      end;
      DBGrid2.SelectedRows.Clear;
end;

Как только выполнение доходит до:
Parameters.ParamByName('pData').Val ue:=
Ошибка1: Argument out of range.
Как понимаю, ругается на правую часть.

При проверке, если заменить не на значения из БД:
Parameters.ParamByName('pData').Val ue:=DateOf(Now) ;//DateOf(Now);
Ошибка2: ADOQuery3: CommandText does not return a result set.

[Аватар]

Какой Active:=True для UPDATE после ExecSQL? Не будет там ни какого набора данных после. SELECT нужен, и очень желательно в другом датасете

[terexa]

про Active:=True - это я уже заэкспериментировался. Про SELECT не понял, ведь сначала надо вставить выделенное, а ругается уже на этапе присваивания полю в первой выделенной строке значения, как параметру

[kropotkina-alice]

А попробуйте вот так:

Parameters.ParamByName('pData').Value:=DBGrid2.Fields[0].AsVariant;

И остальное перепишите без ненужных, лишних символов.
Зачем вы сами себе ухудшаете разборчивость программы?

[terexa]

исправил на предложенный Вами вариант. Изменилось только сообщение (прилагаю). При отладке в этих значения Innaccessible value....

[terexa]

Спасибо, Avatar, за определение курса. Спасибо kropotkina-alice за оптимизацию.

Действительно, проблема была в ADOQuery.Active:=true, т.к. выше в цикле Запрос менялся на INSERT, соответственно при Active=True и выдавались ошибки (прилагаю, чтобы был ориентир для других), меняю на SELECT и все работает.
Сбил с толку пример c форума, на основании которого и был сделан первый вариант.

Итоговый вариант:

for i:=0 to DBGrid2.SelectedRows.Count-1 do
begin
DBGrid2.DataSource.DataSet.GotoBook mark(Pointer(DbGrid2.SelectedRows[i]));
with ADOQuery3 do
begin
Active:=False;
SQL.Clear;
Zapros:='INSERT INTO HourData_2 (Data,TimeMs,TemperatureInside,Temp eratureStreet,DataFull) VALUES (:pData,:pTimeMs,:pTempInside,:pTem pStreet,:pDataTime);';
SQL.Add(Zapros);
Parameters.ParamByName('pData').Val ue:=DateOf(DBGrid2.DataSource.DataS et.Fields[0].Value) ;
Parameters.ParamByName('pTimeMs').V alue:=DBGrid2.Fields[1].Value ;
Parameters.ParamByName('pTempInside ').Value:=DBGrid2.Fields[2].Value ;
Parameters.ParamByName('pTempStreet ').Value:=DBGrid2.Fields[3].Value ;
Parameters.ParamByName('pDataTime') .Value:=Now;
ExecSQL;
end;
end;
//DBGrid2.SelectedRows.Clear;//используем, если надо снять выделение строк. Мне не надо.
with ADOQuery3 do
begin
SQL.Clear;
Zapros:='SELECT * FROM HourData_2;';
SQL.Add(Zapros);
Active:=True;
end;