如何向ACCESS批量导入文件名时跳过重复数据?

Question

如何向ACCESS批量导入文件名时跳过重复数据?
比如表1中已经有一部分数据,再次导入时,用以下语句可能会重复,如何才能跳过重复,只导入不重复的数据?

Private Sub 批量导入_Click()
Dim strFileName2 As String '文件名称
Dim aryFileName() As String '文件名数组
' Dim s As String '文件夹名
Dim I As Integer
strFileName2 = Dir("D:\*.*") '这里改为你的路径！
Do While strFileName2 <> ""
I = I + 1
ReDim aryFileName(I)
aryFileName(I) = strFileName2
CurrentDb.Execute "insert into 表1 (文件名) values('" & strFileName2 & "') "
'保存文件名
strFileName2 = Dir '得到下一个文件名
Loop
Me.Form.Refresh
MsgBox "导入完成，请查看！ "
End Sub

Answer 1

手工调整的话 我是喜欢用
然后用SELECT *　INTO 新表 from ( select 字段1，字段2，。。。。所有字段，count(某个字段) AS JS FROM 表名 group by 字段1，字段2，。。。。所有字段 )

这样新表里就有了不重复的数据 再修改下表结构 删除JS字段 添加自动ID 就好了

程序中 我通常是这样写代码
'下面是一段比较典型的查询语句 如查到有记录就修改记录 没有记录就增加一条记录

DIM SQL AS STRING

Dim r As New ADODB.Recordset
r.Open "select * from s_tab_bm where dm='" & Trim(txtBH) & "'", CN
If Not (r.EOF And r.BOF) Then
SQL = "update s_tab_bm set "
SQL = SQL & " dm='" & Trim(txtBH) & "',"
SQL = SQL & " mc='" & Trim(txtMC) & "'"
SQL = SQL & " where idd=" & r!idd
Else
SQL = "insert into s_tab_bm(dm,mc) values("
SQL = SQL & "'" & Trim(txtBH) & "',"
SQL = SQL & "'" & Trim(txtMC) & "')"
End If
r.Close
CN.Execute SQL