Вставка новой записи через буфер |
Previous Top Next |
Code: |
Table2.Insert; Move(Table1.ActiveBuffer^,Table2.ActiveBuffer^,Table1.RecordSize); {При необходимости назначаем новый первичный ключ} Table2.FieldByName('Primary Key').AsWhatever := whatever; Table2.Post; |
...если вы уверены в том, что нарушение ключа произойти не может, то можно вырезать это для дальнейшего использования:
Code: |
DbiInsertRecord(Table2.Handle,dbiNOLOCK,Table1.ActiveBuffer); |
...конечно, это "обходит" VCL, т.к., чтобы увидеть потом новую запись, необходимо сделать TTable.Refresh.
©Drkb::02570
Взято с http://delphiworld.narod.ru