img
00:00
imgDRKB online - Создание автоинкрементного поля SQL запросом?
imgimgimg
  Общие вопросы
  Delphi IDE, компиллятор, отладчик, редактор
  Язык программирования Дельфи
  VCL
  Системные функции и WinAPI
  Базы данных
  Общие вопросы
  Теория баз данных, архитектура и проектирование
  Базы данных с нуля (статья)
  Проблемы при работе с Blob полями
  Работа через BDE
  Установка BDE
  Настройка BDE, Database Desktop
  Справочные материалы по BDE
  Работа с Alias
  Поддержка пользователей, защита
  Непосредственное обращение к BDE
  Работа с базами данных
  Работа с TTable, TQuery и TDatabase
  Объяснения некоторых ошибок при работе с базами данных
  Работа с таблицами
  Работа с BDE в сети, общий доступ к данным
  Работа с полями
  Использование нумерации в TFields
  Изменить размер поля или его тип
  Динамическое создание полей
  Работа с автоинкрементальными (AutoInc) полями
  Как задать выражение по умолчанию для объекта TField
  Создание автоинкрементного поля SQL запросом?
  Как создать вычисляемые поля во время исполнения программы
  Как создать поле Lookup во время выполнения приложения
  Обновление вычисляемых полей
  Работа с индексами
  Работа с запросами SQL в BDE
  Разные вопросы
  Работа через ADO
  Работа через ODBC
  Работа с DBExpress
  Частные вопросы по конкретным базам данных
  Работа с визуальными компонентами (DB Controls)
  Работа с SQL
  XML
  Работа с файловой системой
  Репортинг, работа с принтером
  Работа с сетью, интернетом, протоколами
  Работа с графикой и мультимедиа
  Математика, алгоритмы
  Форматы файлов, данных. Конвертация форматов
  ActiveX, COM, DCOM, MIDAS, CORBA, интерфейсы, OLE, DDE
  Разработка приложений
  Kylix
  Delphi.Net
  Развлечения
  
  [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
 
Вход
Имя:
Пароль:
Запомнить
Регистрация Забыли пароль?
Мини-чат :)
Необходима регистрация
Архив мини-чата
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
Тут кто-то пишет?
21-07-2019 02:59
Adler
up smiley
18-07-2019 11:26
kuzyara
drkb online должен жить!
долгих лет автору сайта!
03-07-2019 16:00
Programmer
Привет
Статистика
 СегодняВсего
Посетителей312087172
Запросов166321364734
Online
Пользователей0
Гостей33
imgimgimgimg
 
img
     00:00