VB.NET实现ID不存在才新增记录时条件判断失效问题求助

问题根源 #

你的现有逻辑存在根本性错误：遍历记录集时，只要当前遍历到的记录ID和输入ID不相等就触发新增，会导致两种错误结果：

1. 若记录集里有多条不匹配的记录，会重复新增多次相同数据
2. 就算存在匹配的ID，只要遍历到其他不匹配的记录还是会触发新增，完全达不到校验唯一ID的效果

修正方案 #

方案1：调整遍历逻辑（适配原有写法） #

先全量遍历判断ID是否存在，只有完全无匹配时才执行一次新增：

Dim isIdExists As Boolean = False
rs.MoveFirst()
' 第一步：遍历判断ID是否存在
Do While Not rs.EOF
    If rs("ID").Value.ToString() = TextBox1.Text.Trim() Then
        isIdExists = True
        Exit Do ' 匹配到就提前退出，节省性能
    End If
    rs.MoveNext()
Loop
' 第二步：仅ID不存在时新增
If Not isIdExists Then
    rs.AddNew()
    rs("ID").Value = TextBox1.Text.Trim() ' 原有代码漏了ID字段赋值，此处补上
    rs("CustomerName").Value = TextBox2.Text.Trim()
    rs("CustomerAddress").Value = TextBox3.Text.Trim()
    rs.Update()
End If

方案2：筛选判断（性能更优，适合数据量较大的场景） #

不需要全表遍历，直接用筛选功能判断匹配ID的记录数：

' 转义单引号避免语法错误
Dim targetId As String = Replace(TextBox1.Text.Trim(), "'", "''")
rs.Filter = "ID='" & targetId & "'"
If rs.RecordCount = 0 Then
    rs.AddNew()
    rs("ID").Value = TextBox1.Text.Trim()
    rs("CustomerName").Value = TextBox2.Text.Trim()
    rs("CustomerAddress").Value = TextBox3.Text.Trim()
    rs.Update()
End If
rs.Filter = "" ' 清除筛选恢复完整记录集

注意事项 #

• 如果ID字段是数值类型，筛选条件不需要加单引号，直接拼接数值即可
• 建议提前对用户输入做非空校验，避免无效空值写入数据库
• 可在数据库层给ID字段设置唯一约束，双重保障不会出现重复ID

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