我来拿分喽!
在插入之前,先进行判断
with Query1 do
begin
Close;
Sql.Clear;
Sql.Add('select * from table2 where Id=:Id');
parambyname('Id').AsString:=Edit1.Text;
Open;
if Recordcount>0 then
begin
Messagedlg('记录重复!',mtwarning,[mbOK],0);
Exit;
end;
end;
在插入之前,先进行判断
with Query1 do
begin
Close;
Sql.Clear;
Sql.Add('select * from table2 where Id=:Id');
parambyname('Id').AsString:=Edit1.Text;
Open;
if Recordcount>0 then
begin
Messagedlg('记录重复!',mtwarning,[mbOK],0);
Exit;
end;
end;
解决方案 »
- delphi 读取类ini文件
- 求用WebBrowser来提取网页中参数的方法。(查过以往的贴子,没有类似的贴子)
- 为什么会说sql语句结尾缺少分号!急
- 3层结构ClientDataSet1.CommandText的动态sql的写法???
- 请yczyk有鬼进来接分!感谢你的帮忙!
- 数据集(TClientData)与数据提供者(TDataSetProvider)的问题(主要是问题能不能被解决,分数是多得很)
- 请问如何使用字符串作为分隔符?然后用ExactStrings
- 简单文件拷贝的奇怪现象,求助
- 哪有较好的DELPHI入门书?请告诉我谢谢
- 请问各位大侠 有没有类似于DBCtrlGrid的控件
- 我用的ADO出了错???
- 数据库中,我想把 select 执行的查询结果传送到变量,该如何处理?
SQL.Add(
'WHILE NOT EXISTS (SELECT * FROM Table2 WHERE id = :id)
+ ' INSERT INTO Table2 (id, name) '
+ ' VALUES (:id, :name)');
...