Как проверить есть ли запись в таблице?

[Sanya111]

Привет.
Подскажите, пожалуйста, как правильно проверить есть ли запись в таблице?
Ищу в колонке с primary key, то есть я точно знаю что будет только одна запись.
Написал вот такой код, присваиваю строковой переменной s='' и после запроса просто проверяю осталась переменная пустой или нет.
Мне очень важна скорость такой проверки.

Код: Выделить всё

s:='';
Form1.MyQuery1.SQL.Text:= 'select hh_id from hh where hh_id="'+HHDan[1]+'"';
Form1.MyQuery1.Open;
while not Form1.MyQuery1.Eof do
begin
s:=Form1.MyQuery1.FieldByName('hh_id').AsString;
if s<>'' then begin
break;
end;
Form1.MyQuery1.Next;
end;
Form1.MyQuery1.Close;

если s не пустая строка, то значит запись была в таблице

[AndreyZ]

Здравствуйте,

Для проверки существования записи, Вы можете использовать следующий код:

Код: Выделить всё

MyQuery1.SQL.Text:= 'select hh_id from hh where hh_id="'+HHDan[1]+'"';
MyQuery1.Open;
if not MyQuery1.Eof then
  ShowMessage('Запись существует')
else
  ShowMessage('Запись не существует');
MyQuery1.Close;

[Sanya111]

Большое спасибо за помощь

[AndreyZ]

Не за что. Обращайтесь к нам если возникнут дальнейшие вопросы по MyDAC.