根据 MS-Access 中其他表的查询创建包含值的新记录

Question

我想在 mailers 表中创建一条新记录，其中三个字段将包含值：contacts_first_filter_id、mailer_states_id、created_at。其中两个值基于其他表的查询，最后一个值只是当前时间。

我尝试了多种方法来实现这一目标，但没有一个有效。首先，我尝试直接在 sql 设计中创建查询：

INSERT INTO mailers ( contacts_first_filter_id, mailer_states_id, created_at )
VALUES (DLookup("id","update_mailer_step_two"), DLookup("id","mailer_states" & "mailer_state = 'sent'"), Now());

这给出了错误“未知”。

我还尝试将其放入 VBA 编辑器中并在单击按钮时触发它：

Private Sub Command6_Click()


        Dim CFF_ID As String, MS_ID As String, strSQL As String

        CFF_ID = "SELECT update_mailer_step_two.id FROM update_mailer_step_two"

        MS_ID = "SELECT mailer_states.id FROM mailer_states WHERE mailer_states.mailer_state = 'sent'"

        strSQL = "INSERT INTO mailers ( contacts_first_filter_id, mailer_states_id, created_at )VALUES ((" & CFF_ID & "),(" & MS_ID & "),NOW())"

        DoCmd.RunSQL strSQL

End Sub

这会出现错误： “查询输入必须至少包含一个表或查询”。

我使用 INNER JOIN 尝试了下面的建议，但是虽然这不会产生错误，但它会附加 0 行，大概是因为 update_mailer_step_two 和 mailer_states 之间没有 INNER JOIN 链接：

INSERT INTO mailers ( contacts_first_filter_id, mailer_states_id, created_at )
SELECT update_mailer_step_two.id, mailer_states.id, Now()
FROM update_mailer_step_two INNER JOIN mailer_states ON update_mailer_step_two.id = mailer_states.ID
WHERE mailer_states.mailer_state = 'sent';

mailer_states 表只是一个包含带有文本的 mailer_state 字段的表。它几乎只是一个永远不会改变的查找表。

update_mailer_step_2 包含一个名为 id 的字段，其中包含一堆与数据库中的联系人关联的 id。 因此，mailer_states 和 update_mailer_step_2 之间根本没有关系。

** 我认为我能够做的是，当我创建 update_mailer_step_two 时，添加一个新列并默认使用与 mailer_states 对应的值，以便 INNER JOIN 可以工作。不幸的是，您似乎无法在 Access 中执行此操作！

另一篇 stackoverflow 帖子提到您可以：

SQL 添加具有默认值的列- Access 2003

但它对我不起作用。

我已经没有关于如何将基于其他表的查询作为旨在在表中创建新记录的查询的值的想法了。

感谢您的回复。

Answer 1

您正在尝试将 select 语句的结果插入到表中。
但是，select 语句独立地从两个不同的表中进行选择。

我认为这行不通。

主要是它如何处理这两个独立的结果。它是否创建一个包含交叉、内连接等的列表。

我将创建一个从两者中进行选择的查询，然后将该查询插入到您的表中。或者您可以内部连接选择并将连接转发到您的值中。

Answer 2

我认为您的按钮单击示例在构建字符串时也存在语法错误。这应该工作（与代码的其余部分一起，假设您的 DLoookups 正常工作，如 HansUp 所指出的）：

strSql = "INSERT INTO mailers (contacts_first_filter_id,  mailer_states_id," & _
       " created_at) VALUES (" & CFF_ID & ", " & MS_ID & ", #" & Now() & "#)"

我不确定我删除的额外括号是否会产生任何影响，空格差异应该没有区别，但我的版本让 VBA 计算 Now() 并将值构建到字符串中。 Access 使用 # 来引用日期。

Answer 3

您的第一种方法（使用包含对 DLookup 的调用的查询）原则上应该有效，但它有一个语法错误。 @HansUp 单独运行每个 DLookup 的建议是一个很好的建议，并且可以帮助您识别这一点（在 Visual Basic 编辑器中，按 Ctrl-G 显示中间窗口；@HansUp 示例中每个表达式之前的问号 < em>是必需的）。

具体来说，第二个 DLookup 调用中的 & 是字符串连接字符，这意味着您当前的调用相当于：

DLookup("id","mailer_statesmailer_state = 'sent'")

相反，请将其更改为：

DLookup("id","mailer_states", "mailer_state = 'sent'")

EXTRA

要为 update_mailer_step_two 中的每一行插入一个新行，请尝试以下操作：

INSERT INTO mailers ( contacts_first_filter_id, mailer_states_id, created_at )
SELECT update_mailer_step_two.id,
       DLookup("id","mailer_states", "mailer_state = 'sent'"),
       Now()
FROM update_mailer_step_two

Answer 4

在立即窗口 (Ctrl+g) 中尝试 2 个 DLookup 语句。

? DLookup("id","update_mailer_step_two")
? DLookup("id","mailer_states", "mailer_state = 'sent'")

如果它们工作（不要抛出错误）并返回您想要的内容，请尝试将它们合并到您的子例程中。

Private Sub Command6_Click()
    Dim CFF_ID As Long, MS_ID As Long, strSQL As String
    Dim db As DAO.Database
    CFF_ID = DLookup("id","update_mailer_step_two")
    MS_ID = DLookup("id","mailer_states", "mailer_state = 'sent'")
    strSQL = "INSERT INTO mailers (contacts_first_filter_id, mailer_states_id, created_at) " & _
        "VALUES (" & CFF_ID & ", " & MS_ID & ", NOW())"
    'DoCmd.RunSQL strSQL '
    Debug.Print strSQL 'look in Immediate Window to see the completed INSERT statement '
    Set db = CurrentDb
    db.Execute strSQL, dbFailOnError
    Set db = Nothing
End Sub

该未经测试的代码假定邮件程序中的 CFF_ID、MS_ID、contacts_first_filter_id 和 mailer_states_id 字段以及 update_mailer_step_two 和 mailer_states 表中的 id 字段采用数字数据类型。如果其中任何一个实际上是文本，您就必须对代码进行调整或告诉我们哪个是哪个。

编辑： Debug.Print 行的目的是允许您查看要求数据库执行的完整 INSERT 语句。如果失败，您可以复制语句文本并将其粘贴到新查询的 SQL 视图中。您可以在此处对其进行调整，以便 Access 接受它。然后调整您的代码以生成相同的工作 INSERT 语句。