VB.NET中添加/更新MySQL产品时触发外键约束失败错误求助

错误原因 #

这个MySqlException是外键约束验证失败：你尝试插入或更新的products记录中，CategoryId字段的值在categories表中找不到对应的Id记录，违反了外键关联规则。

代码问题排查 #

从你提供的实体类代码来看，存在两个明确问题：

1. Product类未完全实现ISearchable接口：接口定义了Name属性，但Product类没有实现该属性，会导致编译错误，必须补充实现。
2. CategoryId默认值风险：VB.NET中Integer类型默认值为0，如果插入Product时未显式赋值CategoryId，会自动填充为0，而你的categories表是自增主键（Id从1开始），不存在Id=0的分类，直接触发外键约束错误。

另外，GetCategory方法中直接使用Db.Get()获取数据库连接，在多线程场景下可能引发线程安全问题，建议通过构造函数注入数据库连接实例。

解决步骤 #

• 确保分类存在再插入产品：插入Product前，先确认要关联的Category已存在于categories表中，使用该Category的有效Id赋值给CategoryId。
• 显式赋值CategoryId：不要依赖Integer的默认值0，插入时必须指定有效的CategoryId。可以在业务逻辑中添加校验：

  Dim categoryId As Integer = 1 ' 替换为实际存在的分类Id
  If Db.Exists(Of Category)(categoryId) Then
      Dim newProduct = New Product With {.CategoryId = categoryId}
      Db.Insert(newProduct)
  Else
      ' 处理分类不存在的情况，比如抛出异常或提示用户
  End If
  

• 补全接口实现：给Product类添加Name属性的实现，满足ISearchable接口要求：

  <[Alias]("products")>
  Public Class Product
      Implements ISearchable
  
      <PrimaryKey, AutoIncrement>
      Public Property Id() As Integer Implements ISearchable.Id
      <ForeignKey(GetType(Category), OnDelete := "CASCADE")>
      Public Property CategoryId() As Integer
      ' 补全Name属性实现
      Public Property Name As String = String.Empty Implements ISearchable.Name
  
      Public Function GetCategory() As Category
          Return Db.Get().SingleById(Of Category)(Me.CategoryId)
      End Function
  End Class
  

• 优化数据库连接使用：避免在实体类中直接依赖全局Db实例，建议通过构造函数注入：

  Private ReadOnly _db As IDbConnection
  Public Sub New(db As IDbConnection)
      _db = db
  End Sub
  
  Public Function GetCategory() As Category
      Return _db.SingleById(Of Category)(Me.CategoryId)
  End Function
  

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