在 3 表关系 Ms 访问和 Vb.Net 上需要帮助

Question

我在 ms 访问中创建了 3 个表，其中 Table Person 是唯一一个包含主键 TABLE PERSON(ID,FNAME,MNAME,LNAME) 的表，我将它连接到 2 个 TABLES AMOUNT(ID,amount,Term )、TABLE TIME(ID,start,due)。

时间表和id表没有PK，ID格式都是数字。

当我尝试使用 Vb.Net 在我的数据库中添加数据时，它会显示此错误 You cannot add or change a record because a related record is required in table 'P'.

这是整个代码：

 Public Function insert_person(ByVal fname As String, ByVal mname As String, ByVal lname As String)
        Dim connect As OleDbConnection = con()
        Dim cmd As OleDbCommand = connect.CreateCommand()
        cmd.CommandText = "insert into P(fname,mname,lname)values(fname,mname,lname)"
        cmd.Parameters.Add("@fname", OleDbType.VarChar).Value = fname
        cmd.Parameters.Add("@mname", OleDbType.VarChar).Value = mname
        cmd.Parameters.Add("@lname", OleDbType.VarChar).Value = lname
        cmd.ExecuteNonQuery()
        connect.Close()
        Return 0
    End Function

    Public Function insert_amount(ByVal empid As Integer, ByVal amount As Double, ByVal term As Integer)
        Dim connect As OleDbConnection = con()
        Dim cmd As OleDbCommand = connect.CreateCommand()
        cmd.CommandText = "insert into A(empid,amount,term) values(@empid,@amount,@term)"
        cmd.Parameters.Add("@empid", OleDbType.Integer).Value = empid
        cmd.Parameters.Add("@amount", OleDbType.Double).Value = amount
        cmd.Parameters.Add("@term", OleDbType.Integer).Value = term
        cmd.ExecuteNonQuery()
        connect.Close()
        Return 0
    End Function

当我检查我的数据库以查看记录是否已保存时，唯一保存的记录是 TABLE P TABLE amount TABLE time 不要添加任何内容

Answer 1

1. insert_amount 中有语法错误：

cmd.Parameters.Add(New OleDbParameter(CType("[empid]"

1. time 是 Access 中的 reserved word，您应该以不同的方式命名此表。

2. 每个表都应该有一个主键。没有你会遇到各种各样的问题。

3. 您收到的错误消息意味着您与P 和其他表之间的Referential Integrity 有关系。您需要传递并插入一个存在于P 中的empid。