delphi数据库进行增加操作时,怎么判断插入的这个值是否已经存在
发布时间:2020-12-15 09:54:13 所属栏目:大数据 来源:网络整理
导读:// 增 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 ???
//增 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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |