如何向数据库中导入不重复的数据

FontEnd 2023-11-30 11:41:08  49906

分类专栏：资讯

最近遇到这样一个问题，如下图所示，有如下两个表

现在需要将a表中，a表与b表"姓名"与"类别"两者都不一样的记录插入b表，效果图如下：

那么怎么做呢？话不多说，我们来看看代码：

Sub test()
Dim arr As New BetterArray
SQL = "insert into [b$] select distinct a.* from [a$] a left join [b$] b on a.姓名=b.姓名 and a.类别=b.类别 where b.姓名 is null"
arr.FromSQL ThisWorkbook.FullName, SQL
End Sub

本题采用了BetterArray执行SQL语句，没有该类模块的可以采用ADO代替

insert into 
  [b$] 
select distinct 
  a.* 
from 
  [a$] a 
left join
   [b$] b 
on 
  a.姓名=b.姓名 
  and 
  a.类别=b.类别 
where 
  b.姓名 is null

第1-2行：插入数据到b表

第3-4行：选择a表去重后的所有数据

第5-12行：数据来自a表左连接b表，采用两表的姓名和类别都相等则连接的方式
第13-14行：取连接后b表为空的项（此条件是关键，实现查询b表中没有，而a表中有的数据项）

运行后效果如下：

顺序不一致是因为distinct会让数据按第一列排序，不影响数据库的结果

网站声明：如果转载，请联系本站管理员。否则一切后果自行承担。

本文链接：https://www.xckfsq.com/news/show.html?id=29223

赞同 0

评论 0 条

如何向数据库中导入不重复的数据

相关文章

关注我们