Предотвращение дублирования записи

[Dandy777]

Подскажите пожалуйста как сделать проверку на наличие записи

Delphi + MSSQL

Пытаюсь организовать через Stored Procedure:

USE [PlatSys]
GO
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[EXISTS_USER] 

@LastName nvarchar

AS
BEGIN

	SET NOCOUNT ON;

IF EXISTS (SELECT LastName FROM Users WHERE LastName LIKE '%' + @LastName + '%' )
BEGIN
Print N'1';
END
END

И потом в Delphi

procedure TForm1.Button4Click(Sender: TObject);
begin
DataModule1.Exists.Close;
DataModule1.Exists.ProcedureName:='EXISTS_USER';
DataModule1.Exists.Parameters.Refresh;
DataModule1.Exists.Parameters.ParamByName('@LastName').Value:=Edit1.Text;
DataModule1.Exists.Open;
end;

Но получаю ошибку


Если выполнить процедуру на сервере то ReturnValue = 0 хотя такая запись в таблице есть.

P.S. Учусь совсем недавно, посему за возможную кривоватость кода просьба не пинать, а отнестись с пониманием. В интернете искал решение проблемы и то ли плохо искал, то ли не оказалось того что мне нужно.

[Аватар]

В процедуре SELECT-ом верните результат, например

SELECT COUNT(*) AS CountRec FROM Users WHERE LastName LIKE '%' + @LastName + '%'

В результате получите набор из одной записи и одного поля в ней. Но этого мало. После проверки и перед вставкой новой записи при многопользователькой работе дубликаты могут появится. Тут триггер не заменим

[Dandy777]

С триггерами еще не успел познакомиться. Но если он не заменим, то придется осилить.
Вы думаете подойдет

SELECT Count

если в сообщении мне надо вернуть что-то типа
"Пользователь Иванов Иван Иванович существует, продолжить создание пользователя" Yes/No

[Аватар]

А програамно это же сообщение выдать если FieldByName('CountRec').AsInteger>0 нельзя? Или обязательно серверное сообщение?

[Dandy777]

1) Хотелось бы реализовать через Stored Procedure.
2) Как реализовать программно в Delphi я знаю.

P.S. Я ооочень сильно извиняюсь, сказался вечер и усталость. Немного не правильно сформулировал задачу.

Из таблицы выбирается ФИО, допускается совпадение:
Фамилия и Фамилия + Имя, но не допускается совпадение Фамилия + Имя + Отчество.
Подскажите как такое реализовать?

[Serge_Bliznykov]

BTW, если создадите индекс на данную таблицу, куда включите все три поля (Фамилия, Имя, Отчество) и сделаете этот индекс уникальным, то НИКТО не сможет добавить повторяющийся элемент в таблицу.

[artemavd]

Скорее всего ТС хранит в таблице в одном поле и фамилию и имя и отчество. Этого нельзя делать. Надо делать как сказал Serge_Bliznykov. Тогда все будет просто и правильно.

[Dandy777]

Сообщение от artemavd

Скорее всего ТС хранит в таблице в одном поле и фамилию и имя и отчество. Этого нельзя делать. Надо делать как сказал Serge_Bliznykov. Тогда все будет просто и правильно.

Я храню ФИО в 3-х разных полях.

[artemavd]

Я не утверждал наверняка, а предположил. Поэтому и написал, что Скорее всего

[Dandy777]

Сообщение от artemavd

Я не утверждал наверняка, а предположил. Поэтому и написал, что Скорее всего

Не дочитал

Сегодня с новыми силами попробую реализовать через SP , если не выйдет придется реализовывать средствами Delphi. Для моего понимания это будет проще, хотя менее интересно.