没看你的代码,不过,网络使用最好使用事务处理。
on error goto DataError
Connection.Begintrans  '开始事务
数据处理
Connection.commitTrans '提交事务exit subDataError: '错误处理。
   Connection.roolbacktrans
   msgbox "Data Error:" & err.description=================另处,少使用Recordset中的update等,我的感觉那不是一个好东西。最好直接操控:使用:Connection.Execute("Update yourtable set .....")要稳当的多。。

解决方案 »

  1.   

    哦,对不起,我用的是ADO方法,不知有没有搞错,我没用过DAO,不晓得。出了问题别怪我呵。
      

  2.   

    用sql-server吧,什么年代了,还是dao+access
      

  3.   

    各位大侠:
       因任务很紧,并且该系统仅仅用五台机,小弟对SQL不熟,能否给一些其他建议。我的同事也做过类似程序,但他用ACESS97,运行20天,仅仅坏了一次库,我用ASP打开数据库运行较慢,
    如果同时有用户写库,会出错吗?系统老提示用户不正常退出,但系统并未死机,db.OpenRecordset("cjk", dbOpenTable)该语句有其他参数吗?能直接写库的
      

  4.   

    我对你的程序有以下建议你看看吧,我以前也给人作国类似的,用于20台机器没问题的;
        Dim count As Integer
        Dim db As Database
        Dim rbc As Recordset 
        Dim ws As Workspace
        Dim i As Integer
        On Error Resume Next
        Set ws = DBEngine.Workspaces(0)
        Set db = ws.OpenDatabase("e:\mzd\dbf\cjk.mdb") '网络连接上的数据库
        Set rbc = db.OpenRecordset("select * from 中国旅行社调查表",dbOpenDynaset)
    另外建议在form的unload事件中添加关闭数据库的代码:
        rbc.close
        db.close
    你试试吧! 
      

  5.   

    我对你的程序有以下建议你看看吧,我以前也给人作国类似的,用于20台机器没问题的;
        Dim count As Integer
        Dim db As Database
        Dim rbc As Recordset 
        Dim ws As Workspace
        Dim i As Integer
        On Error Resume Next
        Set ws = DBEngine.Workspaces(0)
        Set db = ws.OpenDatabase("e:\mzd\dbf\cjk.mdb") '网络连接上的数据库
        Set rbc = db.OpenRecordset("select * from cjk",dbOpenDynaset)'cjk是表名
    另外建议在form的unload事件中添加关闭数据库的代码:
        rbc.close
        db.close
    你试试吧! 
      

  6.   

    其实以上代码都没有什么错,建议少用表的方式打开记录集。跟我以前作的一些程序没有什么大的区别,也很少坏库的。对From关闭时,一定要关闭相应的对象就行。
    程序少异常中断为佳。
      

  7.   

    其实以上代码都没有什么错,建议少用表的方式打开记录集。跟我以前作的一些程序没有什么大的区别,也很少坏库的。对From关闭时,一定要关闭相应的对象就行。
    程序少异常中断为佳。
      

  8.   

    各位大侠:
        我的程序要求输入一个号码后,进行检查是否存在,如存在,提示出错,否则立即写库。
    我今天做了一点改动,设定MDB数据库的主键,程序中不再用SEEK方法,往数据库硬写,系统会提示有重复记录,捕获系统错误。该方法行吗?好像还是库坏!唉!!!
        因为必须写库,Set rbc = db.OpenRecordset("cjk", dbOpenTable),该语句能否用动态集打开,动态集能写库吗?能否有更稳妥的写库方式,有人提议用ADO或事务方式,如何写呢,能给一些提示吗?DAO3。61真的在如此简单的网络情况下如此的脆弱?客户机上我也安装了ACESS200,修改其中有关表的一些网络设置有用吗?如更新间隔等???网路的状况是否也会对数据库造成影响呢???    
      

  9.   

    哎!数据库还是坏!xxxx mdb!!!!也许是索引的问题!我已快崩溃!!!