Как проверить наличие записи с через SQL запрос

[eval]

Попробовать можно так:

insert into Data (...)
select :FIO,...
from Data where not exists(SELECT * FROM Data WHERE Name=:FIO)

подкрутить чего-то еще надо, на тестах посмотреть ...

с запросами без визулизации

Open к визулизации не имеет никакого отношения.

[Serge_Bliznykov]

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

Open к визулизации не имеет никакого отношения.

+1100500!

Dux, ADOQuery - это НЕ ВИУЗАЛЬНЫЙ компонент! Всё, что Вы с ним делаете - скрыто и никто этого не видит! Другое дело, если Вы кинули на форму DataSource и связали ВИЗУАЛЬНЫЕ компонент (например, DBGrid) через датасоурс с вашим ADOQuery! Но это же ВЫ сделали, Вас никто не заставляет это делать...

значит так. Киньте на форуму ещё один TADOQuery (ну, пусть для простоты это будет ADOQuery2), свяжите его с ADOConnection (если Вы её используете для доступа к БД). Занесите в ADOQuery2 нужный запрос и вызывайте ADOQuery2.Open для проверки наличия записи... Никакой визуальности при этом не будет, гарантирую!

[Dux]

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

+1100500!

Dux, ADOQuery - это НЕ ВИУЗАЛЬНЫЙ компонент! Всё, что Вы с ним делаете - скрыто и никто этого не видит! Другое дело, если Вы кинули на форму DataSource и связали ВИЗУАЛЬНЫЕ компонент (например, DBGrid) через датасоурс с вашим ADOQuery! Но это же ВЫ сделали, Вас никто не заставляет это делать...

значит так. Киньте на форуму ещё один TADOQuery (ну, пусть для простоты это будет ADOQuery2), свяжите его с ADOConnection (если Вы её используете для доступа к БД). Занесите в ADOQuery2 нужный запрос и вызывайте ADOQuery2.Open для проверки наличия записи... Никакой визуальности при этом не будет, гарантирую!

Большое спасибо за дельный совет! Так и сделаю!

[xxbesoxx]

Тема довольно старое , Но я захотел такой проверка и написал так
MS SQL работаю через SDAC

create database DB1;
----------------
use DB1
----------------------
create table Tab1(t_id int identity(1,1),
                  t_name nvarchar(30)
                  )
-----------------------
--drop table Tab2
create table Tab2(t_id int,
                  t_name nvarchar(30)
                  )
----------------------
insert into Tab1(t_name) values(N'Чай');
insert into Tab1(t_name) values(N'Кофе');
insert into Tab1(t_name) values(N'Сахар');

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    MSConnection1: TMSConnection;
    MSQuery1: TMSQuery;  // Для Tab1
    MSDataSource1: TMSDataSource;
    MSQuery2: TMSQuery; // Для Tab2
    MSDataSource2: TMSDataSource;
    msqryINSERT: TMSQuery; // С этим делаю проверка и если нету такой запись то insert
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 with msqryINSERT do
 begin
   SQL.Text := ' select *  '+
               ' from Tab1 inner join Tab2  '+
               ' on Tab1.t_id=Tab2.t_id     '+
               ' and Tab1.t_id= '+ MSQuery1.FieldByName('t_id').AsString +'';
   Open;
 end ;
 if msqryINSERT.RecordCount<>0 then
 begin
   ShowMessage('Такой запись уже есть на Tab2');
 end
 else
 if msqryINSERT.RecordCount=0  then
  with msqryINSERT do
  begin
    SQL.Clear;
    SQL.Text := ' INSERT Tab2 (t_id, t_name)  '+
                ' SELECT t_id, t_name         '+
                ' FROM Tab1                   '+
                ' WHERE Tab1.t_id= '+ MSQuery1.FieldByName('t_id').AsString +'';
    ExecSQL;
    MSQuery2.Refresh;
  end;
end;

end.

Можно так да ?

[Аватар]

Можно. А так не проще проверочный запрос

SQL.Text := ' select 0 from Tab2  where t_id='+ MSQuery1.FieldByName('t_id').AsString;

И для многопользовательской работы такая проверка не гарантирует отсутствие проблем

[xxbesoxx]

