在 VBA、DoEvents 中处理来自 Access 的 "big" 记录集

Question

我的目标是计算来自我们的呼叫管理器的每个呼叫的 phone 费用。该脚本适用于小 tables (<1k)，但会卡在实际数据上。

我的调用 table 有 160k 行。 q_get_called 结果 6 列。该脚本每次都运行良好，直到第 7431 行。我尝试了较小的 tables，它也完成了他的工作。如果我不使用 DoEvents 函数，Access 将不再响应，但脚本也会运行仅在 30 分钟后到达第 8000 行左右。

一般问题：vba 中是否有一些重要的东西，比如在每次循环后将变量设置回 0，来处理这样的数据大小？

我已经将查询减少到需要的那 4 列。 Select 案例陈述可能更好？还是有比我的 insertSQL 方法更好的方法将成本更新到 call_table？

如果我在几分钟后暂停脚本，它会卡在 DoEvents() 函数处。

Set Datenbank = CurrentDb
Set rs_calls = Datenbank.OpenRecordset("q_get_called", dbOpenDynaset)
    'Loop through all call-data to calculate cost
    Do While Not rs_calls.EOF
    callID = rs_calls!globalCallID_CallId
    internal = rs_calls!IfInternal
    inside = rs_calls!FromInside
    If inside = 0 Or internal = -1 Then 'cost is Zero if call coming from outside or is internal
        cost = 0
    Else 'else proceed calculation
        callingNr = rs_calls!callingPartyNumber
        calledNr = rs_calls!finalCalledPartyNumber
        duration = rs_calls!duration

        If Left(calledNr, 3) Like "0??" Then 'domestic
            multiplier = 1
        ElseIf Left(calledNr, 3) Like "00?" Then multiplier = 5 'national
        ElseIf Left(calledNr, 3) Like "000" Then multiplier = 10 'international
        Else: multiplier = 0
        End If
        'Select Case Left(calledNr, 3) 'Maybe Select case is smarter?
        '    Case "0??"
        '        multiplier = 1
        '    Case "00?"
        '        multiplier = 5
        '    Case "000"
        '        multiplier = 10
        '    Case Else
        '        multiplier = 0
        'End Select
        cost = (duration / 60) * multiplier  
    End If
    insertSQL = "UPDATE tbl_cdr SET cost = " & cost & " WHERE globalCallID_callID = " & callID
    Datenbank.Execute (insertSQL) 'set cost column
    rs_calls.MoveNext
    subForm = DoEvents() 'pass control to OS
Loop

Answer 1

因此，作为解决方案，通过更新查询直接在访问中执行所有操作目前工作正常。

UPDATE tbl_cdr SET tbl_cdr.cost = IIf(Left([tbl_cdr].[calledNumber],3)="000",
([tbl_cdr].[duration]/60)*10, IIf(Left([tbl_cdr].[calledNumber],2)="00",
([tbl_cdr].[duration]/60)*5, IIf (Left([tbl_cdr].[calledNumber],1)="0",
[tbl_cdr].[duration]/60,0)));

不到 1 分钟就搞定了。不过，我的计算会变得更加复杂。就像用 callingNumber 分隔调用一样，并根据它们使用不同的乘数常数。

编辑：我现在实现了更多的逻辑并努力在一个 SQL 更新语句

中完成所有事情

是否可以像这样向更新语句输入子查询：

UPDATE tbl_cdr SET [tbl_cdr].[cost]=
 IIf([tbl_cdr].[fromInside]=-1,
  IIf(Left([tbl_cdr].[fncpn],3)="000",
   ([tbl_cdr].[duration]/60)*
   (SELECT international FROM [tbl_cc] WHERE ccc=Left(cpn,4);),
   IIf(Left([tbl_cdr].[fncpn],2)="00",
    ([tbl_cdr].[duration]/60)*
    (SELECT national FROM [tbl_cost] WHERE ccc=Left(cpn,4);),
     IIf(Left([tbl_cdr].[fncpn],1)="0",
     ([tbl_cdr].[duration]/60)*
     (SELECT domestic FROM [tbl_cost] WHERE ccc=Left(cpn,4);),
     0)
   )
  )
 ,0)
;`

错误日志："Operation must use an updateable query"

-我拥有文件夹的所有权限

-链接表包含主键

或者将此 IIf-clauses 与 SQL 混合使用是不是正确的方法？

因为解决方案可能会针对每个不同的 callingCountry

进行查询

像这样：

UPDATE tbl_cdr AS cdr SET cdr.cost = cdr.duration* (SELECT cc.international FROM tbl_costConstant AS cc WHERE cc.callingCountryCode = 1760) WHERE cdr.finalCalledPartyNumber Like "000%" AND cdr.callingPartyNumber Like "1760%";

虽然这似乎是一个很大的解决方法。

在 VBA、DoEvents 中处理来自 Access 的 "big" 记录集

Handle "big" Recordset from Access in VBA, DoEvents

ms-access

vba

loops

recordset