AT

Question

我想知道一张表中有没有某条记录存在。
比如：我从edit1输入一个条件。我想知道edit1中输入的记录在表中有没有，有的话给出提示。要怎么弄啊？
谢谢！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
 with adoquery1 do begin
  close;
  sql.Text:='select 1 from 表名 where 字段名='''+edit1.Text+'''';
  open;
  if IsEmpty then
  showmessage('没有')
  else
  showmessage('有') ;
 end;end;

Answer 2

  with adoquery1 do 
  begin
    close;
    sql.Text:='select * from 表名 where 字段名='''+edit1.Text+'''';
    open;
  end;
  if adoquery1.eof then
    showmessage('没有'); 
  else
    showmessage('有') ;

Answer 3

  with adoquery1 do 
  begin 
    close; 
    sql.Text:='select * from 表名 where 字段名=:pp';
    parameters.parambyname('pp').value := trim(edit1.text); 
    open; 
  end; 
  if adoquery1.eof then 
    showmessage('没有'); 
  else 
    showmessage('有') ;