VB.Net中实现数据存在则更新表的方法问询

最优方案：使用MySQL原生的INSERT ... ON DUPLICATE KEY UPDATE #

MySQL提供了原子性语句来实现「存在则更新，不存在则插入」，无需先查询再判断，既能避免并发问题，效率也更高。前提是你的teste1表中ID字段是主键或唯一索引。

示例代码：

Try
    ' 建议将连接字符串配置在配置文件中，避免硬编码
    Dim connStr As String = $"server={server};user id={username};password={password};database={database}"
    Using sqlConn As New MySql.Data.MySqlClient.MySqlConnection(connStr)
        sqlConn.Open()
        ' 核心SQL：ID存在则更新Name，不存在则插入新记录
        Dim sql As String = "INSERT INTO teste1 (ID, Name) VALUES (@ID, @Name) ON DUPLICATE KEY UPDATE Name = @Name"
        Using sqlCmd As New MySql.Data.MySqlClient.MySqlCommand(sql, sqlConn)
            ' 参数化查询避免SQL注入
            sqlCmd.Parameters.AddWithValue("@ID", TextBox1.Text)
            sqlCmd.Parameters.AddWithValue("@Name", Name) ' 此处Name建议替换为实际输入控件值，比如TextBox2.Text
            sqlCmd.ExecuteNonQuery()
            MessageBox.Show("数据已保存（存在则更新，不存在则插入）")
        End Using
    End Using
Catch ex As Exception
    MessageBox.Show($"操作失败：{ex.Message}")
End Try

修正原有查询判断的方案 #

如果坚持使用先查询再判断的逻辑，需要修正原代码的语法错误和逻辑问题：

1. 修正UPDATE语句的语法错误
2. 调整逻辑分支：ID存在时执行更新，不存在时执行插入
3. 所有SQL操作使用参数化查询
4. 用Using语句自动管理连接和命令资源

修正后的代码：

Try
    Dim connStr As String = $"server={server};user id={username};password={password};database={database}"
    Using sqlConn As New MySql.Data.MySqlClient.MySqlConnection(connStr)
        sqlConn.Open()
        ' 参数化查询判断ID是否存在
        Dim checkSql As String = "SELECT COUNT(*) FROM teste1 WHERE ID = @ID"
        Using checkCmd As New MySql.Data.MySqlClient.MySqlCommand(checkSql, sqlConn)
            checkCmd.Parameters.AddWithValue("@ID", TextBox1.Text)
            Dim count As Integer = Convert.ToInt32(checkCmd.ExecuteScalar())
            
            If count <> 0 Then
                ' ID存在，执行更新
                Dim updateSql As String = "UPDATE teste1 SET Name = @Name WHERE ID = @ID"
                Using updateCmd As New MySql.Data.MySqlClient.MySqlCommand(updateSql, sqlConn)
                    updateCmd.Parameters.AddWithValue("@Name", Name)
                    updateCmd.Parameters.AddWithValue("@ID", TextBox1.Text)
                    updateCmd.ExecuteNonQuery()
                    MessageBox.Show("ID已存在，已更新Name字段")
                End Using
            Else
                ' ID不存在，执行插入
                Dim insertSql As String = "INSERT INTO teste1 (ID, Name) VALUES (@ID, @Name)"
                Using insertCmd As New MySql.Data.MySqlClient.MySqlCommand(insertSql, sqlConn)
                    insertCmd.Parameters.AddWithValue("@ID", TextBox1.Text)
                    insertCmd.Parameters.AddWithValue("@Name", Name)
                    insertCmd.ExecuteNonQuery()
                    MessageBox.Show("新数据已插入")
                End Using
            End If
        End Using
    End Using
Catch ex As Exception
    MessageBox.Show($"操作出错：{ex.Message}")
End Try

原代码的关键问题说明 #

• SQL语法错误：原UPDATE语句UPDATE teste1 WHERE (Name,ID)VALUES(@field1,@field2)完全不符合语法，正确格式需要SET子句指定更新的字段值。
• 逻辑分支颠倒：原代码在ID不存在时执行UPDATE，逻辑完全错误，应改为ID存在时更新、不存在时插入。
• SQL注入风险：原SELECT语句使用字符串拼接WHERE ID = '" & TextBox1.Text & "'"，存在注入攻击风险，必须用参数化查询替代。
• 连接管理混乱：原代码同时使用两个数据库连接，且手动调用Close()和Dispose()，不如Using语句自动管理资源安全。

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