Как обрабатывать ссылочную целостность для вставок в Access

Обычный способ заключается в том, чтобы иметь форму для вставки записей в правила, основанную на запросе, который включает таблицу отношений и, скажем, комбинацию, которая позволяет пользователю выбрать соответствующий обзор, или настройку формы/подформы с подходящие главные/дочерние поля. В образце базы данных NorthWind таблица сведений о заказе является примером вашей таблицы отношений, в ней используется ненавистная анти-функция поиска в таблице, но вы можете получить некоторые идеи для дальнейших исследований.

Намного более подробное описание варианта 1

Таблицы

Обзор
ID
Обзор

Правила
Идентификатор
Правило

Relationship
RulesID ) PK, образованный двумя FK
OverviewID )

Отношения

Данные

Предложение 1. Дизайн запроса

Обратите внимание, что оба поля из Отношения включены в запрос. Нет необходимости показывать ID из правил, потому что это поле автонумерации, но здесь оно включено для простоты.

При удалении строки записи из обеих таблиц будут удалены.

Вы не можете нарушать ссылочную целостность. Вам нужно будет создать все обзоры, прежде чем это сработает, или предоставить другой метод добавления обзоров.

Если вы обновите RulesID и OverviewID, запись будет добавлена ​​в таблицу Relationship, но не в Rules.

Если вы обновите OverviewID и Rule, записи будут добавлены как в отношения, так и в правила.

Если вы создаете непрерывную форму, у вас есть все вышеперечисленное в гораздо более удобном для пользователя виде с большим контролем. Вы можете использовать поле со списком, чтобы позволить пользователю выбрать более понятное описание обзора, а не идентификатор, и вы можете воспользоваться событием NotInList для добавления новых обзоров.

Обратите внимание, что до сих пор для этого не потребовалось ни одной строки кода. В этом сила Access.

Если рассматриваемый ключ является автономером (IDENTITY) и одна таблица ссылается на другую (через внешний ключ), то вы можете создать VIEW, объединяющий две таблицы, вставить в представление, и значение автонумерации будет автоматически скопировано в ссылочную таблицу. Вот краткая демонстрация:

Sub RulesOverview()
  On Error Resume Next
  Kill Environ$("temp") & "\DropMe.mdb"
  On Error GoTo 0

  Dim cat
  Set cat = CreateObject("ADOX.Catalog")

  With cat
    .Create _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & _
    Environ$("temp") & "\DropMe.mdb"

    With .ActiveConnection

      Dim Sql As String

      Sql = _
      "CREATE TABLE Rules ( " & _
      " ID INTEGER IDENTITY NOT NULL UNIQUE,  " & _
      " Rule VARCHAR(30) NOT NULL UNIQUE " & _
      ")"

      .Execute Sql

      Sql = _
      "CREATE TABLE Overview ( " & _
      " OverviewID INTEGER IDENTITY NOT NULL UNIQUE, " & _
      " Overview VARCHAR(30) NOT NULL UNIQUE " & _
      ")"

      .Execute Sql

      Sql = _
      "CREATE TABLE Relationship ( " & _
      " RuleID INTEGER NOT NULL " & _
      "    REFERENCES Rules (ID) " & _
      "    ON DELETE CASCADE, " & _
      " OverviewID INTEGER " & _
      "    REFERENCES Overview (OverviewID) " & _
      "    ON DELETE SET NULL, " & _
      " Name VARCHAR(20) NOT NULL, " & _
      " UNIQUE (RuleID, OverviewID) " & _
      ")"

      .Execute Sql

      Sql = _
      "CREATE VIEW RulesRelationship AS " & _
      "SELECT Rules.ID, " & _
      "       Rules.Rule, " & _
      "       Relationship.RuleID, " & _
      "       Relationship.Name " & _
      "  FROM Rules INNER JOIN Relationship " & _
      "          ON Rules.ID = Relationship.RuleID;"

      .Execute Sql

      Sql = _
      "INSERT INTO RulesRelationship (Rule, Name) " & _
      "   VALUES ('Don''t run with scissors', " & _
      "           'Initial scissors');"

      .Execute Sql

      Sql = _
      "SELECT * FROM RulesRelationship;"

      Dim rs
      Set rs = .Execute(Sql)
      MsgBox rs.GetString

    End With
    Set .ActiveConnection = Nothing
  End With
End Sub