[Ru_Di]

Добрый день.
Перерыл кучу статей в инете, но так и не нашел подходящего решения.
Подскажите пжл, как создать временную таблицу при открытии формы.
В последствии в нее буду записывать и хранить информацию, пока не будет сохранена информация на основной форме, если вместо сохранения будет отмена, то таблицу просто закрываю/уничтожаю. Если же произойдет сохранение, то все информацию из временной переношу в основную.

Можно какие нибудь примеры создания таблицы?
Использую Delphi 11 и СУБД Access

[lmikle]

Посмотри, очень много разных компонентов типа TMemoryTable.
Так же можно сделать на основе TClientDataSet.
Это просто хранение данных в памяти.

Ну а в СУБД можно сделать нормальную таблицу.
Можно просто создать статическую таблицу и просто очищать ее.
Можно создавать и уничтожать динамически с помощью SQL:

Код:

1 2 3 4

CREATE TABLE {Name} ( ID  INTEGER, ... )

потом просто дропаешь ее:

Код:

1	DROP TABLE {Name}

[Ru_Di]

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

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;

[Ru_Di]

Сообщение от Ru_Di

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

Нашел причину, просто забыл обновить Грид ((((, а так про копировалось.