违反第一范式可以吗？

Question

我有一个 Access 数据库，需要在一行上显示具有多个一对多关系的数据（例如，它将项目列为“a、b、e、f”，并且我将有多个列像那样）。我知道以这种方式存储数据也是一个坏主意，但考虑到我允许用户过滤其中的几个列，我想不出比违反第一个范式更好的处理数据的方法.

举个例子：假设我有几篇期刊文章，每篇文章都可能报道多种动物和多种蔬菜。用户可以过滤源名称，或者他们可以过滤一种或多种动物和一种或多种蔬菜。输出应该看起来像

Source name....animals...............vegetables
Source 1.......dogs, cats, birds.....carrots, tomatoes
Source 2.......leopards, birds.......tomatoes, zucchini, apples
Source 3.......cats, goldfish........carrots, cucumbers

通常您会有一个单独的表格，其中包含源名称 + 动物：

Source name......animal
Source 1.........dog
Source 1.........cats
Source 1.........birds
Source 2.........leopards

等

还有一张类似的蔬菜表。但考虑到数据需要如何呈现给用户（逗号分隔的列表），以及用户如何过滤数据（他可能会过滤以仅查看包括狗和猫的源，以及带有胡萝卜和西红柿的源），我认为将数据存储为动物和蔬菜的逗号分隔列表是有意义的。使用逗号分隔的列表，当用户选择多种蔬菜和多种动物时，我可以说

WHERE (Vegetables like "*carrots*" and Vegetables like "*tomatoes*") AND (Animals like *dogs*" and Animals like "*cats*")

如果不使用大量 VBA 和多个查询，我想不出一种在 Access 中执行相同类型查询的有效方法。

Answer 1

您始终可以构建一个场景，在其中违反任何规则都是有意义的，因此您标题中问题的答案是肯定的。

但是，这不是其中一种情况。您提出的搜索和表示问题对于大多数一对多关系（或者，至少对于 many 一对多关系）来说是常见的，如果这是违反第一范式的原因那么你不会看到很多规范化的数据库。

正确构建数据库，您不必担心逗号、搜索词相互嵌入以及由于缺少索引而导致搜索缓慢。编写一段可重用的代码来为您执行逗号分隔的汇总，这样您就不会不断重复发明轮子。

Answer 2

我仍然会正确地对此进行规范化 - 然后担心演示文稿。

在 Oracle 中 - 这将通过用户定义的聚合函数来完成。

Answer 3

为什么不构建一个连接表，这样您就可以维持与字段引用完整性的 1:1 关系。否则，您将不得不解析出 1:many 字段值，然后才能获得引用关联，因此一切都可以神奇地工作（呵呵；））

当我发现自己需要违反第一范式时，9:10 的答案是创建一个 Join Table 并构造一些方法来产生预期的效果。

编辑：2012-10-09 9:06AM

• 此设计是为了响应在未知数量的列/字段中显示的未知数量的信息。虽然我的方向是数值，但您可以简单地开发一种 vba 方法来连接信息字段以生成单个数据字段。

表1

gid (Number) <- Table2.id
cid (Number) <- Table3.id
price (Number)

• gid 很多
• cid 很多

crt_CategoryPG

TRANSFORM Sum(Table1.price) AS SumOfprice
SELECT View1.tid, Table1.cid, View1.category
FROM Table2 INNER JOIN (View1 INNER JOIN Table1 ON View1.cid = Table1.cid) ON Table2.gid = Table1.gid
WHERE (((Table2.active)=True) AND ((View1.active)=True))
GROUP BY View1.tid, Table1.cid, View1.category, Table2.active, View1.active
ORDER BY View1.tid, Table1.cid
PIVOT [Table2].[gid] & " - " & [Table2].[nm];

刷新 CT 表

Public Function RefreshCategoryPricing(Optional sql As String = "")
    If HasValue(lstType) Then
Application.Echo False      'Turn off Screen Updating

        Dim cttbl As String: cttbl = CreateCTTable("crt_CategoryPG") 'Create Table to store the Cross-Tab information
        If IsNullOrEmpty(sql) Then
            sql = SQLSelect(cttbl)
        End If

        Dim flds As DAO.Recordset: Set flds = CurrentDb.OpenRecordset(sql)
        Dim fldwd As String, fldhd As String      'Store the Field Width pattern and Field Header Row
        fldhd = "-1;-1;Category"
        fldwd = "0"";0"";2.5"""   'Handles `tid`, `cid`, and `category` columns in the ListBox
        'Assign the number of columns based on the number of fields in CTtable
        lstCategoryPG.ColumnCount = flds.Fields.Count

        Dim fld As Long
        For fld = 3 To (flds.Fields.Count - 1)
            fldwd = fldwd & ";.75"""
            fldhd = fldhd & ";" & flds.Fields(fld).Name
        Next

        GC flds

        lstCategoryPG.ColumnHeads = True
        lstCategoryPG.ColumnWidths = fldwd

        sql = SQLSelect(cttbl, , ("tid = " & lstType.Value))

        lstCategoryPG.Enabled = True
        RefreshControl CurrentDb, lstCategoryPG, sql, , False
        lstCategoryPG.AddItem fldhd, 0

Application.Echo True       'Turn on Screen Updating
    End If
End Function

创建交叉表

'@ct - String value, Source Cross-Tab to base Table design off of
Public Function CreateCTTable(ct As String) As String
    Dim tbl As String: tbl = "tbl_" & ct
    Dim sql As String

    If TableExists(tbl) Then
    'Table exists and needs to be dropped
        sql = SQLDrop(tbl)
        CurrentDb.Execute sql
    End If

    'Create Table
    sql = SQLSelect(ct, "* INTO " & tbl)
    CurrentDb.Execute sql

    CreateCTTable = tbl
End Function