在 MS Access 中合并类似日期

Question

我是一名飞行员，一天要飞行多段航程。我用来记录航班的软件会生成一个 csv 文件并分别列出每条航段。我将 csv 文件导入到 ms access 中的表 1 中。我想将同一天的所有航班合并到新表上的一条记录中。我的问题是组合路线并添加时间。

表 1

   Date       Plane     From     To     Time
2009-10-13    111WS     CHO      LGA    120
2009-10-13    111WS     LGA      ITH    100
2009-10-13    111WS     ITH      LGA     90
2009-10-13    111WS     LGA      BOS    110

表 2

   Date       Plane          Route            Time
2009-10-13    111WS    CHO-LGA-ITH-LGA-BOS     420

我想使用 VBA 代码来完成此操作，但我已经 12 年没有做过任何编程了，不幸的是没有时间重新学习。我认为代码不必太复杂，看起来很简单。我只是不知道该怎么做。我希望有人能帮助我。提前致谢。

笔记： 我正在使用 MS Access 97（希望这不是问题）/ 日期字段是一个字符串，而不是日期/ 时间以分钟为单位，并且可以保持这种状态/ 表1/中的记录通常不会超过80条 一天内可能有一到八个航班/

Answer 1

创建总计查询，引入表格，并包含日期和时间作为列。总计行中的日期列应设置为Group By，时间应设置为Sum。您还需要另一列来获取路线中的最终条目，因此请将 To 列也放入网格中，并将该列的 Totals 行设置为 Last。

要获取路线的其余部分，您需要使用如下组合函数：

返回子记录值的串联列表
http://www.mvps.org/access/modules/mdl0004.htm

这会将 FROM 列合并为单个值，您可以将其作为另一列包含在输出中。将此列的总计行设置为表达式。

要获取完整路线，请将连接的 FROM 列与 LAST TO 列组合起来。

请注意，您不需要立即构建整个查询。单独构建这三个部分（总时间、串联路线、结束目的地）（在其自己的查询中），并确保每个部分单独工作，然后将它们组合成单个查询。

Answer 2

添加模块

Public Function ConcatField(FieldName As String, TableName As String, Where As String, Optional Delimeter = "-", Optional OrderBy = "") As String
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT " & FieldName & " FROM " & TableName & " WHERE " & Where & IIf(OrderBy > "", " ORDER BY " & OrderBy, ""))
    ConcatField = DLookup("From", "RTE", Where)
    While Not rs.EOF
        ConcatField = ConcatField + IIf(ConcatField = "", "", Delimeter) + rs.Fields(0)
        rs.MoveNext
    Wend
    rs.Close
    Set rs = Nothing
End Function

并运行查询

在我的上工作过

SELECT rte.Date, rte.Plane, ConcatField("to","rte","Date='" & [Date] & "' AND Plane='" & [Plane] & "'") AS Expr1, Sum(rte.Time) AS SumOfTime
FROM rte
GROUP BY rte.Date, rte.Plane, ConcatField("to","rte","Date='" & [Date] & "' AND Plane='" & [Plane] & "'");
enter code here

Answer 3

与 ACE (Access 2007) 不同，Jet 3.51 引擎 (Access97) 没有多值类型。 SQL 语言（包括 Access 数据库引擎自己的专有 SQL）没有“连接”函数，因为这会违反需要标量类型的第一范式 (1NF)。所以这不适合 SQL 查询。在我看来，这更像是一份报告的候选人。

说到 1NF，考虑到一天内可能两次飞往同一目的地，您的表缺少关系键。听起来您需要将输入为“文本”的单个“日期”列替换为一对表示周期的 DATETIME 值，以及所需的“顺序主键”，例如 CHECK 约束以防止周期重叠。时态数据库绝对不简单！

Answer 4

感谢您的所有回复。我使用了“THEn”的答案，但我必须改变一些东西（希望这不是问题）。我只需要按日期分组的航班，因此我取出按飞机分组，并只记录当天第一段航班的第一架飞机。另外，我刚刚发现我的软件以相反的顺序导出 csv 文件，因此我稍微更改了模块以解决此问题。这就是导入的数据的样子（我以 CHO 开始和结束）：

  Date       Plane     From     To     Time
2009-10-14    111WS     LGA      CHO    120
2009-10-14    111WS     BOS      LGA    110
2009-10-13    111WS     LGA      BOS    110
2009-10-13    111WS     ITH      LGA     90
2009-10-13    111WS     LGA      ITH    100
2009-10-13    111WS     CHO      LGA    120

这是模块：

Public Function ConcatField(FieldName As String, TableName As String, Where As String, Optional Delimeter = "-") As String

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT " & FieldName & " FROM " & TableName & " WHERE " & Where)
rs.MoveLast
While Not rs.BOF
    ConcatField = ConcatField + IIf(ConcatField = "", "", Delimeter) + rs.Fields(0)
    rs.MovePrevious
Wend
ConcatField = ConcatField + "-" + DLookup("To", "rte", Where)
rs.Close
Set rs = Nothing
End Function

这是查询：

SELECT rte.Date, First(rte,plane), ConcatField("From","rte","Date='" & [Date] & "'") AS Expr1, Sum(rte.time) AS [Total Time]
FROM rte
GROUP BY rte.Date;

这会导致问题，因为我在 openrecordset 行中使用名为“From”的字段，我尝试过将字段重命名为其他名称，效果非常好。不过，我希望保留字段名称的原样。当我在 openrecordset 行中使用字段名称“To”时，它起作用了，但后来我遇到了数据顺序相反的问题。所以我正在寻找任何建议，但我想保持字段名称相同，并且如果可能的话，我想保持表的顺序相反。再次感谢你们。