Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Вставка новой записи через буфер

Автор: Poseidon 18.5.2005, 14:46

Код

Table2.Insert; 
Move(Table1.ActiveBuffer^,Table2.ActiveBuffer^,Table1.RecordSize); 
{При необходимости назначаем новый первичный ключ} 
Table2.FieldByName('Primary Key').AsWhatever := whatever; 
Table2.Post;

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

DbiInsertRecord(Table2.Handle,dbiNOLOCK,Table1.ActiveBuffer);

...конечно, это "обходит" VCL, т.к., чтобы увидеть потом новую запись, необходимо сделать TTable.Refresh.