如何使用 SQL 改进我的经典 VBA 编码？我把循环搞得一团糟

Question

嗯...我是n00b，我知道这一点。这非常简单。

基本上这是我一直在写的代码。

rstSwift.MoveFirst
Do While Not rstSwift.EOF
    If Left(rstSwift!Date, 2) & Mid(rstSwift!Date, 4, 2) & Right(rstSwift!Date, 4) = fromdate Then
        INSERTFUNCTIONHERE
    Else
    End If
    rstSwift.MoveNext
Loop

我最近提出了一个关于 SQL 的问题，似乎它确实对我的问题有很多解决方案...你看，我当前的数据库有大约 +15000 个条目 - 每次我需要查询与一天需要一段时间 - 毕竟，我要求它在整个数据库中执行循环。

现在，我注意到这样做可能有点愚蠢 - 好吧，这是我能想到的唯一方法 - 我的主要问题是：

我可以用“做而不做”代替SQL 查询？就像

NEWTABLEVARIABLE = SELECT * from rstSwift WHERE rstSwift.Date = '20/11/2011';
NEWTABLEVARIABLE.MoveFirst
Do While Not NEWTABLEVARIABLE.EOF
INSERTFUNCTIONHERE
NEWTABLEVARIABLE.MoveNext
Loop

在这个查询的结果上运行代码？它会比我当前的代码更快吗？即使它没有更快 - 它会更慢吗？因为编写单个选择参数似乎比处理 While-Loop 情况容易得多......

Answer 1

目标应该是完全消除循环。

假设您 INSERTFUNCTIONHERE 将列 data_col 增加 1：而不是：

rstSwift.MoveFirst
Do While Not rstSwift.EOF
    If Left(rstSwift!swift_date, 2) & _
          Mid(rstSwift!swift_date, 4, 2) & _
          Right(rstSwift!swift_date, 4) = fromdate Then
        rstSwift!data_col = rstSwift!data_col + 1
        rstSwift.Update
    End If
    rstSwift.MoveNext
Loop

相反，用 SQL 重写整个操作，例如

CREATE PROCEDURE IncrementSwifts
(
 :fromdate DATETIME
)
AS
UPDATE Swifts
   SET data_col = data_col + 1
 WHERE swift_date = :fromdate;

然后在 VBA 中，使用 Command 对象来执行 proc ，使用 Parameter 对象传入 fromdate 值。

Answer 2

是的，您可以在数据库端完成过滤。您将传递打开记录集时指定的查询。像这样的东西：

set rstSwift = connMyDbConnection.Execute("SELECT * from rstSwift WHERE rstSwift.Date = #20/11/2011#")
Do While Not rstSwift.EOF
   INSERTFUNCTIONHERE
   rstSwift.MoveNext
Loop

编辑：
使用 Database.OpenRecordset() 方法时，请使用此语法而不是上面的语法：

set rstSwift = mdb.OpenRecordset("SELECT * from rstSwift WHERE rstSwift.Date = #20/11/2011#")
Do While Not rstSwift.EOF
   INSERTFUNCTIONHERE
   rstSwift.MoveNext
Loop

它可能比您当前使用的更快，具体取决于有多少记录与过滤器匹配。

警告：
如果您修改要基于某种输入动态创建的查询，我提供的示例可能容易受到 SQL 注入攻击。始终确保在运行 SQL 之前清理它。