首页 > 数据库技术 > 详细

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

时间:2018-11-17 16:59:51      阅读:208      评论:0      收藏:0      [点我收藏+]
//
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数据库进行增加操作时,怎么判断插入的这个值是否已经存在?

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

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!