[ADO] Не могу разобраться с добавлениями записи

[White_Dove]

Есть процедура добавления свойств объектов в базу данных.
Когда вызываю при создании объектов, все работает. Стоит в одном месте кода вызвать два раза подряд, и MSAccess начинает ругаться на совпадающие значения индекса. Хотя ключ, он же индекс, инкрементируется при создании программно
Что не так?

Const 
 FN_X=1; FN_Y=2;
 ...

function CreateObjectIn(ds:TDataSet; tr:T3DObject):boolean;
begin try
 Result:=false;
 ds.Last;
 if ds.RecordCount=0 then ID:=0 else ID:=ds.Fields[0].AsInteger+1;
 ds.Insert;
 ds.Fields[0].AsInteger:=ID;
 ds.Fields[FN_X].AsFloat:=tr.Coords.x;
 ds.Fields[FN_Y].AsFloat:=tr.Coords.y;
...
 ds.Post;
 tr.SourceID:=ds.Tag; tr.ID:=ID;
 Result:=true;
except
 Result:=false;
end end;

Другая часть кода:

...                  
//предварительные операции с объектами TempObject1 и TempObject2  

 CreateObjectIn(CurrentDataSet,TempObject1);                
 CreateObjectIn(CurrentDataSet,TempObject2);

Во втором вызове доходит до второго Post'а и начинает ругаться на совпадающий индекс. Хотя он (ID, он же ds.Fields[0].AsInteger) ни коим боком не совпадает! (проверено в отладчике) Так в чем проблема?

Стоит снять требование на несовпадающие индексы через Access, проблема исчезает. Но в чем она состоит-то?
в первый раз мы получаем значение ID, допустим, 27, и пишем его в качестве индекса объекта в БД. Во второй раз мы читаем значение 27 и пишем значение 28. Должно катить, но не катит.

[Stilet]

Хм... А чего б не поставить тип поля СЧЕТЧИК и пусть сам Акцесс заботится об инкременте ключа?

[White_Dove]

Перефразируя классическое, код не мой, я просто с ним работаю.
Но т.к. автор кода недоступен, приходится разбираться

Желательно все-таки понять, как исправить ситуацию средствами ADO
Какого фига один вызов такой функции прокатывает, а второй - валится на ПОСТе?

[Stilet]

Тут только отладчик даст тебе четкие ответы. Я бы пошагам прошелся, и посмотрел чего там в ID пишется...
А вообще это не очень удачная тактика. Советую ее не использовать.

[White_Dove]

Сообщение от Stilet

Тут только отладчик даст тебе четкие ответы. Я бы пошагам прошелся, и посмотрел чего там в ID пишется...
А вообще это не очень удачная тактика. Советую ее не использовать.

Отладчик именно и говорит то, что я написал в начале. Немножко поясню:
в первый раз мы получаем значение ID из последней записи БД(ID=26), и для новой формируемой записи используем значение 27. Именно это и показывает отладчик.
Во второй раз мы читаем значение 27 из последней записи (только что созданной) и используем значение 28. Перед самым вызовом поста значение ds.Fields[0].AsInteger во вновь формируемой записи=28! Жму F8, и БД выдает ошибку совпадающих индексов!

Переформулирую вопрос применительно к ADO:
Достаточно ли тех операторов, которые есть, чтобы применять эту функцию несколько раз подряд?

[Stilet]

Можно глянуть на твою БД?

[Gulik]

function CreateObjectIn(ds:TDataSet; tr:T3DObject):boolean;
begin
   Result:=false;
   ds.Append;
   ds.Fields[0].AsInteger:=ds.RecordCount; 
   ds.Fields[FN_X].AsFloat:=tr.Coords.x;
   ds.Fields[FN_Y].AsFloat:=tr.Coords.y;
   ...
   if ds.Modified then
      ds.Post;
   tr.SourceID:=ds.Tag;
   tr.ID:=ds.RecordCount;
   Result:=true;
end;

Но при удалении строки такой код заругается, если в Акцесе стоит на ID - провторения не допускаются

или попробуй в своем коде заменить ds.Insert; на ds.Append;

[White_Dove]

Мне необходимо заменить один объект на два и, соответственно, заменить одну запись в БД на две.

Но тогда вопрос: Гулик, если для тебя вопрос ругани очевиден, можно поподробнее, в каком месте ругань? И как, и почему ты модернизировал мой код?
Меня ногами не пинать, я с ADO месяц как знаком. Но проблему решать надо.

На всякий случай: код удаления записи в программе следующий:

   ds.First;
   (ds as TADODataSet).Locate(Result.Fields[0].FieldName,elem.ID,[]);
   if ds.RecordCount>0 then ds.Delete;

[Gulik]

мое мнение:
Каждую новую запись тебе нужно добавлять в конец таблицы, делать это лучше с помощью Append а не переходить в конец таблицы, проверять её полноту записей а затем добавлять новую.

И тебе уже говорили что пусть сам Акцесс заботится об инкременте ключа