1

我正在使用 VBA - Access 执行大量插入操作。VBA 代码位于文件“control.accdb”中，对“data.accdb”执行操作过程中很少有表是从 VBA 创建的，很少有这样的。

完成流程的第一阶段后，我手动或从 DBEngine.Compact VBA 代码执行压缩和修复。第二阶段（相同的代码 - 下一次迭代）变得非常非常慢。

这是插入代码：

SQL = "INSERT INTO ExpectedResult " _
  & "( DLID, NumRows, Total, SubjectBlock, NextSubjectBlockSeq ) " _
  & "SELECT INVDL.DLID, 1 AS Expr1, INVDL.Amount, " _
  & "INVDL.SubjectBlock,INVDL.SubjectBlockSeq+1 AS Expr2 " _
  & "FROM INVDL where SubjectBlock > 0;"
cdb.Execute (SQL)
TargetNumRows = 2
Do While TargetNumRows < MaxSubjectBlockSeq + 1
    Set qdf = cdb.QueryDefs("pq_appendToExpectedResult")
    qdf!TargetNumRows = TargetNumRows  '' parameter value
    qdf.Execute
    TargetNumRows = TargetNumRows + 1
    Set qdf = Nothing
Loop

where pq_appendToExpectedResult :

PARAMETERS TargetNumRows Long;
INSERT INTO ExpectedResult _
  ( DLID, NumRows, Total, SubjectBlock, NextSubjectBlockSeq ) _
SELECT INVDL.DLID+1-[TargetNumRows], [TargetNumRows] AS Expr1, _
  [ExpectedResult].[Total]+[INVDL].[Amount] AS NewTotal, _
  INVDL.SubjectBlock, [INVDL].[SubjectBlockSeq]+1 AS Expr2 _
FROM INVDL INNER JOIN ExpectedResult _
   ON (INVDL.SubjectBlock = ExpectedResult.SubjectBlock)  _
   AND (INVDL.SubjectBlockSeq = ExpectedResult.NextSubjectBlockSeq) _
WHERE (((INVDL.SubjectBlockSeq)>=[TargetNumRows])  _
   AND (ExpectedResult.NumRows=[TargetNumRows]-1));

据我所知，INVDL 中的所有索引都保持不变。我删除表 ExpectedResult 并在每个阶段（迭代）之后使用索引重新创建它。其他表 - 不要认为会有任何区别。

4

0 回答 0