由于你和其他用户试图同进改变同一数据.导致microsoft jet数据引擎停止进程

雨农

由于你和其他用户试图同进改变同一数据.导致microsoft jet数据引擎停止进程

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

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

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

有什么解决的办法!

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

雨农

全部窗体都不绑定表.用查询和SQL语句完成增加.篇辑.删除功能.

雨农

改掉了一部分.可是还是说有人在占用.我知道是自己的程序是一直占用着这表.

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变量了

请帮我看看.谢谢

雨农

用ACCESS表代替MYSQL表就不会出现这种问题