在 Microsoft Access 中连接行

Question

基本思想是我在Access 2007中有一个这种形式的表格：

Company Name |     Address     | Product
Company A      123 Fakestreet    Phone
Company A      123 Fakestreet    Computer
Company A      123 Fakestreet    Car
Company B      456 Fakestreet    Football
Company B      456 Fakestreet    Basketball
Company B      456 Fakestreet    Golf Ball

我希望它是这种形式：

Company Name |     Address     | List of Products
Company A      123 Fakestreet    Phone, Computer, Car
Company B      456 Fakestreet    Football, Basketball, Golf Ball

我尝试使用 Allen Browne 的 ConcatRelated 函数 (http://allenbrowne.com/func-concat.html)，起初它不起作用，因为我忘记启用 VBA 内容。我这样做了，现在 Access 只是一直冻结而没有响应。我使用了下面的查询（表的名称是地址）。我省略了地址列只是为了看看我是否可以让它工作，然后我打算把它放回去。：

SELECT Company_Name, ConcatRelated("Product","Addresses")
FROM Addresses;

有没有人发现它有什么问题？我唯一能想到的是我的表的大小（约 290,000 行）可能会使其太慢，但我已经在表上运行了不同的查询而没有问题。

Answer 1

创建一个模块并添加以下代码：

Function liststuff(company)

    Dim curr As Database
    Dim rs As Recordset
    Dim SQLCmd As String
    Dim productList As String

    Set curr = CurrentDb()

    SQLCmd = "SELECT Product FROM table1 WHERE [Company Name] = """ & company & """"

    Set rs = curr.OpenRecordset(SQLCmd)

    If Not rs.EOF Then
        rs.MoveFirst
    End If

    Do While Not rs.EOF
        productList = productList & rs(0) & ", "
        rs.MoveNext
    Loop

    liststuff = productList

End Function

您可能需要将数据库值更改为您的实际表名和字段名。

在您的查询中使用：

SELECT Table1.[Company Name], Table1.Address, Liststuff([Company Name]) AS [List of Products]
FROM Table1
GROUP BY Table1.[Company Name], Table1.Address;

Answer 2

“我唯一能想到的是我的表的大小（约 290,000 行）可能会使其太慢，但我已经在表上运行了不同的查询而没有问题。” em>

ConcatRelated() 对数据库引擎施加的工作量比其他查询要大得多。本质上，引擎必须运行单独的查询来收集和连接结果集每一行的相关值。

如果您怀疑 290K 行是问题的根源，请使用一个小样本表作为数据源来设计和测试您的查询。让查询处理该小表后，将其数据源切换到大表。

但是我怀疑您还有其他问题。请注意，Browne 先生编写该函数以接受第三个参数 strWhere，而您只为该函数提供了 2 个参数。您似乎要求ConcatRelated() 连接Addresses 表中的所有Product 字段值......并对结果集中的每一行再次进行连接。我不相信那是你真正想要的。

转到“立即”窗口 (Ctrl+g)，然后测试一个表达式，为您提供您想要的单个公司。作为一个疯狂的猜测，也许你需要这样的东西......

? ConcatRelated("Product","Addresses", "[Company Name]='Company A'")

找到合适的 ConcatRelated 表达式后，通过传入当前的 [Company Name] 值来调整查询以使用它。

请注意，如果您的 strWhere 参数包含基于 [Company Name] 字段的条件，则应为该字段编制索引，以便数据库引擎无需执行全表扫描来查找匹配行。