Копирование данных из одной таблицы в другую в пределах одной базы. Не работает счетчик

@govorun · Регистрация: 01.11.2013

Студворк — интернет-сервис помощи студентам

Делаю копирование данных из одной таблицы в другую в пределах одной базы.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm16.Button2Click(Sender: TObject);
var
    i:integer;
begin
      Datamodule3.ADOTable1.First;
//      Datamodule3.ADOTable6.Insert;
      while not Datamodule3.ADOTable1.eof do
      begin
      Datamodule3.ADOTable6.Insert;
      Datamodule3.ADOTable6.FieldByName('AAA').AsString:=Datamodule3.ADOTable1.FieldByName('AAA').AsString;
      Datamodule3.ADOTable6.FieldByName('BBB').AsFloat:=Datamodule3.ADOTable1.FieldByName('BBB').AsFloat;
      Datamodule3.ADOTable6.FieldByName('CCC').AsDateTime:=Datamodule3.ADOTable1.FieldByName('CCC').AsDateTime;
      Datamodule3.ADOTable1.Next;
      end;
//    Datamodule3.ADOTable6.Post;
    end;

Странная вещь: копирует три строки (их всего три), но счетчик в таблице-получателе ставит только по двум. Выхожу из проги, захожу опять, смотрю - строк только две.

Повторяю попытку - результат тот же...

Еще раз повторяю, но уже по Гриду курсором повоськал. И о чудо - счетчик на трейтей строке появился.

База Access 2010
Может кто сталкивался с подобным явлением? В чем может быть беда именно с одной конкретной строкой?

Можно конечно ее (строку) грохнуть, но не факт, что еще одна не появиться...

Скандербег · 11.01.2014, 19:36

А Datamodule3.ADOTable6.Post где? Без Post дело дохлое.
Лучше бы делать эти манипуляции SQL запросами - проблемы, если бы они и появились, были бы предсказуемые.

@govorun · 11.01.2014, 19:47 **[ТС]**

Сообщение от Скандербег

А Datamodule3.ADOTable6.Post где? Без Post дело дохлое.
Лучше бы делать эти манипуляции SQL запросами - проблемы, если бы они и появились, были бы предсказуемые.

Post есть, но все равно не работает. И именно одна конкретная запись из трех. Даже после Post-а в гриде эта запись без счетчика. Т.е. идет № 42, потом пустое поле, потом 43. Но стоит тыркнуть мышкой в грид, сразу появляется № 44. Другие то записи нормально копируются...

Скандербег · 11.01.2014, 19:55

Ну, чудес не бывает, а что твориться при добавлении надо знать в деталях - по проекту, а не по рассказам.
Тогда можно и причину глюка обнаружить.

@govorun · 11.01.2014, 20:37 **[ТС]**

Сообщение от Скандербег

Ну, чудес не бывает, а что твориться при добавлении надо знать в деталях - по проекту, а не по рассказам.
Тогда можно и причину глюка обнаружить.

Понятно что чудес не бывает. Мне тут подсказали, что последняя строка не фиксируется. Прсмотрел, действительно это последняя строка. Я даже новую базу сотворил, перенес в нее структуру из старой, напичкал записями и все равно последняя строка с глюком.
Теперь бы узнать как зафиксировать последнюю строку....

Добавлено через 5 минут

Сообщение от Скандербег

Ну, чудес не бывает, а что твориться при добавлении надо знать в деталях - по проекту, а не по рассказам.
Тогда можно и причину глюка обнаружить.

Е-мое, куда глаза глядят....
В коде Post был закрыт..., а я думал что он работает...
Всем спасибо

Новые блоги и статьи Все статьи Все блоги /
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	11.01.2014, 19:36
	А Datamodule3.ADOTable6.Post где? Без Post дело дохлое. Лучше бы делать эти манипуляции SQL запросами - проблемы, если бы они и появились, были бы предсказуемые. 0

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	11.01.2014, 19:55
	Ну, чудес не бывает, а что твориться при добавлении надо знать в деталях - по проекту, а не по рассказам. Тогда можно и причину глюка обнаружить. 0