Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.02.2013, 17:13   #1
Black_Wolf
Пользователь
 
Регистрация: 16.04.2012
Сообщений: 19
По умолчанию занести уникальное ID БД сделал через goto, но виснет (

Небходимо занести уникальное ID БД сделал через goto, но чево-то зависает
есть ли другие варианты или как-то етот улучшить ?
Код:
: begin
i:=inttostr(qr);
opts:=[loCaseInsensitive];
goback:
qr:=RandomRange(100000, 10000000);
  if Data_test_HR.qry1.Locate('ID',i, opts) then //проверка на уникальность
   goto goback else ;
   Edit1.Text:=inttostr(qr) ;
end;
Black_Wolf вне форума Ответить с цитированием
Старый 16.02.2013, 17:31   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
как-то етот улучшить ?
Использовать тип поля Счетчик или генераторы в БД. Или же просто триггерами в том же БД. В программе, подключаемой к БД такие вещи делать строго нерекомендуется.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.02.2013, 17:39   #3
Black_Wolf
Пользователь
 
Регистрация: 16.04.2012
Сообщений: 19
По умолчанию

мне надо сгенирировать уникальный ключ, через гото он зависает в том и проблема есть ли альтернатива ? или как сделать чтоб не зависал

Последний раз редактировалось Black_Wolf; 16.02.2013 в 17:45.
Black_Wolf вне форума Ответить с цитированием
Старый 16.02.2013, 17:56   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
есть ли альтернатива ?
Еще раз внимательно читаем мой пост. Обращаем внимание на слова Счетчик и генераторы в БД
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 17.02.2013, 09:51   #5
BARNEY
Участник клуба
 
Регистрация: 23.04.2009
Сообщений: 1,058
По умолчанию

Используй UUID
Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)
BARNEY вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DBLookupComboBox занести в Edit через запятую бумблгум БД в Delphi 2 07.02.2013 12:16
Exel - при открытии файла через макрос, если файл отсутствует - виснет весь макрос gregory1b Microsoft Office Excel 2 14.10.2010 11:51
прога виснет из-за goto tred Помощь студентам 8 27.06.2010 10:34
Виснет машина при передаче файла через сокет SlashMan Работа с сетью в Delphi 2 19.07.2009 23:50