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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 24.12.2009, 14:55   #1
feagor
 
Регистрация: 24.12.2009
Сообщений: 4
По умолчанию

Здраствуйте!
Имеются две таблицы "анкетные данные" и "залог" связаны 1 ко многим, чтобы на каждого человека можно было записать несколько залогов.
Как сделать чтобы перед добавлением новой записи, проверялась есть ли абсолютно такая же запись в таблице "Анкетные данные"?

15:03

немножко добавлю, надо чтобы перед добавлением записи, если запись есть возращалось бы значение Анкетные_данные.Код

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Модератор

Последний раз редактировалось mihali4; 24.12.2009 в 15:11.
feagor вне форума Ответить с цитированием
Старый 24.12.2009, 15:12   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

Какие поля в таблице анкет ?
mihali4 вне форума Ответить с цитированием
Старый 24.12.2009, 15:39   #3
soleil@mmc
SQL-коддинг
Участник клуба
 
Регистрация: 16.01.2009
Сообщений: 1,192
По умолчанию

Код:
select Код
from Анкетные_данные
where 0=0
   and Фамилия = :p0
   and Имя = :p1
   and Отчество = :p2
если нет таких, то ничо не вернется, иначе вернется код анкеты
при сравнении ФИО можно приводить к одному регистру чтобы избежать ошибок ввода оператора
soleil@mmc вне форума Ответить с цитированием
Старый 24.12.2009, 15:57   #4
feagor
 
Регистрация: 24.12.2009
Сообщений: 4
По умолчанию

Цитата:
Код:

select Код
from Анкетные_данные
where 0=0
and Фамилия = 0
and Имя = 1
and Отчество = 2
если нет таких, то ничо не вернется, иначе вернется код анкеты
при сравнении ФИО можно приводить к одному регистру чтобы избежать ошибок ввода оператора
а
Код:
:p0,:p1,:p2
это что?
feagor вне форума Ответить с цитированием
Старый 24.12.2009, 16:25   #5
Evgeniy26
Форумчанин
 
Аватар для Evgeniy26
 
Регистрация: 29.05.2009
Сообщений: 384
По умолчанию

Параметризованный запрос.
Код:
:p0,:p1,:p2
- переменные.
Код:
ADOQuery1.Parameters.ParamByName('p1').ToString := var

Последний раз редактировалось Evgeniy26; 24.12.2009 в 16:31.
Evgeniy26 вне форума Ответить с цитированием
Старый 24.12.2009, 16:47   #6
soleil@mmc
SQL-коддинг
Участник клуба
 
Регистрация: 16.01.2009
Сообщений: 1,192
По умолчанию

Цитата:
Сообщение от Evgeniy26 Посмотреть сообщение
Код:
ADOQuery1.Parameters.ParamByName('p1').ToString := var
так точнее будет
Код:
ADOQuery1.Parameters.ParamByName('p0').AsString := Edit1.Text;
soleil@mmc вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Имеются координаты точки. Как проверить какого цвета соседние точки на форме? Rin Мультимедиа в Delphi 2 10.11.2009 22:47
пропали все записи в таблице pauluk Microsoft Office Access 3 22.09.2009 09:15
Записи в таблице ADO doniyor БД в Delphi 5 01.07.2009 13:19
Записи (структура). проверить. felmor Паскаль, Turbo Pascal, PascalABC.NET 1 16.05.2009 17:24
удалить записи в таблице Dbf. pups БД в Delphi 7 15.12.2006 19:19