网盘应用—Excel数据库开发：[8]慎终承始

1、执行客户端的“单元格变化即时写入数据库”功能十分考量写入速度，是这款软件最重要的一个指标。在小数据量的环境下我们已经体验过：写入的时候几乎感觉不到有停顿——这正是我们所希望的。然而只凭感觉毕竟不够准确，我们需要测试程序运行所需时间。接下来我们需要加大数据量，将数据库记录增加到5000条，用下面的方法测试一次写入动作所需时间。

2、现在我们在Worksheet_Change事件过程的首尾加入下面的语句：

Private Sub Worksheet_Change(ByVal Target As Range)

t = Timer

   ......

MsgBox Timer - t

End Sub

一次写入动作耗时0.531秒。

3、现在我们来分段测试一下（请参考上期程序分段）：

Private Sub Worksheet_Change(ByVal Target As Range)

t = Timer

   '......环境初始化化

MsgBox "环境初始化：" & Timer - t & " 秒"

t = Timer

   '......数据有效性判别

MsgBox "数据有效性判别：" & Timer - t & " 秒"

t = Timer

   '......打开数据库、单元格写入、关闭数据库

MsgBox "打开数据库、单元格写入、关闭数据库：" & Timer - t & " 秒"

t = Timer

   '......重新标色

MsgBox "重新标色:" & Timer - t & " 秒"

End Sub

4、我们看到，数据库记录增加到5000条，一次写入动作总耗时0.531秒（属于可承受范围）。其中数据库打开、关闭耗时占到91%。如果数据库记录增加到1万条以上，一次写入动作总耗时会超过1秒（超出可承受范围了）。

结论：如果有朋友打算依照此模型设计一款实际的应用系统，一定要考虑到数据库记录不能超过1万条，理想状况是5000条以内。