请教excel导入到access时,怎么防止重复数据导入

请问excel导入到access时,如何防止重复数据导入
现在能实现将excel内的数据导入到access数据库中的表1，代码如下：

Dim cn As New ADODB.Connection
Dim strsql As String
cn.Provider = "microsoft.jet.oledb.4.0"
cn.ConnectionString = "data source=" & App.Path & "\tj.mdb"
cn.Open
strsql = "insert into 表1 select * from [excel 5.0;database=" & App.Path & "\统计.xls].[Sheet1$]"
cn.Execute strsql
MsgBox "导入完毕！！"

现在的问题是，导入的时候如何防止重复的数据录入到数据库中？想在导入之前对导入的数据与access表中的数据进行比较，如有重复的数据就不加进去，不重复的数据（即新数据）才加到表中，请问这个该如何弄？代码如何更改？谢谢各位！

------解决方案--------------------
因为你根本就没说明什么是“重复数据”

所以只能猜了，假设表中有一个字段ID，以ID字段重复为准。

VB code

strsql = "insert  into  表1 select * from  [excel 5.0;database=" & App.Path & "\统计.xls].[Sheet1$] where id not in (select id form 表1)"

------解决方案--------------------
其实我觉得你应该从源头来找，既然不要重复的，为什么当初会有重复数据插入？最好设个主键或者约束条件比较好，否则每次导入都要再过滤一遍。

------解决方案--------------------

VB code

Dim cn As New ADODB.Connection 
Dim strsql As String 
cn.Provider = "microsoft.jet.oledb.4.0" 
cn.ConnectionString = "data source=" & App.Path & "\tj.mdb" 
cn.Open 
strsql = "insert  into  表1 select Distinct * from  [excel 5.0;database=" & App.Path & "\统计.xls].[Sheet1$] " 
cn.Execute strsql 
MsgBox "导入完毕！！"

请教excel导入到access时,怎么防止重复数据导入

相关推荐