Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Создание автоинкрементного поля SQL запросом? 
:(
    Опции темы
Poseidon
Дата 18.5.2005, 14:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 3
Всего: 133
Код
{ 
  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.GetNextNumber : 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.SetNextNumber; 
begin 
 //You must first see if the table is in insert/update mode before using this procedure. 
 tblMain.FieldByName('FieldToIncrese').AsInteger := GetNextNumber; 
end; 



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0887 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.