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

Автор: Eryk Bottomley

Один программер любил компьютеры. Пока его за этим не застукали...

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.

Недавно добавленные исходники
• Animation Loaders 929 • DeLiKaTeS Tetris (Тетрис) 5 870 • TDictionary Custom Sort 7 820 • Fast Watermark Sources 7 493 • 3D Designer 10 727 • Sik Screen Capture 8 045 • Patch Maker 8 253 • Айболит (remote control) 8 304 • ListBox Drag & Drop 7 122 • Доска для игры Реверси 100 890 • Графические эффекты 8 370 • Рисование по маске 7 746 • Перетаскивание изображений 6 346 • Canvas Drawing 6 714 • Рисование Луны 6 649 • Поворот изображения 5 784 • Рисование стержней 4 723 • Paint on Shape 3 430 • Генератор кроссвордов 4 413 • Головоломка Paletto 3 556 • Теорема Монжа об окружностях 4 355 • Пазл Numbrix 2 820 • Заборы и коммивояжеры 3 772 • Игра HIP 2 541 • Игра Go (Го) 2 542 • Симулятор лифта 2 936 • Программа укладки плитки 2 362 • Генератор лабиринта 3 113 • Проверка числового ввода 2 598 • HEX View 3 003

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

Похожие по теме исходники