И для многопользовательской работы такая проверка не гарантирует отсутствие проблем

Почему друг ? Я же все это проверяю SQL помощью JOIN , смотрите когда вы думайте что проверка может не будет правильны ?

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Application.MessageBox(PChar('Вы действительно хотите это запись вставить на Tab2 ?  :  '+
  MSQuery1.FieldByName('t_name').AsString ), 'Предупреждение !!!', MB_ICONWARNING+MB_YESNO)=IDYES then
 begin
 with msqryINSERT do
 begin
   SQL.Text := ' select *  '+
               ' from Tab1 inner join Tab2  '+ // Здесь    JOIN
               ' on	Tab1.t_id=Tab2.t_id     '+
               ' and Tab1.t_id= '+ MSQuery1.FieldByName('t_id').AsString +''; // Вот здесь на каком записе есть курсор
   Open;
 end ;

 if msqryINSERT.RecordCount<>0 then   // А здесь если есть такой запись на Tab2 тоже  RecordCount не будет "0"
 begin
   ShowMessage('Такой запись уже есть на Tab2'); //
 end
 else
 if msqryINSERT.RecordCount=0  then  // А если Tab2 нету такой запись , тогда  RecordCount будет "0" да ?
  with msqryINSERT do   // Начинаю INSERT
  begin
    SQL.Clear;
    SQL.Text := ' INSERT Tab2 (t_id, t_name)  '+
                ' SELECT t_id, t_name         '+
                ' FROM Tab1                   '+
                ' WHERE Tab1.t_id= '+ MSQuery1.FieldByName('t_id').AsString +'';  // тоько те запись где курсор стаит
    ExecSQL;
    MSQuery2.Refresh;
  end;
end;
end;

end.

[Аватар]

Почему

Потому, что какой-то Вася успеет создать запись между SELECT-ом и INSERT-ом. Уникальность нужно на уровне СУБД контролировать

[xxbesoxx]

Потому, что какой-то Вася успеет создать запись между SELECT-ом и INSERT-ом

Да вы прав, мои SELECT вернул "0" , Я получаю msqryINSERT.RecordCount=0 и этот момент "Вася Пупкин" успел делать INSERT и еще из моего приложения запускается INSERT ...в этом конечно вы прав .! А можно вопрос : как реализовать на уровне СУБД ??? Так образно скажите пожалуйста для иллюстраций

[Аватар]

Уникальный индекс по полю или группе полей однозначно обеспечит уникальность. По сути это альтернативный ключ. Обычно конечно клиентская проверка, как в примерах выше. Она отсечет львиную долю дублей. Можно на уровне SQL-процедуры или триггера аналогичный контроль сделать с теми же проблемами. Еще вариант соответствующих блокировок, но это тормоза

[xxbesoxx]

Уникальный индекс по полю

Делал да

create nonclustered index IN_Tab2
on  Tab2(t_id, t_name)

или триггера аналогичный контроль

Огромное вам спасибо мне понравился триггер , вот так разобрал и работает

CREATE TRIGGER TR_INSERT_COUNT
ON Tab2
AFTER INSERT
AS
IF (SELECT COUNT (*) FROM Tab2 T, inserted I WHERE T.t_id=I.t_id)>1
BEGIN
ROLLBACK TRAN
 PRINT N'Такой запись уже есть на Tab2'
END

А через Delphi убираю это проверка SELECT JOIN и msqryINSERT.RecordCount=0 вот оставляю так

procedure TForm1.Button1Click(Sender: TObject);
begin
 if Application.MessageBox(PChar('Вы действительно хотите это запись вставить на Tab2 ?  :  '+
  MSQuery1.FieldByName('t_name').AsString ), 'Предупреждение !!!', MB_ICONWARNING+MB_YESNO)=IDYES then
 begin
  with msqryINSERT do   // Начинаю INSERT
  begin
    SQL.Clear;
    SQL.Text := ' INSERT Tab2 (t_id, t_name)  '+
                ' SELECT t_id, t_name         '+
                ' FROM Tab1                   '+
                ' WHERE Tab1.t_id= '+ MSQuery1.FieldByName('t_id').AsString +'';  // тоько те запись где курсор стаит
    ExecSQL;
    MSQuery2.Refresh;
  end;
end;
end;

end.