Excel表Left Join SQLServer表效率问题！

jygzcj

Sub CheckTableDataExists()



    On Error GoTo Errhandle

    Dim rngName As Range

    Dim LastRow As Long

    Dim MaxRow As Long

    Dim LR(1 To 16) As Long

    Dim i As Long
    Dim j As Long

    Dim DataArr()

    With Sheet1

        If .FilterMode Then
            .ShowAllData
        End If

        For i = 1 To 16
            LR(i) = .Cells(Rows.Count, i).End(xlUp).Row
        Next

        For i = 1 To 16
            If MaxRow > LR(i) Then
                    MaxRow = MaxRow
                Else
                    MaxRow = LR(i)
            End If
        Next

        If MaxRow < 2 Then Exit Sub


        DataArr = .Range(.Cells(1, 15), .Cells(MaxRow, 15))

        For i = 1 To UBound(DataArr)
            If DataArr(i, 1) = "" Or IsEmpty(DataArr(i, 1)) Then
                MsgBox "此列不允许留空,当前探测有空白，请确认并更改后执行!", vbInformation
                Exit Sub
            End If
            DataArr(i, 1) = Trim(DataArr(i, 1))
        Next

        .Range(.Cells(1, 15), .Cells(MaxRow, 15)).NumberFormatLocal = "@"

        .Cells(1, 15).Resize(UBound(DataArr), 1) = DataArr

        Set rngName = .Range(.Cells(1, 1), .Cells(MaxRow, 16))

    End With

    rngName.Name = "TempRange"

    Dim strFileName As String

    strFileName = ThisWorkbook.FullName

    Dim cnn As Object
    Set cnn = CreateObject("ADODB.Connection")
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFileName & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes"";"

    Dim nSQL As String
    Dim mSQl As String
    Dim nJoin As String

    nSQL = " SELECT A.* ,B.id from [TempRange] A left join "


    mSQl = "[odbc;Driver={SQL Server};UID=consign_user;DataBase=consign;PWD=#202308;Server=10.125.4.33].[CheryReconcileRecord] B"


    nJoin = " on A.对账单号=B.对账单号 and A.采购订单号=B.采购订单号 and A.对账单行项目=B.对账单行项目 where B.id is null"


    Sheet2.Cells.Clear
    Sheet2.Cells(1, 1).CopyFromRecordset (cnn.Execute(nSQL & mSQl & nJoin))




    Exit Sub


Errhandle:


    MsgBox "数据更新出错,未更新成功，请检查数据格式是否正确!", vbInformation




End Sub

jygzcj

当数据库里面数据很多时，我测试的时候有20000多条数据，检测的表有500多条，使用500条的表a left join 20000条的数据 b

fenghuaxue

jygzcj 发表于 2024-9-19 18:33
当数据库里面数据很多时，我测试的时候有20000多条数据，检测的表有500多条，使用500条的表a left join 200 ...

还能这么写的吗，那你实际运行需要多长时间。

fenghuaxue

我有一个方法：
1 你先把sqlserver中数据读取出来，用一个字典类型的变量存起来.
2 用二维数组把sheet1上的数据存起来。
3 循环二维数组，根据需要去处理数据，结果可以存放到一个新的二维数组中。
4 将结果显示到sheet2上。

jygzcj

fenghuaxue 发表于 2024-9-20 09:41
我有一个方法：
1 你先把sqlserver中数据读取出来，用一个字典类型的变量存起来.
2 用二维数组把sheet1上 ...

也是一个思路，用left join 也是可以的，但是数据多速度就慢了。