连接Access数据库出现"无法更新,当前被锁定"的问题

最新推荐文章于 2021-09-18 15:41:00 发布
最新推荐文章于 2021-09-18 15:41:00 发布
阅读量1.3k 收藏
点赞数
文章标签： 数据库
原文链接：http://www.cnblogs.com/jcleung/archive/2009/05/07/1452208.html
版权

我是在使用executeBatch的时候出现这个问题的,且在异常处理中也关闭了Connection和Statement对象.经检查发现原因在于出现异常时没有回滚.

在catch代码块中加入 con.rollback()即可.

转载于:https://www.cnblogs.com/jcleung/archive/2009/05/07/1452208.html

weixin_30363509
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
java.sql.SQLException: [Microsoft][ODBC Microsoft Access Driver] 不能更新；当前正在被机器 '20090804-1122' 上的用户 'admin' 锁定。
王康的技术博客
12-08 5644
<br />这样的错误，真的还是第一次看到，一时摸不到头脑了！不过在Google中搜索一会找到了一篇不错的解决方法！如下：（谢谢本文的作者）<br />先声明这不是我们编程的错误，因为如果再次（再再次）提交的话就会成功的插入或修改数据的。<br /><br />问题描述：<br />在使用JDBC ODBC连接MS Access数据库时，插入Insert或更新Update数据时经常会发生如下错误：<br />java.sql.SQLException: [Microsoft][ODBC Microsoft
access数据库删除记录ID自动重排.rar
04-03
易语言源码可能实现了上述过程，通过连接到Access数据库，执行SQL命令或者API调用来操作数据。需要注意的是，这样的操作在大数据量时可能会较慢，因为它涉及多条记录的更新。此外，如果多用户同时操作，可能会引入...
access事务中出现"无法更新 ；当前已锁定。"
指点江山
10-09 2120
很长时间这问题没解决，最后找到这个 http://support.microsoft.com/kb/331594/zh-cn 这是jet的bug， 文档是2003年更新了，现在是2012年了，还没修复，jet真是垃圾呀 微软的解决方法是使用odbc驱动而不是jet或者使用jet的客户端游标 我是用的后者 Conn.CursorLocation = 3'解决jet事务处理中的bug...
access2003 不能更新：当前正在被机器'xxxxx'上的用户‘xxxxxx’锁定
求索
11-15 3223
发现对同一个表进行并发写操作时会出现这个报错 尤其是其中一个写操作在事务中，事务并未完成或退出，则另一个写操作就会产生则个错误。
MySQL设置自动更新时间戳，仅insert时更新 update时不更新
大潘的博客
09-18 2164
创建一行数据时自动生成时间戳，后续更新该行数据时时间戳不变 将字段设置成timestamp类型，同时默认值设置成 CURRENT_TIMESTAMP `create_time` timestamp NOT NULL DEFAULT CURRENT_TIMESTAMP COMMENT '创建时间',
ADO对象操作Access数据库关键技术.doc
06-02
在Access中，通常使用`CurrentProject.Connection`初始化Connection对象，这将连接到当前Access数据库。 2. Command对象：Command对象用于执行SQL语句或存储过程，它可以完成更复杂的数据库操作，如创建、修改和...
泛微OA数据库相关问题处理
02-27
在ORACLE数据库中，监听问题可能会导致数据库的连接问题。解决这个问题可以使用LISTENER.ORA文件，例如： ```bash LISTENER = (DESCRIPTION = (ADDRESS = (PROTOCOL = TCP)(HOST = hostname)(PORT = 1521)) ) ``...
vb操作access数据库的方法.pdf
10-20
例如，连接Access数据库时，使用`PROVIDER=microsoft.jet.oledb.4.0`；连接Oracle时，使用`PROVIDER=MSDAORA.1`；连接VF的DBF库，可能使用`PROVIDER=MSDASQL.1`。 5. **数据库移植性**： - 使用ADODB，即使将来...
定时备份数据库(VB+ACCESS)源码
12-08
在VB中连接ACCESS数据库，我们通常会使用ADO（ActiveX Data Objects）技术。ADO是Microsoft提供的一个数据库访问接口，允许程序员通过统一的方式访问各种数据源，包括ACCESS数据库。我们需要设置连接字符串，指定...
Olepro32.dll
12-29
olepro32.dll是对象链接和嵌入OLE特性相关模块。通常情况下是在安装操作系统过程中自动创建的，对于系统正常运行来说至关重要。
.Net操作Access数据库 语句正确但是不能更新的问题
weixin_30433075的博客
10-31 129
OleDbParameter 参数的顺序必须跟SQL语句中参数的顺序一样才可以更新成功 转载于:https://www.cnblogs.com/abyss0303/p/4065320.html
access 无法保存;正被别的用户锁定
bobodadao的专栏
08-10 2712
临下班被告知以前的一个网站出错了。修改公司简介的时候显示“无法保存;正被别的用户锁定”。 一看知道有东西正在访问这个表，使更改操作不能实现。翻了半天一看源码，我就哭了。     public void DataBindUpdate()     {         stri
Access数据库延迟问题的解决
weixin_34347651的博客
03-01 687
在做项目过程中发现设置期初库存值后，马上点击检索按钮检索数据，显示的还是老数据，Access数据库没有及时更新，查了资料发现： 用ADO操作MDB文件确实存在一定的延时，这是Access的特色，或者也可以说是Bug。 解决办法: Thread.Sleep(1000); 控制一下线程即可。 转载于:https://www.cnblogs.com/yigedaizi/archiv...
我要从access数据库中获取指定表的数据实时更新excel中，之后我再excel中更新数据，access也要同时更新，最加，删除，筛选查询等功能的vba代码，并对每行代码注释其中的作用
最新发布
05-30
好的，您的问题是如何用 VBA 从 Access 数据库中获取指定表的数据实时更新 Excel 中，并实现增加、删除、筛选、查询等功能。 首先，需要在 Excel 中添加 Microsoft ActiveX Data Objects Library 的引用，以便使用 ADO 对象库。接着，可以使用以下代码打开 Access 数据库并获取指定表的数据： ``` Sub GetDataFromAccess() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim i As Integer '打开数据库连接 conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Data\MyDatabase.accdb" '设置 SQL 查询语句 sql = "SELECT * FROM MyTable" '执行查询 rs.Open sql, conn '将查询结果写入 Excel 表格中 Worksheets("Sheet1").Range("A1").CopyFromRecordset rs '关闭连接 rs.Close conn.Close End Sub ``` 其中，`Provider` 参数指定了使用的数据提供程序，`Data Source` 参数指定了数据库文件的路径，`SELECT * FROM MyTable` 是 SQL 查询语句，`CopyFromRecordset` 方法将查询结果写入 Excel 表格中。 接下来，可以使用以下代码实现在 Excel 中更新数据后 Access 同时更新的功能： ``` Sub UpdateDataInAccess() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim i As Integer '打开数据库连接 conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Data\MyDatabase.accdb" '设置 SQL 查询语句 sql = "SELECT * FROM MyTable" '执行查询 rs.Open sql, conn, adOpenDynamic, adLockOptimistic '更新数据 rs.MoveFirst Do While Not rs.EOF rs.Fields("Name") = Worksheets("Sheet1").Cells(rs.AbsolutePosition + 1, 1) rs.Fields("Age") = Worksheets("Sheet1").Cells(rs.AbsolutePosition + 1, 2) rs.MoveNext Loop rs.UpdateBatch '关闭连接 rs.Close conn.Close End Sub ``` 其中，`adOpenDynamic` 和 `adLockOptimistic` 参数指定了使用动态游标和乐观锁定，`rs.Fields("Name")` 和 `rs.Fields("Age")` 分别表示更新数据的列，`rs.UpdateBatch` 方法将更新结果批量提交到 Access。 接下来，可以使用以下代码实现在 Excel 中增加数据后 Access 同时增加的功能： ``` Sub AddDataToAccess() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim i As Integer '打开数据库连接 conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Data\MyDatabase.accdb" '设置 SQL 查询语句 sql = "SELECT * FROM MyTable" '执行查询 rs.Open sql, conn, adOpenDynamic, adLockOptimistic '在记录集末尾添加新记录 rs.AddNew rs.Fields("Name") = Worksheets("Sheet1").Cells(rs.RecordCount + 1, 1) rs.Fields("Age") = Worksheets("Sheet1").Cells(rs.RecordCount + 1, 2) rs.Update '关闭连接 rs.Close conn.Close End Sub ``` 其中，`rs.AddNew` 方法表示在记录集末尾添加新记录，`rs.Fields("Name")` 和 `rs.Fields("Age")` 分别表示添加数据的列，`rs.Update` 方法将添加结果提交到 Access。 接下来，可以使用以下代码实现在 Excel 中删除数据后 Access 同时删除的功能： ``` Sub DeleteDataFromAccess() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim i As Integer '打开数据库连接 conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Data\MyDatabase.accdb" '设置 SQL 查询语句 sql = "SELECT * FROM MyTable" '执行查询 rs.Open sql, conn, adOpenDynamic, adLockOptimistic '删除指定记录 rs.MoveFirst Do While Not rs.EOF If rs.Fields("Name") = Worksheets("Sheet1").Cells(rs.AbsolutePosition + 1, 1) Then rs.Delete Exit Do End If rs.MoveNext Loop '关闭连接 rs.Close conn.Close End Sub ``` 其中，`rs.Delete` 方法表示删除当前记录，`If rs.Fields("Name") = Worksheets("Sheet1").Cells(rs.AbsolutePosition + 1, 1)` 表示按照姓名列进行删除操作。 最后，可以使用以下代码实现在 Excel 中筛选查询数据的功能： ``` Sub FilterDataFromAccess() Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim sql As String Dim i As Integer '打开数据库连接 conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Data\MyDatabase.accdb" '设置 SQL 查询语句 sql = "SELECT * FROM MyTable WHERE Age > 20" '执行查询 rs.Open sql, conn '将查询结果写入 Excel 表格中 Worksheets("Sheet1").Range("A1").CopyFromRecordset rs '关闭连接 rs.Close conn.Close End Sub ``` 其中，`WHERE Age > 20` 表示按照年龄列进行筛选查询操作。 以上就是 VBA 从 Access 数据库中获取指定表的数据实时更新 Excel 中，并实现增加、删除、筛选、查询等功能的代码。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值