当前位置：Gxlcms >
数据库问题 >
delphi数据库进行增加操作时，怎么判断插入的这个值是否已经存在？
delphi数据库进行增加操作时，怎么判断插入的这个值是否已经存在？
时间：2021-07-01 10:21:17
帮助过：4人阅读
增
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
