Архив форумов ЦИТФорума

[Anatoliy]

как получить номер последний записи?,
для того чтоб, к нему прибавить +1 и полученное число вставить в поле при соддании новой записи.
(хочу чтоб, в таблице dbf сроки имели порядковую нумерацию. КАК ето реализов... Плиз)

[Daniel]

Я уже с таким сталкивался, тут такая вещь существует, а вдруг пользователь захочет удалить среднюю строку???? ее идентификатор уже теряется, а в других таблицах возможно он используется, поэтому надо сначала подумать над сохранением целостности бд.... а я делал так : Пробегался по таблице (заранее было известно что она будет небольшая), находил максимальный идентификатор, к нему прибавлял еденицу и создавал новую запись

[Anatoliy]

если не трудно, кинь пожалуйста отрывок кода.
Моя таблица без связей и примерно строк будет до 1000(через год).
Честно, я пытался так сделать, но чет пока не выходит.
Еще раз спасибо.

[Daniel]

Table.first;
idpostav:=0;
for i:=0 to table.RecordCount-1 do Begin
val:=Table.FieldByName'id_postav').asInteger;
if val>idpostav then idpostav:=val;
Table.Next;
End;
inc(idpostav);
Обычный алгоритм нахождения максимального числа в массиве.... но вообще то алгоритм наверное доработать можно было бы.... не хотелось думать

[Anatoliy]

Честно говоря я не понял. это на дельфи я перевел как смог.

Table1->First();
idpostav = 0;
for (int i=0;Table1->RecordCount;-1)
{
val=Table->FieldByName'nume').asInteger;
if val>idpostav then idpostav=val;
Table1->Next;
}
inc(idpostav);
что такое:
- idpostav
- inc(idpostav);
- val

[Daniel]

Пиши на мыло hole666@mail.ru

[Mike]

Вобще-то такие вещи лучше писать на SQL, быстрее будет работать, текст запроса:
SELECT max(ИмяПоля) from ИмяТаблицы

потом просто берешь значение из единственного поля в компоненте TQuery или лучше TADOQuery

[Anatoliy]

Так я работаю с отдельной таблицой?
через ADO компоненты, все равно можно пользоваться запросами языка SQL? (только через ADO Query)

[Mike]

Через АДО все делается

[Anatoliy]

попробую!

[ALL]

создал отдельную таблицу (счетик) и отдуда беру.