MS Access修改数据时出现「条件表达式数据类型不匹配」错误求助

你遇到的这个问题大概率就是日期类型字段的格式处理失误，毕竟数据库里只有DTPTanggalLahir是日期类型，其余都是文本，所以重点排查这个字段的SQL拼接逻辑就行。

核心问题：日期字段的包裹符号错了 #

在Access的SQL语法里，日期类型的值必须用**井号（#）**包裹，而文本类型才用单引号/双引号。如果你把日期值用引号包起来，Access会把它识别成文本，和日期字段做对比时自然就会触发「数据类型不匹配」的错误。

错误写法 vs 正确写法 #

假设你原来的ubah变量是类似这样的错误拼接：

ubah = "UPDATE 你的表名 SET Nama='" & TextBoxNama.Text & "', DTPTanggalLahir='" & DTPTanggalLahir.Value.ToString("yyyy-MM-dd") & "' WHERE ID='" & TextBoxID.Text & "'"

把日期值的引号换成井号，就能解决类型不匹配问题：

ubah = "UPDATE 你的表名 SET Nama='" & TextBoxNama.Text & "', DTPTanggalLahir=#" & DTPTanggalLahir.Value.ToString("yyyy-MM-dd") & "# WHERE ID='" & TextBoxID.Text & "'"

更稳妥的方案：用参数化查询替代字符串拼接 #

其实直接拼接SQL不仅容易踩类型坑，还存在SQL注入风险。推荐用参数化查询，让数据库驱动自动处理类型格式，示例代码如下：

Private Sub BTUbah_Click(sender As Object, e As EventArgs) Handles BTUbah.Click
    Try
        Call KONEKSI()
        ' 定义带参数的SQL语句，不用手动加引号/井号
        Dim ubahCmd As New OleDbCommand("UPDATE 你的表名 SET Nama=?, DTPTanggalLahir=? WHERE ID=?", koneksi)
        ' 逐个添加参数，驱动会自动匹配类型
        ubahCmd.Parameters.AddWithValue("@Nama", TextBoxNama.Text)
        ubahCmd.Parameters.AddWithValue("@TanggalLahir", DTPTanggalLahir.Value)
        ubahCmd.Parameters.AddWithValue("@ID", TextBoxID.Text)
        
        ubahCmd.ExecuteNonQuery()
        MessageBox.Show("数据修改成功！")
        Call bersih()
        Call isiGrid()
    Catch ex As Exception
        MessageBox.Show("错误详情：" & ex.Message)
    Finally
        ' 记得用完关闭数据库连接
        If koneksi.State = ConnectionState.Open Then
            koneksi.Close()
        End If
    End Try
End Sub

这种方式的好处：

• 彻底规避数据类型不匹配的问题，不用再纠结符号包裹
• 杜绝SQL注入攻击，提升代码安全性
• 代码结构更清晰，后期维护更方便

你可以先检查原来的ubah字符串里日期字段的包裹符号，换成井号应该就能解决问题；如果还是有异常，直接换成参数化查询肯定能搞定！

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