三种连接SQL数据库方法的速度为何天壤之别？

xiaopei816

1：VBA+SQL 无源连接   返回数据总时间约7.4秒
2：VBA+SQL 有源连接   返回数据总时间不到7.3秒
3：VBA+Ms Query 有源连接  返回数据总时间不到1秒
4：VBA+SQL无源连接，分别建立连接，然后再返回数据，共3.4秒
请求路过朋友帮看看分析分析，为什么速度存在天壤之别？我想用VBA+SQL无源连接方式，可是速度太慢。

xiaopei816

'方法1
Sub ConnectSQL()
    Dim StartTime
    StartTime = Timer
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rsString As String
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.ConnectionString = "Driver={sql server};server=peksapp04;uid=;pwd=;database=sanofi pasteur production;AutoTranslate=False"
    conn.Open
    rsString = "select No_ as Code,Name as Name_cn, [name 2] as Name_en from [Sanofi Pasteur$Vendor] where No_ like 'V-%' order by No_"
    rs.Open rsString, conn, 1, adLockReadOnly
    If rs.RecordCount > 0 Then
    '复制字段名
        For i = 1 To rs.Fields.Count
            Cells(1, i) = rs.Fields(i - 1).Name
        Next i
        
        '复制全部数据
        Range("A2").CopyFromRecordset rs
        '设置工作表格式
    End If
    '关闭记录集及数据库连接，并释放变量
    rs.Close
    conn.Close
    Set rs = Nothing
    Set cnn = Nothing
    MsgBox Timer - StartTime
End Sub

'方法2
Sub ConnectSQL2()'用此方法连接数据库前先需在在本机进行DSN数据源设置 此处设为"na”
    Dim StartTime
    StartTime = Timer
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim rsString As String
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.ConnectionString = "DSN=na;uid=;pwd=;database=sanofi pasteur production;autotranslate=false"
    conn.Open
    rsString = "select No_ as Code,Name as Name_cn, [name 2] as Name_en from [Sanofi Pasteur$Vendor] where No_ like 'V-%' order by No_"
    rs.Open rsString, conn, 3, adLockReadOnly

    If rs.RecordCount > 0 Then
    '复制字段名
        For i = 1 To rs.Fields.Count
            Cells(1, i) = rs.Fields(i - 1).Name
        Next i
        
        '复制全部数据
        Range("A2").CopyFromRecordset rs
        '设置工作表格式
        
    End If
    '关闭记录集及数据库连接，并释放变量
    rs.Close
    conn.Close
    Set rs = Nothing
    Set cnn = Nothing
    MsgBox Timer - StartTime
End Sub

'方法3
Sub ConnectSQL3() '用此方法连接数据库前先需在在本机进行DSN数据源设置，然后在EXCEL中导入外部数据，选择设置好的数据源，然后进入MS QUERY中设置要返回的字段及条件。
    StartTime = Timer
    Dim rng As Range
    Set rng = Sheet4.Range("a4")
    rng.QueryTable.Refresh BackgroundQuery:=False
    Set rng = Nothing
    MsgBox Timer - StartTime
End Sub
'方法4
将方法1分拆二部分，先建立连接，再返回数据，将二次的时间相加得到总的返回数据时间

feng16888

自问，自答啊，不错，呵呵呵呵呵呵好

xiaopei816

我是把代码放出来，让大家看看，为什么速度区别这么大？

谢谢大家了！

xiaopei816

请见附件，大家快来帮我看看是为什么

三种连接SQL数据库方法的速度为何天壤之别？

xiaopei816

见附件
三种连接SQL数据库方法的速度为何天壤之别？

YincyHe

额 怎么没有人回答呢？？？？？我也想知道，最近做了一个特别慢，想要解决

yewar

菜鸟路过。顶一下{:soso_e129:}