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

Автор: 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 998 • DeLiKaTeS Tetris (Тетрис) 5 927 • TDictionary Custom Sort 7 876 • Fast Watermark Sources 7 544 • 3D Designer 10 778 • Sik Screen Capture 8 107 • Patch Maker 8 299 • Айболит (remote control) 8 352 • ListBox Drag & Drop 7 204 • Доска для игры Реверси 101 269 • Графические эффекты 8 419 • Рисование по маске 7 794 • Перетаскивание изображений 6 386 • Canvas Drawing 6 763 • Рисование Луны 6 689 • Поворот изображения 5 812 • Рисование стержней 4 758 • Paint on Shape 3 455 • Генератор кроссвордов 4 459 • Головоломка Paletto 3 595 • Теорема Монжа об окружностях 4 390 • Пазл Numbrix 2 844 • Заборы и коммивояжеры 3 795 • Игра HIP 2 561 • Игра Go (Го) 2 571 • Симулятор лифта 2 957 • Программа укладки плитки 2 388 • Генератор лабиринта 3 140 • Проверка числового ввода 2 621 • HEX View 3 024

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

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