VB.NET结合MS Access自动生成用户ID报错：FROM子句语法错误

错误根源 #

你的SQL语句中User是Access数据库的保留关键字，直接作为表名使用会触发语法错误，必须用方括号[User]将表名包裹起来。

代码修正与优化 #

除了修复表名的问题，还可以优化以下几点：

• 避免重复调用ExecuteScalar()，减少不必要的数据库交互
• 使用Using语句自动管理连接和命令对象的资源，防止连接泄漏
• VB.NET中推荐用&作为字符串连接符，替代+（避免数值类型拼接时的隐式转换问题）

修正后的代码：

Imports System.Data.OleDb
Imports System.Data
Imports System.Web.UI
Imports System.Web.UI.WebControls

Partial Class UserRegister
    Inherits System.Web.UI.Page

    'Database Connection
    Public Sub form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles form1.Load
        Try
            Dim num As Integer = 0
            Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = D:\\Pravin\\Project\\Online Complaint\\Online Complaint Registration\\Database\\OCRS.mdb"
            
            'Using语句自动释放连接和命令资源
            Using con As New OleDbConnection(ConStr)
                con.Open()
                '用[User]包裹保留字表名
                Dim sql As String = "select max(u_id) from [User]"
                Using cmd As New OleDbCommand(sql, con)
                    Dim result As Object = cmd.ExecuteScalar()
                    '只调用一次ExecuteScalar，避免重复查询
                    If IsDBNull(result) OrElse result Is Nothing Then
                        num = 1
                    Else
                        num = CInt(result) + 1
                    End If
                    txt9.Text = "UID" & num.ToString
                End Using
            End Using
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class

额外说明 #

• 如果你的Access版本是2007及以上，建议改用ACE驱动：Provider=Microsoft.ACE.OLEDB.12.0，兼容性更好
• 自动生成用户ID还可以考虑用Access的自动编号字段，避免手动维护最大值的逻辑，同时降低并发场景下的ID冲突风险

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