SQL顺序连接多个工作簿速度的疑问，解释合理加技术分2分

没名字了

lanyuu 发表于 2014-3-12 13:48
通过测试，我的推断是
创建数据连接对象时，先判断是否存在该对象，如果不存在，直接创建，如果存在， ...

部分同意您的观点，至少在单一的Object对象时，似乎有您说的这个过程，但2个或2个以上Object对象时，似乎又只有创建过程，没有注销过程。

lanyuu

没名字了 发表于 2014-3-12 13:33
说来说去，我感觉我们前面说的都错了
看下面的两个实例
Sub 实例1

你说的这个确实是个问题，看样子是否关闭连接不是简单的判断。

没名字了

lanyuu 发表于 2014-3-12 14:03
你说的这个确实是个问题，看样子是否关闭连接不是简单的判断。

是的，至少在这个现象说明，速度的提升，可能不是因为单纯的使用了RS，可能是由于增加了Object对象，改变了系统某些运作的方式。至于这个方式是什么或者是不是我猜测的那样。期待答案。

lanyuu

没名字了 发表于 2014-3-12 14:09
是的，至少在这个现象说明，速度的提升，可能不是因为单纯的使用了RS，可能是由于增加了Object对象，改变 ...

我的判断是增加时间肯定是清空对象时关闭连接造成的，但是什么情况下不需要关闭连接的判断现在还不好说，因为有两个连接对象和存在连接记录集时都会直接清空对象。

HHAAMM

1. Sub 实例2()
   
2. tt = Timer
   
3.     Dim cnn As Object, cnn2 As Object, SQL$, Mypath$, MyName$, arr, brr(1 To 60000, -1 To 11), i&, j&, m&, n&
   
4.     Application.ScreenUpdating = False
   
5.     Mypath = ThisWorkbook.Path & ""
   
6.     MyName = Dir(Mypath & "*.xls")
   
7.     Set cnn2 = CreateObject("ADODB.Connection")
   
8.     cnn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath & MyName
   
9.     Do While MyName <> ""
   
10.         If MyName <> ThisWorkbook.Name Then
    
11.             Set cnn = CreateObject("ADODB.Connection")
    
12.             cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath & MyName
    
13.         End If
    
14.         MyName = Dir()
    
15.     Loop
    
16. MsgBox Timer - tt
    
17. End Sub

复制代码

这样子似乎更快

HHAAMM

赵兄附件中 Sub ADO加数组已知工作表名_2() 过程的循环前加上下面两句
Set cnn2 = CreateObject("ADODB.Connection")
    cnn2.Open "Provi

代码也被加速了

没名字了

HHAAMM 发表于 2014-3-12 14:26
这样子似乎更快

我没有整理顺序，因为怎么让程序更快和这个课题无关，我仅仅是在找赵版老师提出的问题的原因，至于答案我想以我的水平可能不能去深入理解了。两个连接比一个连接速度快很多倍，唯一的区别就是Object对象的增加，似乎这个离原因比较接近。

HHAAMM

没名字了 发表于 2014-3-12 14:35
我没有整理顺序，因为怎么让程序更快和这个课题无关，我仅仅是在找赵版老师提出的问题的原因，至于答案我 ...

不是因为快慢的问题能出现这个帖子吗？？
97楼的帖子是在说，循环中不必一直这么要创建两个对象

HHAAMM

我是说
Set cnn2 = CreateObject("ADODB.Connection")
    cnn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath & MyName
    Do While MyName <> ""
        If MyName <> ThisWorkbook.Name Then
            Set cnn = CreateObject("ADODB.Connection")
            cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath & MyName
        End If
        MyName = Dir()
    Loop
这样
似乎比下面这样
Do While MyName <> ""
        If MyName <> ThisWorkbook.Name Then
            Set cnn = CreateObject("ADODB.Connection")
            cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath & MyName
            Set cnn2 = CreateObject("ADODB.Connection")
            cnn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & Mypath & MyName
        End If
        MyName = Dir()
    Loop

还要稍稍快些

HHAAMM

如果真是这样，大家可以再接着分析原因吗