数据库操作时展示进度条

数据库操作时显示进度条
本帖最后由 bcrun 于 2013-04-05 08:19:01 编辑 我想在数据库查询、插入、更改的过程中，加个进度条，
这进度条应该怎么弄，谢谢
[解决办法]
可以用。

1 声明记录集变量时：

Dim WithEvents rs As ADODB.Recordset

这样，rs 对象变量就带上了事件。

2 见下列事件
Private Sub rs_FetchProgress(ByVal Progress As Long, ByVal MaxProgress As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

End Sub

在事件中将 MaxProgress 赋给 ProgressBar.Max，将 Progress 赋给 ProgressBar.Value。

可以实现查询进度条。