Хотите раскрутить свой сайт в Яндекс и Google?
Недорогое и качественное продвижение сайта от 50$

Delphi 1

Вставка новой записи через буфер

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.

- Eryk Bottomley [000870]

Материалы, которые находятся на этой страничке, любезно предоставлены Игорем Ивановым

РЕКЛАМНЫЙ БЛОК