Показать сообщение отдельно
  #3  
Старый 14.05.2023, 14:21
Ru_Di Ru_Di вне форума
Прохожий
 
Регистрация: 13.05.2023
Сообщения: 6
Версия Delphi: Delphi 11
Репутация: 10
По умолчанию

Пошел через физическую (временную) таблицу в БД в нее записываю, потом переношу в основную, очищаю временную.

Но вот с переносом возникла сложность, что в я делаю не так, что не выполняется копирование?

Код:
var
myQ: TADOQuery;
myQ1: TADOQuery;
begin
  myQ := TADOQuery.Create(nil);
  myQ.Connection := DM.ADOConnect_baza_konkursov;
  myQ.SQL.Clear;
  myQ.Parameters.Clear;
  myQ.sql.Text := 'SELECT * FROM tab_predmet_zakupki_temp';
  myQ.Open;
  if myQ.RecordCount > 0 then 
    begin
      myQ1 := TADOQuery.Create(nil);
      myQ1.Connection := DM.ADOConnect_baza_konkursov;

      myQ.First;
      while not myQ.Eof do
        begin
          myQ1.SQL.Clear;
          myQ1.Parameters.Clear;
          myQ1.sql.Text := 'INSERT INTO tab_predmet_zakupki (naimenovanie) VALUES (:naimenovanie)';
          myQ1.Parameters.ParamByName('naimenovanie').Value := myQ.FieldByName('naimenovanie').Text;
          myQ1.ExecSQL;

          myQ.Next;
        end;
    end;
Ответить с цитированием