有人可以帮我减少以下查询的查询运行时间吗？如果它涉及VBA，那么我只需要更快地得到正确的结果。
UPDATE A_Ticket SET
I_S1_O = DCount("*","W_Data","[Priority] = 'S1' and [Type] <> 'R' and [A_Group] <> '1' and [C_Date]< Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
I_S1_R = DCount("*","W_Data","[Priority] = 'S1' and [Type] <> 'R' and [A_Group] <> '1' and [C_Date]>= Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
I_S1_Re = DCount("*","W_Data","[Priority] = 'S1' and [Type] <> 'R' and [R_Group] <> '1' and [R_Group] is not NULL and [Product]='" & [Product_Name] & "'"),
I_S2_O = DCount("*","W_Data","[Priority] = 'S2' and [Type] <> 'R' and [A_Group] <> '1' and [C_Date]< Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
I_S2_R = DCount("*","W_Data","[Priority] = 'S2' and [Type] <> 'R' and [A_Group] <> '1' and [C_Date]>= Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
I_S2_Re = DCount("*","W_Data","[Priority] = 'S2' and [Type] <> 'R' and [R_Group] <> '1' and [R_Group] is not NULL and [Product]='" & [Product_Name] & "'"),
I_S3_O = DCount("*","W_Data","[Priority] = 'S3' and [Type] <> 'R' and [A_Group] <> '1' and [C_Date]< Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
I_S3_R = DCount("*","W_Data","[Priority] = 'S3' and [Type] <> 'R' and [A_Group] <> '1' and [C_Date]>= Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
I_S3_Re = DCount("*","W_Data","[Priority] = 'S3' and [Type] <> 'R' and [R_Group] <> '1' and [R_Group] is not NULL and [Product]='" & [Product_Name] & "'"),
I_S4_O = DCount("*","W_Data","[Priority] = 'S4' and [Type] <> 'R' and [A_Group] <> '1' and [C_Date]< Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
I_S4_R = DCount("*","W_Data","[Priority] = 'S4' and [Type] <> 'R' and [A_Group] <> '1' and [C_Date]>= Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
I_S4_Re = DCount("*","W_Data","[Priority] = 'S4' and [Type] <> 'R' and [R_Group] <> '1' and [R_Group] is not NULL and [Product]='" & [Product_Name] & "'"),
SR_I_S1_Open = DCount("*","W_Data","[Priority] = 'S1' and [Type] = 'R' and [A_Group] <> '1' and [C_Date]< Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
SR_I_S1_Received = DCount("*","W_Data","[Priority] = 'S1' and [Type] = 'R' and [A_Group] <> '1' and [C_Date]>= Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
SR_I_S1_Resolved = DCount("*","W_Data","[Priority] = 'S1' and [Type] = 'R' and [R_Group] <> '1' and [R_Group] is not NULL and [Product]='" & [Product_Name] & "'"),
S_S2_O = DCount("*","W_Data","[Priority] = 'S2' and [Type] = 'R' and [A_Group] <> '1' and [C_Date]< Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
S_S2_R = DCount("*","W_Data","[Priority] = 'S2' and [Type] = 'R' and [A_Group] <> '1' and [C_Date]>= Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
S_S2_Re = DCount("*","W_Data","[Priority] = 'S2' and [Type] = 'R' and [R_Group] <> '1' and [R_Group] is not NULL and [Product]='" & [Product_Name] & "'"),
S_S3_O = DCount("*","W_Data","[Priority] = 'S3' and [Type] = 'R' and [A_Group] <> '1' and [C_Date]< Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
S_S3_R = DCount("*","W_Data","[Priority] = 'S3' and [Type] = 'R' and [A_Group] <> '1' and [C_Date]>= Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
S_S3_Re = DCount("*","W_Data","[Priority] = 'S3' and [Type] = 'R' and [R_Group] <> '1' and [R_Group] is not NULL and [Product]='" & [Product_Name] & "'"),
S_S4_O = DCount("*","W_Data","[Priority] = 'S4' and [Type] = 'R' and [A_Group] <> '1' and [C_Date]< Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
S_S4_R = DCount("*","W_Data","[Priority] = 'S4' and [Type] = 'R' and [A_Group] <> '1' and [C_Date]>= Forms!Home!Txt_StDate and [Product]='" & [Product_Name] & "'"),
S_S4_Re = DCount("*","W_Data","[Priority] = 'S4' and [Type] = 'R' and [R_Group] <> '1' and [R_Group] is not NULL and [Product]='" & [Product_Name] & "'");
答案 0 :(得分：0)
一种可能加快速度的方法是创建一个名为[create_W_Data_summary]的已保存查询来执行大部分COUNT并将它们写入临时表：
PARAMETERS prm_StDate DateTime;
SELECT
[Product],
[Priority],
[Type] = 'R' AS [is_Type_R],
[A_Group] <> '1' AS [A_Group_is_not_1],
[R_Group] <> '1' AS [R_Group_is_not_1],
[C_Date] < [prm_StDate] AS [earlier_than_StDate],
COUNT(*) AS row_count
INTO [W_Data_summary]
FROM [W_Data]
GROUP BY
[Product],
[Priority],
[Type] = 'R',
[A_Group] <> '1',
[R_Group] <> '1',
[C_Date] < [prm_StDate]
生成一个名为[W_Data_summary]的表，其中包含
等行Product Priority is_Type_R A_Group_is_not_1 R_Group_is_not_1 earlier_than_StDate row_count
-------- -------- --------- ---------------- ---------------- ------------------- ---------
Product1 S1 -1 -1 1
Product1 S1 0 -1 -1 1
Product1 S1 0 -1 -1 -1 2
Product1 S1 0 -1 -1 0 1
然后您的UPDATE查询可以总计相应的[row_count]值，如此
UPDATE A_Ticket SET
I_S1_O = DSum("row_count","W_Data_summary","[Priority] = 'S1' AND (NOT is_Type_R) AND (A_Group_is_not_1) AND (earlier_than_StDate) AND [Product]='" & [Product_Name] & "'"),
I_S1_R = DSum("row_count","W_Data_summary","[Priority] = 'S1' AND (NOT is_Type_R) AND (A_Group_is_not_1) AND (NOT earlier_than_StDate) AND [Product]='" & [Product_Name] & "'"),
I_S1_Re = DSum("row_count","W_Data_summary","[Priority] = 'S1' AND (NOT is_Type_R) AND (R_Group_is_not_1) AND [Product]='" & [Product_Name] & "'")
如果将该查询保存为[update_A_Ticket]，那么您的VBA代码将类似于
Dim cdb As DAO.Database, qdf As DAO.QueryDef
On Error Resume Next
DoCmd.DeleteObject acTable, "W_Data_summary"
On Error GoTo 0
Set cdb = CurrentDb
Set qdf = cdb.QueryDefs("create_W_Data_summary")
qdf!prm_StDate = CDate(Forms!Home!Txt_StDate)
qdf.Execute
Set qdf = cdb.QueryDefs("update_A_Ticket")
qdf.Execute
Set qdf = Nothing
Set cdb = Nothing
您的UPDATE查询仍将为[A_Ticket]中的每一行执行24个域聚合操作，但它会在[W_Data_summary]表上执行它们，这可能会比[W_Data]表的行少得多。
以上假设[W_Data]是Access表。如果[W_Data]是SQL Server的ODBC链接表，则该过程略有不同：
创建名为[W_Data_rollup]
的SQL Server存储过程CREATE PROCEDURE [dbo].[W_Data_rollup]
@StDate date
AS
BEGIN
SET NOCOUNT ON;
SELECT
[Product],
[Priority],
is_Type_R,
A_Group_is_not_1,
R_Group_is_not_1,
earlier_than_StDate,
COUNT(*) AS row_count
FROM
(
SELECT
[Product],
[Priority],
CASE
WHEN [Type] IS NULL THEN NULL
WHEN [Type] = 'R' THEN -1
ELSE 0
END AS is_Type_R,
CASE
WHEN [A_Group] IS NULL THEN NULL
WHEN [A_Group] = '1' THEN 0
ELSE -1
END AS A_Group_is_not_1,
CASE
WHEN [R_Group] IS NULL THEN NULL
WHEN [R_Group] = '1' THEN 0
ELSE -1
END AS R_Group_is_not_1,
CASE
WHEN [C_Date] IS NULL THEN NULL
WHEN [C_Date] < @StDate THEN -1
ELSE 0
END AS earlier_than_StDate
FROM dbo.W_Data
) AS whatever
GROUP BY
[Product],
[Priority],
is_Type_R,
A_Group_is_not_1,
R_Group_is_not_1,
earlier_than_StDate
END
GO
在Access名为[get_W_Data_rollup]
的Access中创建一个已保存的传递查询EXEC dbo.W_Data_rollup '2013-11-11'
（请注意，初始日期值只是一个占位符。它将由下面的VBA代码更新。）
生成表查询[create_W_Data_summary]只是变成
SELECT *
INTO W_Data_summary
FROM get_W_Data_rollup;
更新查询[update_A_Ticket]仍然像以前一样
UPDATE A_Ticket SET
I_S1_O = DSum("row_count","W_Data_summary","[Priority] = 'S1' AND (NOT is_Type_R) AND (A_Group_is_not_1) AND (earlier_than_StDate) AND [Product]='" & [Product_Name] & "'"),
I_S1_R = DSum("row_count","W_Data_summary","[Priority] = 'S1' AND (NOT is_Type_R) AND (A_Group_is_not_1) AND (NOT earlier_than_StDate) AND [Product]='" & [Product_Name] & "'"),
I_S1_Re = DSum("row_count","W_Data_summary","[Priority] = 'S1' AND (NOT is_Type_R) AND (R_Group_is_not_1) AND [Product]='" & [Product_Name] & "'");
和VBA代码到＆＃34;让它去＃34;是
Dim cdb As DAO.Database, qdf As DAO.QueryDef
On Error Resume Next
DoCmd.DeleteObject acTable, "W_Data_summary"
On Error GoTo 0
Set cdb = CurrentDb
Set qdf = cdb.QueryDefs("get_W_Data_rollup")
qdf.SQL = "EXEC dbo.W_Data_rollup '" & Format(CDate(Forms!Home!Txt_StDate), "yyyy-mm-dd") & "'"
Set qdf = cdb.QueryDefs("create_W_Data_summary")
qdf.Execute
Set qdf = cdb.QueryDefs("update_A_Ticket")
qdf.Execute
Set qdf = Nothing
Set cdb = Nothing