五万行excel 数据导入ACCESS，需要半小时，如何提速？

fzkoko

我也学习了、

沉默的流星

如我迟钝:您好！真的没看懂您发的全部东西，我也没您的那方面的资料，您能发给我一点这样的资料吗？疑问：如果工作表中有某行的两项或者多项，与数据库中某行的两项或者多项，相同时，就不添加到数据库，其它就添加，比如您的“姓名”和“手机” ，这两项一样，就不添加。我认为要在SQL中用到AND，但不知道在哪里添加？如何添加？

zhaogang1960

沉默的流星 发表于 2013-4-10 00:28
如我迟钝:您好！真的没看懂您发的全部东西，我也没您的那方面的资料，您能发给我一点这样的资料吗？疑问：如 ...

请上传附件，并说明要求
数据库中数据、工作表中数据均没有空值，SQL语句速度快些，否则就慢些，写法不太相同，请说明这些情况

沉默的流星

您的原样
SQL = "select a.* from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) _
        & "] a  left join 通讯录 b on a.姓名=b.姓名 where b.姓名 is null"
昨晚查了好久LEFT join，没看懂，其实您以前回答过这样的问题，就是on的后面添加两个，或者更多的"="，但是运行出错，比如：
SQL = "select a.* from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) _
        & "] a  left join 通讯录 b on a.姓名=b.姓名 and a.手机=b.手机 where b.姓名 is null"

沉默的流星

添加附件，请老师指点

zhaogang1960

沉默的流星 发表于 2013-4-10 17:33
添加附件，请老师指点

你的附件与程序无关，继续使用上面的附件，改为on a.姓名=b.姓名 and a.手机=b.手机 where b.姓名 is null"没有问题：

1. Sub 插入数据不提示是否有重复()
   
2.     Dim tt
   
3.     tt = Timer
   
4.     Dim cnn As Object, SQL$
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\通讯录.mdb"
   
7.         SQL = "insert into 通讯录 select a.* from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) _
   
8.         & "] a  left join 通讯录 b on a.姓名=b.姓名 and a.手机=b.手机 where b.姓名 is null"
   
9.         cnn.Execute SQL
   
10.         MsgBox "数据已经添加到数据库！用时" & Timer - tt & "秒", vbInformation
    
11.     cnn.Close
    
12.     Set cnn = Nothing
    
13. End Sub
    

复制代码

zhaogang1960

请看附件
工作表数据上传Access.rar (196.45 KB, 下载次数: 141)

2013-4-10 18:01 上传

点击文件名下载附件

沉默的流星

老师：
      您加入的 “and a.手机=b.手机”，在您的第二个模块《sub 插入数据不提示是否有重复》可以使用，但是在第一个模块《SUB插入数据提示》，如何加入 “and a.手机=b.手机”呢
昨晚我查询很多这个加AND的问题，其实您以前回答过，在http://club.excelhome.net/forum.php?mod=viewthread&tid=714177，但是看了两个多小时，我还是没看懂，您能不能在“插入数据提示”中，加上 “and a.手机=b.手机”，我想学习，非常感谢！

沉默的流星

zhaogang1960 发表于 2013-4-10 18:01
请看附件

老师：
      您加入的 “and a.手机=b.手机”，在您的第二个模块《sub 插入数据不提示是否有重复》可以使用，但是在第一个模块《SUB插入数据提示》，如何加入 “and a.手机=b.手机”呢
昨晚我查询很多这个加AND的问题，其实您以前回答过，在http://club.excelhome.net/forum.php?mod=viewthread&tid=714177，但是看了两个多小时，我还是没看懂，您能不能在“插入数据提示”中，加上 “and a.手机=b.手机”，我想学习，非常感谢！

zhaogang1960

沉默的流星 发表于 2013-4-10 19:36
老师：
      您加入的 “and a.手机=b.手机”，在您的第二个模块《sub 插入数据不提示是否有重复》可以 ...

1. Sub 插入数据()
   
2.     Dim tt
   
3.     tt = Timer
   
4.     Dim cnn As Object, rs As Object, SQL$
   
5.     Set cnn = CreateObject("adodb.connection")
   
6.     Set rs = CreateObject("adodb.recordset")
   
7.     cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\通讯录.mdb"
   
8.     SQL = "select a.* from [Excel 8.0;Database=" & ThisWorkbook.FullName & "].[" & ActiveSheet.Name & "$" & [a1].CurrentRegion.Address(0, 0) _
   
9.         & "] a  left join 通讯录 b on a.姓名=b.姓名 and a.手机=b.手机  where b.姓名 is null"
   
10.     rs.Open SQL, cnn, 1, 3
    
11.     If rs.RecordCount Then
    
12.         SQL = "insert into 通讯录 " & SQL
    
13.         cnn.Execute SQL
    
14.         MsgBox rs.RecordCount & "行数据已经添加到数据库！用时" & Timer - tt & "秒", vbInformation
    
15.     Else
    
16.          MsgBox "工作表的数据数据库中已经存在。", vbInformation
    
17.     End If
    
18.     rs.Close
    
19.     cnn.Close
    
20.     Set rs = Nothing
    
21.     Set cnn = Nothing
    
22. End Sub
    

复制代码