Показать сообщение отдельно
  #2  
Старый 17.12.2012, 02:08
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от Vavrenyuk
Вопрос маленький: как проверить существует ли такая же запись в таблице (или бд (не знаю как правильней)) которая введена в Edit'e ?
Можно например SQL-запросом:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text := 'SELECT Count(*) FROM ИмяТаблицы WHERE ИмяПоля = :param';
  ADOQuery1.Parameters.ParamByName('param').Value := Edit1.Text;
  ADOQuery1.Open;
  ShowMessageFmt('В этой таблице таких записей существует %d штук', [ADOQuery1.Fields[0].AsInteger]);
end;
Ответить с цитированием