没看你的代码,不过,网络使用最好使用事务处理。
on error goto DataError
Connection.Begintrans '开始事务
数据处理
Connection.commitTrans '提交事务exit subDataError: '错误处理。
Connection.roolbacktrans
msgbox "Data Error:" & err.description=================另处,少使用Recordset中的update等,我的感觉那不是一个好东西。最好直接操控:使用:Connection.Execute("Update yourtable set .....")要稳当的多。。
on error goto DataError
Connection.Begintrans '开始事务
数据处理
Connection.commitTrans '提交事务exit subDataError: '错误处理。
Connection.roolbacktrans
msgbox "Data Error:" & err.description=================另处,少使用Recordset中的update等,我的感觉那不是一个好东西。最好直接操控:使用:Connection.Execute("Update yourtable set .....")要稳当的多。。
因任务很紧,并且该系统仅仅用五台机,小弟对SQL不熟,能否给一些其他建议。我的同事也做过类似程序,但他用ACESS97,运行20天,仅仅坏了一次库,我用ASP打开数据库运行较慢,
如果同时有用户写库,会出错吗?系统老提示用户不正常退出,但系统并未死机,db.OpenRecordset("cjk", dbOpenTable)该语句有其他参数吗?能直接写库的
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
你试试吧!
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
你试试吧!
程序少异常中断为佳。
程序少异常中断为佳。
我的程序要求输入一个号码后,进行检查是否存在,如存在,提示出错,否则立即写库。
我今天做了一点改动,设定MDB数据库的主键,程序中不再用SEEK方法,往数据库硬写,系统会提示有重复记录,捕获系统错误。该方法行吗?好像还是库坏!唉!!!
因为必须写库,Set rbc = db.OpenRecordset("cjk", dbOpenTable),该语句能否用动态集打开,动态集能写库吗?能否有更稳妥的写库方式,有人提议用ADO或事务方式,如何写呢,能给一些提示吗?DAO3。61真的在如此简单的网络情况下如此的脆弱?客户机上我也安装了ACESS200,修改其中有关表的一些网络设置有用吗?如更新间隔等???网路的状况是否也会对数据库造成影响呢???