Копирование данных из одной таблицы в другую

[Streb]

Здравствуйте, Уважаемые Форумчане!
У меня есть БД test в sql. В ней 2 таблицы pr_input_mol и mol.
Нужно, чтобы при выделении нужной строки в таблице mol копировались необходимые ячейки из нее в другую таблицу pr_input_mol.
Сейчас использую следующий код:

begin
qry2.Active:=false;
qry2.SQL.Clear;
qry2.SQL.Add('INSERT INTO test.pr_input_mol (number, input_quant )');
qry2.SQL.Add('SELECT number, input_quant');
qry2.SQL.Add('FROM test.mol');
qry2.ExecSQL;
qry2.SQL.Text:='select * from test.pr_input_mol';
qry2.Active:=true;
end;

Данный код копирует абсолютно все строки.
Как сделать, чтобы копировал только выделенную?
Заранее спасибо!

[Аватар]

А выделенную можно чем-то однозначно идентифицировать? Если можно, то добавить WHERE и условие идентификации. Если нельзя, то не получится так вставить нужное. Тогда INSERT с VALUES

[Streb]

Условие идентификации, к сожалению, добавить нельзя.
Не подскажите, как использовать INSERT с VALUES. Желательно с примером.
Заранее спасибо!

[Аватар]

INSERT INTO test.pr_input_mol (number, input_quant ) VALUES (1,2)

Вместо 1 и 2 вставить нужное.

Таблицы без идентификации это самое последнее, что можно плохого придумать в устройстве базы. И это будет преследовать на каждом чихе. И ночью в кошмарном сне тоже

[Streb]

Прошу прощения, немного не понял.
Мне нужно, чтобы кнопку нажал, выделенные поля скопировались.
Этот код применим непосредственно к sql БД, минуя Delphi. Как в делфи реализовать этот код?

[evg_m]

qry2.SQL.Add('INSERT INTO test.pr_input_mol (number, input_quant )');
qr2.SQL.Add('Values(:p1,:p2)';

for //выделенные строчки!!!
begin
  qr2.sql.parametr.Parambyname('p1').Value:=//данные для первого поля
  qr2.sql.parametr.Parambyname('p1').Value:=//данные для второго поля
  qr2.ExecSQL;
end;

Условие идентификации, к сожалению, добавить нельзя.

не верю, человек же как-то сумел выбрать (вероятно по другим полям!)

и потом если есть первичные ключи в таблице всегда можно написать
insert ... select ... from t where <ключ> in (2,5,7,... )
осталось только программно правильно(!) сформировать это самое where ... in ...
по выделенным человеком строчкам.

либо цикл формирования in ... и добавление insert ... select ... from t where ... in ... всех сразу
либо цикл добавления по одной insert ... select ... from t where <ключ>=...

[Streb]

Выводит ошибку. Видимо я что-то не понял!

procedure TForm10.btn1Click(Sender: TObject);
begin
qry2.SQL.Add('INSERT INTO test.pr_input_mol (number, input_quant )');
qry2.SQL.Add('Values(: p1,: p2)');

for
begin
  qry2.sql.parametr.Parambyname('p1').Value:=qry1.sql.parametr.Parambyname('number')
  qry2.sql.parametr.Parambyname('p1').Value:=qry1.sql.parametr.Parambyname('input_quant')
  qry2.ExecSQL;
end;
end;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Никто не может помочь???

[Serge_Bliznykov]

извините, но у Вас же много непонятного написано.
например, к чему ключевое слово for ??!

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

procedure TForm10.btn1Click(Sender: TObject);
begin
qry2.Close; {в общем случае это не нужно, но так, на всякий случай}

qry2.SQL.Clear; {а вот это уже нужно обязательно, раз уж Вы через add добавляете запрос!}

qry2.SQL.Add('INSERT INTO test.pr_input_mol (number, input_quant )');
qry2.SQL.Add('Values (:p1, :p2)');  {обратите внимание, после двоеточия пробела НЕ ДОЛЖНО БЫТЬ!}

  qry2.Parameters.ParamByName('p1').Value:=qry1.FieldByName('number').Value;
  qry2.Parameters.ParamByName('p2').Value:=qry1.FieldByName('input_quant').Value;
  qry2.ExecSQL;
end;

p.s. хотя, нужно менять структуры таблиц, пока ещё не поздно!

[Streb]

Serge_Bliznykov, спасибо большое!!!
Строки копируются и это радует!
Единственная проблема состоит в том, чтобы увидеть скопированную строку нужно заново перезапустить программу. В режиме реального времени программа не отображается! Может это как-то можно решить?
И данный способ не передает русские символы!!!

[Serge_Bliznykov]

Единственная проблема состоит в том, чтобы увидеть скопированную строку нужно заново перезапустить программу.

нужно перечитать тот датасет, который у Вас связан с таблицей test.pr_input_mol

иногда помогает метод .Refresh;
иногда (в особо запущенных случаях) можно закрыть (метод .Close) и заново открыть (метод .Open) датасет.
При переоткрытии указатель перескочит на первую запись в датасете