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
 
Вход
Имя:
Пароль:
Запомнить
Регистрация Забыли пароль?
Мини-чат :)
Необходима регистрация
Архив мини-чата
15-09-2019 18:55
Expendobrooo
Есть кто живой?
15-09-2019 17:36
Programmer
сайт сдох smiley
29-08-2019 22:11
Zoom
ПРивет Привет
02-08-2019 21:22
Set
Не знал что настолько редко
02-08-2019 21:22
Set
Нифига се
01-08-2019 14:26
antonn
smiley
01-08-2019 14:17
pitch
Ну вот и яяяяя
29-07-2019 10:04
antonn
Очень редкое природное явление smiley
28-07-2019 21:21
John Warner
Да, бывает.
27-07-2019 17:41
Set
Тут кто-то пишет?
Статистика
 СегодняВсего
Посетителей2862097543
Запросов38487322756436
Online
Пользователей0
Гостей31
imgimgimgimg
 
img
     00:00