插入带有外键的查询

Question

我在数据库中有三个表，它们通过外键相互链接。我想做一个 INSERT 查询，以便我可以输入数据。我可以单独将数据插入每个表，但是在使用外键约束时出现错误。这里是表关系和 VBA 表单，我试图通过它输入数据 VBA Form,Relationships & Data Types

我现在正在使用这两个查询，但第二个查询抛出错误。

sql = "insert into T1(ID,FName,Email)values('" & TextBox1.Text & "', '" & TextBox2.Text & "','" & TextBox3.Text & "')"
sql = "insert into T2(ID,PhoneNumber,City) Values (Select(ID FROM T1 WHERE FName=" & TextBox2.Text & "),'" & TextBox4.Text & "','" & TextBox5.Text & "')"

请注意 ID 是我表格中的主要字段，我将使用该字段进行搜索、更新和删除

Answer 1

您在第二个查询中使用的语法无效，您必须使用INSERT INTO .... SELECT .... 编写它并删除VALUES 关键字，如下所示：

INSERT INTO T2(ID,PhoneNumber,City) 
SELECT ID,'" & TextBox4.Text & "','" & TextBox5.Text & "'
FROM T1 
WHERE FName=" & TextBox2.Text & "

来自'" & TextBox4.Text & "','" & TextBox5.Text & "' 的值将与来自ID 列的值一起被选为字符串文字，这就是您可以将从查询中选择的值与字符串文字混合并将它们插入到另一个表中的方法。

Answer 2

Mahmoud Gamal 是对的，但必须确保列表中的字段具有相同的类型，例如，当字段为数字时，不能使用单冒号 (')，数据库承认但不正确。而且您不能将字母数字字符串发送到数字字段。最后，您必须确保查询的顺序是正确的，因为外键在级联中验证引用。请原谅我的英语。

Answer 3

对于您的第二个查询，我使用的是 VB.NET，因为我之前没有做过 VBA 编程：

    Dim sql As String = String.Empty
    sql = "insert into T2(ID,PhoneNumber,City) Values ("

    '// T2.ID(Number)
    sql += "Select(ID FROM T1 WHERE FName=" & TextBox2.Text & "),"

    '// T2.PhoneNumber(Number)
    '// instead of "'" & TextBox4.Text & "'," remove the single quotes
    sql += TextBox4.Text & ","

    '// T2.City(Text) only text need to be enclosed in 'single quotes'
    sql += "'" & TextBox5.Text & "'"

    sql += ")"

您的第二个查询引发错误，因为您试图将文本插入数据库中的数字列 (T2.PhoneNumber)。

包括您的图片：