VB中使用OleDbCommand操作Access数据库时表锁定及自增列修改问题

嗨，我来帮你捋捋这个问题，你遇到的表锁定情况其实是ExecuteReader的使用方式导致的，咱们一步步解决：

问题根源 #

当你用ExecuteReader执行计数查询后，默认会保持OleDbDataReader处于打开状态，关联的数据库连接也会被持续占用。Access作为文件型数据库，锁机制比较严格，这种长时间的资源占用会触发表级锁，直接阻止后续的DDL操作（比如你要修改自增列的Alter Table语句），哪怕换连接也没用——因为锁是加在数据库文件上的，只要之前的阅读器没关闭，锁就不会释放。

解决办法 #

1. 用ExecuteScalar替代ExecuteReader获取计数

你只是要获取表的记录数，ExecuteScalar专门用来执行返回单个值的查询，执行完成后会立即释放相关资源，不会长时间占用连接和锁，完美适配你的场景：

SQL = "Select count(Field) from Table"
Dim DBcmd As New OleDbCommand(sql, _connection)
' 直接获取单个计数结果
Dim recordCount As Integer = Convert.ToInt32(DBcmd.ExecuteScalar())
Return recordCount

2. 必须用ExecuteReader时，确保资源及时释放

如果因为某些特殊需求一定要用ExecuteReader，那务必用Using语句管理数据库对象——Using会在代码块结束后自动调用Dispose方法，帮你关闭阅读器、释放命令对象，避免资源泄漏：

SQL = "Select count(Field) from Table"
Using DBcmd As New OleDbCommand(sql, _connection)
    Using reader As OleDbDataReader = DBcmd.ExecuteReader()
        If reader.Read() Then
            Return Convert.ToInt32(reader(0))
        End If
    End Using ' 自动关闭阅读器
End Using ' 自动释放命令对象
' 如果你的_connection是外部创建的，执行完记得调用 _connection.Close() 关闭连接

3. 修改自增列的额外注意事项

执行Alter Table MyTable Alter Column MyField2 Counter(1,1)这类DDL语句前，要确保：

• 所有针对该表的查询/操作都已经完成，相关的阅读器、连接都已关闭
• 没有未提交的事务在操作该表
• 执行DDL的连接最好是独立的，并且在执行前确保连接处于干净状态

总结 #

Access对资源占用很敏感，尽量用最轻量化的方式执行查询（比如查计数用ExecuteScalar），并且始终用Using管理数据库对象，确保资源及时释放，这样就能避免表锁定的问题啦。

备注：内容来源于stack exchange，提问作者Gary Wheeler