SQL: как присвоить записи её порядковый номер?

[FReeMAN(Q)]

Вопрос в следующем есть таблица.. в ней некоторое число записей..
необходимо при создании новой записи автоматически присвоить ей следующий порядковый номер..
Как я понимаю для этого просто надо посчитать количество записей полученный ответ увеличить на еденицу и записать в поле новой записи..
в SQL количество считает COUNT() но кауда он записывает результат? и как направить этот результат в переменную.. подскажите..
с таблицей работаю через Query...

[Скандербег]

Можно себе представить беднягу пользователя, работающего с такой базой.
При каждом добавлении записи сидит и ждет, когда же сервер посчитает сколько там этих записей, если таблица имеет миллионы строк.
А если серьезно, то такой алгоритм не годится, если нужны уникальные номера записей.
На примере. Есть две записи под номерами 1 и 2. Удаляем первую запись потом добавляем еще одну. В результате обе записи будут иметь один и тот же номер - 2. Так годится?
Чтобы ответить на этот вопрос необходимо знать как используются (или предполагается использовать) присвоенные номера записей.
В SQL базах, где действительно требуются уникальные номера (идентификаторы) записей получение такого ИД уже давным-давно автоматизировано.

Результат запроса select count(*) from <имя таблицы> возвращается в том же DataSet (Query, например), который отправил запрос.
А "...направить этот результат в переменную" можно так:

   CntRec := Query.FieldByName('COUNT').AsInteger;

[Serge_Bliznykov]

Скандербег, +1
полностью согласен.

FReeMAN(Q),
1) есть такой тип поля, как autoincrement (счётчик)
тогда сама СУБД будет наращивать счётчик при записи в базу
2) в нормальных СУБД ещё есть такое понятие как генератор последовательностей (SEQUENCE)
(результаты поиска на гугл)
3) Если СУБД это не предусматривает — например, FoxPro for DOS - тогда оптимальный способ держать отдельно табличку, где хранить имя таблицы и текущий доступный код. Надо добавить запись - открывает эту вспогательную табличку, находим там запись для нашей таблицы, лочим(блокируем) запись (чтобы не было конфликтов при одновременной многопользовательской работе по добавлению данных), наращиваем счётчик, записываем новое значение в эту вспомогательную таблицу, разблокируем запись, и добавляем новую запись в таблицу со взятым значением счётчика.

и последнее, если таблица маленькая (или учебная задача) и со всем вышеуказанным заморачиваться не хочется, тогда, всё же лучше вместо количества записей брать максимальное значение счётчика:

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select MAX(Код) as MaxCode from Tablica1');
  ADOQuery1.Open;
  if  ADOQuery1.IsEmpty then NextCode := 1
  else NextCode := ADOQuery1.FieldByName('MaxCode').AsInteger + 1;
  ADOQuery1.Close;
{всё можно добавлять новую запись с кодом NextCode}

но учтите, Скандербег абсолютно прав, если добавление идёт интенсивно и часто, а база достаточно большая - то нагрузка на БД по получению максимального кода может быть весьма большой. Хотя, конечно, индексы (а по ключевому полю они просто обязаны быть!) сильно улучшают ситуацию. Но всё таки, имейте это в виду!

[FReeMAN(Q)]

нужно что бы полю Pnom присваивался порядковый номер записи и что бы при удалении например записи с порядковым номером (Pnom) 5 этот порядковый номер присваивался записи вставшей на её место... все просто.. но чего то не выходит..

procedure TForm2.Button1Click(Sender: TObject);

var
i,cena,cntrec:integer;
 dt,vd,mst,op,rek:string;

begin


i:=combobox1.ItemIndex;
dt:= DateToStr( Date );
vd:= combobox1.Items.Strings[i];
cen:= StrToInt(edit1.Text);
mst:= edit2.Text;
op:=  edit3.Text;
rek:= edit4.Text;

if form1.ComboBox3.ItemIndex=0
then
begin

cntrec:=form1.Query2.fieldbyname('pnom').AsInteger;
cntrec:=cntrec+1;


form1.query2.Active:=false;
form1.Query2.SQL.Clear;
form1.Query2.SQL.Add('insert into pokupka (Pnom, Dat, Vid, Cena, Mesto, Opis, Rekvizit)');

