delphi 通过A表批量更改B表的内容

通过Excel导入内容到表A，并显示在dbgrid中，点击批量修改按钮，通过导入表A的内容修改表B。现在有一个问题，导入的这一批内容，如果在表B中不存在，则插入，如果在表B中存在，则更新，如何实现？

---

引用

--1、插入：
insert into B
select 字段1,字段2,。。。。。。 from A
where not exists(select 1 from B where A.字段1=B.字段1 and A.字段2=B.字段2。。。。。。)

--2、更新：
update B
set B.字段1 = A.字段1, B.字段2 = A.字段2,。。。。。。
from A
where A.字段1 = B.字段1 and A.字段2 = B.字段2。。。。。。

如果这批名单中，同时存在插入和更新操作呢？是不是要添加判断条件？一个button按钮可以同时实现插入更新两种混合名单的操作吗？

---

1、我写的是 SQL 语句，你可以写成存储过程

2、你点击 Button1，用 AdoQuery1 或者 ADOStoredProc1 执行这个存储过程，应该就是对的，你在前台

不用写条件，我在 SQL 语句中，已经处理了