Office中国论坛/Access中国论坛

标题: 由于你和其他用户试图同进改变同一数据.导致microsoft jet数据引擎停止进程 [打印本页]

作者: 雨农 时间: 2006-5-24 18:43
标题: 由于你和其他用户试图同进改变同一数据.导致microsoft jet数据引擎停止进程
由于你和其他用户试图同进改变同一数据.导致microsoft jet数据引擎停止进程

请教,我现在开发的模式是access +mysql

.现在只有我一个人在用mysql数据库. 在程序动行中按保存后
老是跳出这个提示,搞不明白.只有一个人在使用.并且mysql数据库默认是多用户的.

和set rs=nothing 有没有关系吗?

有什么解决的办法!

[此贴子已经被作者于2006-5-24 10:47:09编辑过]

作者: 一点通 时间: 2006-5-24 22:37
可能是两个打开的窗体同时绑定了一个表

作者: 雨农 时间: 2006-5-25 18:59
全部窗体都不绑定表.用查询和SQL语句完成增加.篇辑.删除功能.

作者: andymark 时间: 2006-5-25 19:13
可能与Rs打开后没释放有关

作者: qlm 时间: 2006-5-25 21:28
我用access+SQL也试过一种情况:在窗体中运行一个后台查询修改了窗体当前的记录,接着手动在窗体中更改这个记录,就会提示已被修改不能更新的提示。不知道版主的情况有没有这个可能？

作者: 雨农 时间: 2006-5-31 00:36
改掉了一部分.可是还是说有人在占用.我知道是自己的程序是一直占用着这表.

Dim sql_btoj, sql_infAs String
Dim rs_btoj, rs_info As Recordset
sql_info = "select * from tem_billjob"
Set rs_info = CurrentDb().OpenRecordset(sql_info)
rs_info.MoveLast
If rs_info.EOF Then
      MsgBox "This Job Have No Bill", vbExclamation, "System"
      rs_info.Close
      Exit Sub
End If
sql_btoj = "select * from jobbill where jobnumber='" & v_general_jobnumber & "'"
Set rs_btoj = CurrentDb().OpenRecordset(sql_btoj)
         If rs_btoj.EOF Then
            MsgBox "This Job have't Transacted", vbExclamation, "System"
            rs_btoj.Close
            Exit Sub
         End If
rs_info.MoveFirst
If Not rs_info.EOF Then
      i = 1
      While Not rs_info.EOF
         i = i + 1
         rs_btoj.Edit
         rs_btoj(i) = rs_info("billnumber")
         rs_btoj("Lastmodifiedtime") = Now()
         rs_btoj.Update
         rs_info.MoveNext
      Wend
End If
rs_btoj.Close
rs_info.Close

我用这段程序去完成对一个表的数据插入.运行第一次没问题.第二次的时候就出现说"其它用户试图修改同样的资料.进程中断的".不明白啊.我明明释放了Rs_btoj变量了

请帮我看看.谢谢

作者: 雨农 时间: 2006-5-31 00:38
用ACCESS表代替MYSQL表就不会出现这种问题

作者: iameee 时间: 2020-9-3 17:25
怎么解决mysql问题？

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)