码迷,mamicode.com
首页 > 数据库 > 详细

delphi数据库进行增加操作时,怎么判断插入的这个值是否已经存在?

时间:2018-11-17 17:03:42      阅读:339      评论:0      收藏:0      [点我收藏+]

标签:ext   code   value   sele   bsp   procedure   操作   ado   else   

//
procedure TForm1.btnAddClick(Sender: TObject);
begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add(select * from AZZ where 排名=(‘‘ + Edit1.Text + ‘‘));
    ADOQuery1.Open;
//if ADOQuery1.IsEmpty then
       ??????????????????????????
        if ADOQuery1.RecordCount = 0 then  //如果记录为空....做判断
          begin
             ADOQuery1.Close;
             ADOQuery1.SQL.Clear;
             ADOQuery1.SQL.Add(insert into AZZ(排名,名称,网址,国家) values (‘‘ + Edit1.Text + ‘‘, ‘‘ + Edit2.Text + ‘‘,‘‘ + Edit3.Text + ‘‘,‘‘ + Edit4.Text + ‘‘));
       if (trim(Edit1.text)=‘‘) or (trim(Edit2.text)=‘‘) or (trim(Edit3.text)=‘‘) or (trim(Edit4.text)=‘‘) then
          begin
             showMessage(有数据输入为空,请重新输入!);
             exit  //强制跳出if语句
             end
          else
          begin
             showMessage(数据添加成功!);
          end;
            ADOQuery1.ExecSQL;
            ADOQuery1.Close;
            ADOQuery1.SQL.Clear;
            ADOQuery1.SQL.Add(select * from AZZ);
            ADOQuery1.Open;
          end
          else
          begin
             showmessage(您输入的排名已经存在,请重新输入!);
    end;
end;

 

delphi数据库进行增加操作时,怎么判断插入的这个值是否已经存在?

标签:ext   code   value   sele   bsp   procedure   操作   ado   else   

原文地址:https://www.cnblogs.com/jijm123/p/9974587.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!