Проверка на совпадение. Firebird.

[artemavd]

Здравствуйте. Пишу одну прогу и возникла необходимость производить проверку на совпадение вносимых данных с уже имеющимися. Проверка обязательно должна проходить по двум поля: Дата(Dat) и Время(Vrem). То есть, например, пусть в БД есть значения 01.01.2010 и 16:00. Если я заношу такие же значения, то должно появится сообщение. Предполагаю, что код будет примерно таким:

 Form3.pFIBQuery1.SQL.Clear;
 Form3.pFIBQuery1.SQL.Text:='INSERT INTO VREMY(ID,Dat,Vrem) VALUES(null,:D,:V)';
 Form3.pFIBQuery1.ParamByName('D').Value:=Form1.Lable59.Caption;
 Form3.pFIBQuery1.ParamByName('V').Value:=Form1.Label60.Caption;
 Form3.pFIBQuery1.ExecQuery;

Словами условие будет примерно такое: "Если вводимое значение даты и времени совпадает с уже имеющимися, то показать сообщение о том, что есть такие значения. Иначе, показать сообщения, что таких сообщений нет"
Но вот как записать условие проверки?

[quit]

На вашем месте я бы написал хранимую процедуру и уже в ней проверял на поля на дубли)

Edit1
или

 Form3.pFIBQuery1.SQL.Clear;
 Form3.pFIBQuery1.SQL.Text:='SELECT COUNT(*) FROM VREMY WHERE Dat =:D AND Vrem = :V;';
 Form3.pFIBQuery1.ParamByName('D').Value:=Form1.Lable59.Caption;
 Form3.pFIBQuery1.ParamByName('V').Value:=Form1.Label60.Caption;
 Form3.pFIBQuery1.Open;
 if Form3.pFIBQuery1.Fields[0].AsInteger > 0 then
  ShowMessage('Есть такие записи')
 else
  ShowMessage('Нет таких записей');

maLoy*508 опередил

Edit2
soleil@mmc подправил

[maLoy*508]

пройдись поиском сразу...
если же просто нужно узнать есть записи с такими данными или нет, то

Select ...........
From VREMY
Where Dat = '...' and verm '...'

и потом просто проверь если RecordCount больше нуля, то записи есть, если ноль - нет...
я думаю логика ясна

[artemavd]

maLoy*508, можете подробнее написать?

[quit]

artemavd, я же, вроде как, написал то, что maLoy*508 имеет ввиду...

[soleil@mmc]

во-первых, можно сразу получить select count(*) и не надо никаких RecordCount дергать лишний раз

во-вторых, если тебе по условиям работы не нужно иметь каких-то дублей, то заведи уникальный ключ на эти поля - он сам отработает все что нужно (и проверит и скажет когда будет попытка вставить дубль)

[Serge_Bliznykov]

soleil@mmc, полностью согласен. +100