img
00:00
imgDRKB online - Создание автоинкрементного поля SQL запросом?
imgimgimg
  
  [drkb=2009] Комментариев: 0 
Создание автоинкрементного поля SQL запросом?


delphi
{
  Lets say that we wish to create a fallawing number (Autoincrese) of an item,
  without using the AutoIncrese filed.
  This is usfull when for example there is more users from the same IP that log
  in or any other things that you wish.

  This example will show you how to do it with some checking of filled data,
  but it can be done anyway you wish.

  You need a Table with at least 2 fileds with number casting, and a TQUERY component.
}



function TForm1.GetNumber : integer;
begin
qryMain.Active := False;
qryMain.SQL.Clear;
qryMain.SQL.Add('Select Max(FieldToIncrease) from tblMain where (Cheking >=1);');
qryMain.Active := True; //We executed the query

if qryMain.RecordCount >= 0 then
  result := qryMain.FieldByName('FieldToIncrese').AsInteger +1;
else result := 1;
end;

...

procedure TForm1.SetNumber;
begin
//You must first see if the table is in insert/update mode before using this procedure.
tblMain.FieldByName('FieldToIncrese').AsInteger := GetNumber;
end;




@Drkb::02620
Взято с сайта http://www.swissdelph...ndex.php
Количество статей: 4366
 
Вход
Имя:
Пароль:
Запомнить
Регистрация Забыли пароль?
Мини-чат :)
Необходима регистрация
Архив мини-чата
19-01-2020 10:47
Programmer
уже подросток
19-01-2020 10:47
Programmer
13 лет этому сайту
19-01-2020 10:45
Programmer
уже 2020
14-01-2020 05:12
Xyu
Кароч дарова
14-01-2020 05:12
Xyu
Dirvachok
12-12-2019 19:32
Prokok
Всем привет!

12-12-2019 18:12
Programmer
admin создай беседу в вк про десксофт
09-12-2019 15:21
spex
ку
07-12-2019 23:51
admin
Это хоумпейдж, для души, с чего бы ему умирать? К тому же на хостинге другие сервисы подняты, для себя.
07-12-2019 22:49
Oleg4260
Мда... тут 2 страницы пролистаешь и уже на год раньше дата сообщения
походу сайт мёртвый. странно, что он до сих пор хостится, и даже админ вчера онлайн утром был.
Статистика
 СегодняВсего
Посетителей6242176282
Запросов29597326374967
Online
Пользователей0
Гостей33
imgimgimgimg
 
img
     00:00