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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.04.2009, 19:09   #1
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,206
Вопрос Присвоение ID

Хотелось реализовать в своей программе таку вещь). Интуитивно идея мне понятна, но естьв плане кода проблема. Вообщем у меня есть таблица с полями: автоинкриментное поле ID и поле ПРЕДМЕТ, куда будут через ComboBox заносится названия предметов. Суть задачи такова:
  1. Вводится название предмета.
  2. Если введенное название предмета в БД отсутствует, то название заносится в базу и ему автоматом присваивается свой ID.
  3. Если название предмета уже есть в БД, должно появится сообщение, что такой предмет уже есть в БД и это название должно автоматом заносится в ComboBox.
C первыми двумя вроде проблем нет. Но появляется проблема с третьим пунктом. Как можно сделать такое? Может кто-то делал раньше подобное?
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 20.04.2009, 11:12   #2
фЁдОр
Форумчанин
 
Аватар для фЁдОр
 
Регистрация: 06.09.2007
Сообщений: 908
По умолчанию

ну если со вторым проблем не возникло, тогда не понятно почему с третьим пунктом застопорились, ведь оно аналогично второму
фЁдОр вне форума Ответить с цитированием
Старый 20.04.2009, 14:45   #3
soleil@mmc
SQL-коддинг
Участник клуба
 
Регистрация: 16.01.2009
Сообщений: 1,192
По умолчанию

Цитата:
Сообщение от фЁдОр Посмотреть сообщение
ну если со вторым проблем не возникло, тогда не понятно почему с третьим пунктом застопорились, ведь оно аналогично второму
я бы даже добавил - реализуется на одной и той же процедуре
1) делаем запрос
Код:
select count(*) from table_predmet where upper(name_predmet) = upper(:p0)
2) if l_count=0 then //добавляем как новый
....
else // покажем сообщение о том, что такой предмет уже существует
...
soleil@mmc вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Присвоение значений в ComboBox maxi_mum Помощь студентам 6 09.04.2009 12:48
Присвоение процедур компонентам N!ckeL Компоненты Delphi 4 26.04.2008 18:22
Присвоение переменным булевских выражений rider Паскаль, Turbo Pascal, PascalABC.NET 4 06.12.2007 21:11
Присвоение значения ключевому полю Arteom БД в Delphi 5 08.11.2007 00:02
Присвоение имени файлу в диалоге Beliyd Общие вопросы Delphi 3 05.09.2007 18:54