标题：保存很慢

1楼

longyanlin 发表于：2024/10/25 12:19:00

If Tables("生产主计划").Rows.Count = 0 Then

MessageBox.Show("无内容可以审核")

Return

End If

Dim t As Table = Tables("生产主计划")

For i As Integer = t.TopPosition To t.BottomPosition

t.Rows(i).DataRow("审核") = True

t.Rows(i).Locked = True

t.Save()

用以上代码保存数据，采用的是局域网数据源，每次数据改动按下按钮时，需要十几分钟，请问是什么问题，谢谢

2楼

有点蓝 发表于：2024/10/25 13:58:00

If Tables("生产主计划").Rows.Count = 0 Then

MessageBox.Show("无内容可以审核")

Return

End If

Dim t As Table = Tables("生产主计划")

For i As Integer = t.TopPosition To t.BottomPosition

t.Rows(i)("审核") = True

t.Rows(i).Locked = True

t.Save() '全部处理后保存一次就行了

3楼

longyanlin 发表于：2024/10/26 8:25:00

有的时候很快，但有时候点击后还是会变得很慢，最少都要好几分钟才会动，虽然用的是局域网，但是数据源在我这台电脑上呀，求老师帮忙，要不然这个都没有办法用了，谢谢！

如果不保存的话，其他人又不能看到数据的变化，不知道能不能解决，刚刚测试了下，其中的一张表只有1行数据，点击后也是不动了2分钟

[此贴子已经被作者于2024/10/26 8:30:41编辑过]

4楼

有点蓝 发表于：2024/10/26 8:44:00

使用的access数据库？共享给别人使用的？有几个客户端连接这个数据库？

access的并发数少，也就5个左右，如果连接的客户端多，或者大家都是操作的同一个表多，经常大量加载保存这个表数据的，肯定就会卡。这种建议使用SqlServer

5楼

longyanlin 发表于：2024/10/26 8:51:00

使用的是access数据库，给别人做的，打算5个人使用，目前还没有让别人使用，只是在自己的电脑上测试，如果数据源不是局域网，就在电脑上就没有这个问题

6楼

有点蓝 发表于：2024/10/26 9:02:00

可能网络慢，或者有流量限制。

多人建议使用SqlServer

7楼

longyanlin 发表于：2024/10/26 9:08:00

听说SqlServer是收费的，另外我也不会使用SqlServer这个呀，哎

8楼

有点蓝 发表于：2024/10/26 9:22:00

不会就学。网上有大把教程

微软网站有免费的版本下载，比如2019版：https://www.microsoft.com/zh-CN/download/details.aspx?id=101064

共8 条记录, 每页显示 10 条, 页签: [1]