Увеличьте скорость множественных вставок в Access DB из VBA Dictionary - PullRequest
Новая
       10

Увеличьте скорость множественных вставок в Access DB из VBA Dictionary

0 голосов
/ 02 января 2019

Я пытаюсь взять словарь VBA и либо:

  • Вставить новую строку в базу данных, если она не существует
  • Обновить строку, если она

Хотя мой текущий код работает для этого, он работает очень медленно для тысяч записей, которые мне может потребоваться обновить, и другие решения, которые я нашел на этом сайте, не достигают того, чего я добиваюсь.Может ли кто-нибудь помочь мне достичь этого?Мой код ниже: 

Sub UpdateDatabase(dict As Object)
Dim Conn As Object, StrSQL As String, Rs As Object
Dim hmm As ADODB.Recordset

Set Conn = CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.ACE.OLEDB.12.0"
Conn.Open "C:\XXXX\cfrv2.accdb" 

dictCount = dict.Count
counter = 0
For Each varKey In dict.Keys()
    Application.StatusBar = Str(counter) & "/" & Str(dictCount)
    counter = counter + 1
    StrSQL = "SELECT * FROM `All SAMs Backlog` WHERE [LOCID] = '" & varKey & "'"

    Set hmm = Conn.Execute(StrSQL)
    If hmm.BOF And hmm.EOF Then
        StrSQL = "INSERT INTO `ALL SAMs Backlog` ([SAM], [LOCID], [RTC Date], [CFR Status], [CFR Completed Date], [CFR On Hold Reason], [MDU], [ICWB Issue], [Obsolete]) VALUES (dict.Item(varKey)(0), '" & varKey & "', '20/12/2018', '" & dict.Item(varKey)(1) & "', '02/01/2019', '" & dict.Item(varKey)(2) & "' , '" & dict.Item(varKey)(3) & "' , '" &dict.Item(varKey)(4) & "' , '" & dict.Item(varKey)(5) & "')"
        Conn.Execute (StrSQL)
    Else
        'Update the LOC in the table
        StrSQL = "UPDATE `All SAMs Backlog` SET ([CFR Status] = '" & dict.Item(varKey)(1) & "', [CFR On Hold Reason] = '" & dict.Item(varKey)(2) & "', [MDU] = '" & dict.Item(varKey)(3) & "', [ICWB Issue] = '" & dict.Item(varKey)(4) & "', [Obsolete] = '" & dict.Item(varKey)(5) & "')"
        Conn.Execute (StrSQL)
    End If
Next

Conn.Close
End Sub

Любая помощь приветствуется.

1 Ответ

0 голосов
/ 02 января 2019

Или:

Запишите содержимое словаря во временную таблицу, затем выполните запрос, как описано здесь:

Обновить или вставить данные в таблицу

или

Откройте [All SAMs Backlog] как набор записей, зациклите словарь в , добавьте или , отредактируйте записи, как необходимо, затем закройте набор записей.

...