如何使用VB.NET同时向两个表插入数据（含自增外键）

你的核心问题是需要获取刚插入到Customer表的自增CustomerID，再将其插入到Premier表。原来的第二条SQL语句语法错误，而且没有正确获取自增ID，我来一步步帮你修正：

关键思路 #

1. 插入Customer数据后，必须获取当前会话中生成的自增CustomerID（用SCOPE_IDENTITY()函数，它只会返回当前连接/会话里最后插入的自增ID，避免多线程环境下的错误）。
2. 用获取到的ID执行Premier表的插入操作。
3. 强烈建议使用参数化查询，替代字符串拼接，避免SQL注入风险，同时避免因特殊字符（比如单引号）导致的语法错误。

修正后的完整代码示例 #

' 假设你已经初始化了cmd和连接对象（比如SqlConnection）
Try
    ' 第一步：插入Customer表，用参数化查询
    cmd.CommandText = "INSERT INTO Customer (CustomerUsername, CustomerAge, CustomerPassword) VALUES (@Username, @Age, @Password);"
    ' 添加参数
    cmd.Parameters.AddWithValue("@Username", txtusername.Text)
    cmd.Parameters.AddWithValue("@Age", CInt(txtage.Text)) ' 注意转换为数值类型，匹配字段类型
    cmd.Parameters.AddWithValue("@Password", txtpassword.Text)
    
    ' 执行插入
    cmd.ExecuteNonQuery()
    
    ' 第二步：获取刚生成的CustomerID
    cmd.CommandText = "SELECT SCOPE_IDENTITY();"
    Dim customerId As Integer = Convert.ToInt32(cmd.ExecuteScalar())
    
    ' 第三步：插入Premier表
    cmd.CommandText = "INSERT INTO Premier (CustomerID) VALUES (@CustomerId);"
    ' 先清空之前的参数，避免冲突
    cmd.Parameters.Clear()
    cmd.Parameters.AddWithValue("@CustomerId", customerId)
    
    ' 执行插入
    cmd.ExecuteNonQuery()
    
    MessageBox.Show("数据插入成功！")
Catch ex As Exception
    MessageBox.Show("插入失败：" & ex.Message)
Finally
    ' 记得关闭连接和释放资源
    cmd.Dispose()
    ' 如果有连接对象，也要关闭：conn.Close()
End Try

重要说明 #

• SCOPE_IDENTITY() vs @@IDENTITY：优先用SCOPE_IDENTITY()，因为@@IDENTITY会返回当前会话中所有表的最后自增ID，如果你Customer表有触发器插入其他自增表，会拿到错误的ID。
• 参数化查询：不要直接拼接txtusername.Text这类用户输入到SQL语句里，这是SQL注入的高危操作，参数化能彻底避免这个问题，同时让代码更健壮。
• 类型转换：CustomerAge如果是数值类型（比如int），要把txtage.Text转换为对应的数值类型，避免类型不匹配错误。

内容的提问来源于stack exchange，提问作者Andrew