Пошел через физическую (временную) таблицу в БД в нее записываю, потом переношу в основную, очищаю временную.
Но вот с переносом возникла сложность, что в я делаю не так, что не выполняется копирование?
Код:
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;