- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 设置TimerTick代码后出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=161045)
-- 发布时间：2021/3/4 5:24:00
-- 设置TimerTick代码后出错
软件在局域网内3台电脑同时使用，数据库为Access外部数据源，主机共享数据库。已设置everyone和Guest读写权限
设置以下TimerTick代码事件之前运行正常，设置以后报错
1.主界面窗口计时器：
间隔：60000
代码：
DataTables("库存表").Load
2.销售查询窗口计时器：
间隔：6000
代码：
Dim id As Integer = DataTables("销售订单").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("销售订单").AppendLoad(Filter, False)
3.报价单查询窗口
间隔：5000
Dim id As Integer = DataTables("报价单").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("报价单").AppendLoad(Filter, False)
4.PVC查询窗口
间隔：20000
Dim id As Integer = DataTables("PVC_Calculate").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("PVC_Calculate").AppendLoad(Filter, False)
5.Skirtting查询窗口
间隔：5000
If Forms("Order Query").opened Then
Dim id As Integer = DataTables("Skirtting").Compute("Max(_Identify)")
Dim Filter As String = "[_Identify] > " & id
DataTables("Skirtting").AppendLoad(Filter, False)
End If
数据库所在电脑报错信息如下：
此主题相关图片如下：屏幕截图 2021-03-01 110557.png
此主题相关图片如下：屏幕截图 2021-03-01 143351.png
此主题相关图片如下：屏幕截图 2021-03-01 131440.png
不是一直出现，偶尔交替出现以上错误，而且软件会死机，只能在电脑任务管理器中结束任务，并重新登录才能使用。
是不是因为计时器窗口太多有冲突引起的？需要怎么调整，请帮我看看，谢谢！
-- 发布时间：2021/3/4 9:13:00
--
改为使用SQL server吧。access的并发很弱的，同时连接数据库的操作多的话数据库就被锁了
-- 发布时间：2021/3/4 15:10:00
--
3台电脑也不是一直同时使用的，如果没有添加计时器不会有这种情况。
-- 发布时间：2021/3/4 15:17:00
--
多个计时器可以理解为多个用户，就明白了。
-- 发布时间：2021/3/4 17:06:00
--
SQL 数据库没有这个问题是吗
-- 发布时间：2021/3/4 17:10:00
--
SQL 数据库支持的用户和连接数比较多，几百个没有问题