form1.Query2.SQL.Add('values ('+inttostr(Cntrec)+', '''+dt+''', '''+vd+''', '+inttostr(cen)+', '''+mst+''', '''+op+''', '''+Rek+''' )');
form1.Query2.ExecSQL;

form1.Query2.SQL.Clear;
form1.Query2.SQL.Add('select * from pokupka');
form1.Enabled:=true;
form1.TabbedNotebook1.ActivePage:='Покупка';
form1.query2.Active:=true;

form2.Close;

end;
end;

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

P.S.: и все же как при удаленнии одной записи присваивать остальным их порядковые номера в таблице.. автоматически..

[FReeMAN(Q)]

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

Скандербег, +1


и последнее, если таблица маленькая (или учебная задача) и со всем вышеуказанным заморачиваться не хочется, тогда, всё же лучше вместо количества записей брать максимальное значение счётчика:

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select MAX(Код) as MaxCode from Tablica1');
  ADOQuery1.Open;
  if  ADOQuery1.IsEmpty then NextCode := 1
  else NextCode := ADOQuery1.FieldByName('MaxCode').AsInteger + 1;
  ADOQuery1.Close;
{всё можно добавлять новую запись с кодом NextCode}

попробовал ваш вариант кода он вносит новые записи с полем 1... 1... 1... 1... каждый раз...

[Скандербег]

Присвоение значения переменной есть (cntrec:=form1.Query2.fieldbyname(' pnom').AsInteger; ), а где тот самый запрос о количестве записей?
Вначале надо сделать запрос, а потом уже вытаскивать и присваивать кол-во записей.

  form1.Query2.Close; //если form1.Query2 закрыт (не активен) , то этот оператор вставлять не надо
  form1.Query2.SQL.text := 'select count(*) from pokupka';
  form1.Query2.Open;
  if not form1.Query2.Eof then
    cntrec:=form1.Query2.fieldbyname('COUNT').AsInteger + 1;
  form1.Query2.Close;

P.S.: и все же как при удаленнии одной записи присваивать остальным их порядковые номера в таблице.. автоматически..

А этого, практически, сделать и невозможно. Поэтому в базах применяют так называемый уникальный идентификатор (в нашем с вами понимании - номер записи). Особенность его в том, что при удалении записи этот номер больше никогда не используется. В этом случае, да, все делается автоматом, правда, реализация такого "автомата" зависит от типа базы. Но все равно, чтобы "автомат" заработал надо сделать несколько телодвижений.
В некоторых применяется, как сказал Serge_Bliznykov, автоинкрементное поле (пункт 1. в его посте).

[FReeMAN(Q)]

спасибо вам за помощь.. последний вопрос..
при использовании данного кода

form1.Query2.Close; //если form1.Query2 закрыт (не активен) , то этот оператор вставлять не надо
  form1.Query2.SQL.text := 'select count(*) from pokupka';
  form1.Query2.Open;
  if not form1.Query2.Eof then
    cntrec:=form1.Query2.fieldbyname('COUNT').AsInteger + 1;
  form1.Query2.Close;

выдается ошибка о том что поле Count или в моём случае Pnom не найдено... почему?

[Serge_Bliznykov]

Сообщение от FReeMAN(Q)

попробовал ваш вариант кода он вносит новые записи с полем 1... 1... 1... 1... каждый раз...

не верю!
Надеюсь, что Вы догадались изменить выборку на:

  ADOQuery1.SQL.Add('select MAX(Pnom) as MaxCode from pokupka');

Приводите кусок программы целиком!!

Сообщение от FReeMAN(Q)

P.S.: и все же как при удаленнии одной записи присваивать остальным их порядковые номера в таблице.. автоматически..

Извините. Но это просто глупость! Почитайте для начала основы реляционных БД!
сделать,конечно, можно что угодно - и зайца можно научить курить, вот только ЗАЧЕМ?!! Нумеруйте записи при выборке, или в отчёте. зачем их в таблице номеровать то?!?!

p.s. Ага. Кажется понял. Ваша проблема в том, что Вы пытаетесь использовать естественный ключ в качестве искуственного. Подробнее можно об этом почитать здесь — Анатолий Тенцер, Естественные ключи против искуственных ключей
на подобные грабли мы неоднократно наступали.. ;(
у Вас поле pnom чтото означает для характеристики покупки?!? номер счёта или какой-то ещё номер, который нужен пользователю?!
Тогда, мой Вам совет:
(если структура таблицы (и программа) доступны Вам для модицикации, конечно!) добавляйте новое поле — настоящий уникальный идентификатор.
И делайте с полем pnom что душеньке угодно!

[Serge_Bliznykov]

выдается ошибка о том что поле Count или в моём случае Pnom не найдено... почему?

перепишите код так:

 form1.Query2.SQL.text := 'select count(*) as RCOUNT from pokupka';
  form1.Query2.Open;
  cntrec:=1;
  if not form1.Query2.IsEmpty then
    cntrec:=form1.Query2.fieldbyname('RCOUNT').AsInteger + 1;
  form1.Query2.Close;

p.s. и обязательно внимательно прочитайте мой предыдущий пост!

[Скандербег]

Сообщение от FReeMAN(Q)

выдается ошибка о том что поле Count или в моём случае Pnom не найдено... почему?

Можно так:

  cntrec := form1.Query2.fields[0].AsInteger + 1;