VB.NET向Access数据库插入数据如何避免重复 现有SQL语句报错怎么解决

你写的SQL语法不兼容Access的Jet/ACE SQL引擎规范：Access要求SELECT语句必须搭配FROM子句指定数据源，你当前的写法里SELECT @OtherInfo30后没有指定查询来源，所以执行会报错。

方案1：单SQL语句实现（无需额外判断逻辑） #

借助Access默认存在的系统表MSysObjects作为临时数据源，取TOP 1保证只返回1行待插入数据，修改后的代码如下：

Dim StrInsert As String = "INSERT INTO Job (Name)
                           SELECT TOP 1 @OtherInfo30
                           FROM MSysObjects
                           WHERE @OtherInfo30 NOT IN (SELECT Name FROM Job)"

注意：部分Access权限配置下可能限制访问系统表，此时可以换用你自己创建的任意一张确认有数据的表代替MSysObjects即可。

方案2：先校验再插入（逻辑更直观，兼容性更高） #

先查询判断目标值是否已存在，不存在再执行插入操作，代码如下：

' 先打开数据库连接（conn为你已经初始化的OleDbConnection对象）
conn.Open()
' 1. 校验重复
Dim checkCmd As New OleDbCommand("SELECT COUNT(*) FROM Job WHERE Name = ?", conn)
checkCmd.Parameters.AddWithValue("?", 你要插入的Name字段值)
Dim existCount As Integer = CInt(checkCmd.ExecuteScalar())

' 2. 无重复才插入
If existCount = 0 Then
    Dim insertCmd As New OleDbCommand("INSERT INTO Job (Name) VALUES (?)", conn)
    insertCmd.Parameters.AddWithValue("?", 你要插入的Name字段值)
    insertCmd.ExecuteNonQuery()
End If
conn.Close()

• Access的OLEDB驱动不识别命名参数，只会按参数在SQL中出现的顺序匹配赋值，所以添加参数的顺序必须和SQL里参数的顺序完全一致
• 建议直接在Access的Job表中给Name字段设置唯一索引，从数据库层面强制避免重复数据，作为代码逻辑的兜底防护

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