与ADO操作记录集关联的进度条

zhengjialon

与ADO操作记录集关联的进度条,这是一个利用ADO读取或者操作记录集时同时显示进度的示例，在运行的同时注意状态栏,ACCESS的内置进度条，也在同时进行进度的显示，前提是你在数据库窗口中启用了状态栏。

游客，如果您要查看本帖隐藏内容请回复

huanghai

不错的例子，学习。

Benjamin_luk

The following example creates a snapshot-type Recordset object, reads each record, and displays a progress meter showing the current relative position in the snapshot.Function ReadRecords(strTableName As String) As Integer

Const conBadArgs = -1

Dim dbs As Database, rst As Recordset

Dim lngCount As Long, strMsg As String

Dim varReturn As Variant, lngX As Long



ReadRecords = 0

If strTableName <> "" Then

  DoCmd.Hourglass True

  Set dbs = CurrentDb

  On Error Resume Next

  Set rst = dbs.OpenRecordSet(strTableName)

  ' Get record count.

  rst.MoveLast

  rst.MoveFirst

  If Err Then

   ReadRecords = conBadArgsEnd If

  lngCount = rst.RecordCount

  On Error GoTo 0

  If lngCount Then

   strMsg = "Reading " & UCase$(strTableName) & "..."

   varReturn = SysCmd(acSysCmdInitMeter, strMsg, lngCount)

   ' Display message in status bar.

   For lngX = 1 To lngCount

    varReturn = SysCmd(acSysCmdUpdateMeter, lngX)

   ' Update meter.

    .        ' Do something with record.

    .

    .

    rst.MoveNext    ' Go to next record.Next lngX

   varReturn = SysCmd(acSysCmdClearStatus)

   GoSub CloseObjects

   ReadRecords = lngCount  ' Return number of records.

   Exit Function

  End If

End If

' Not found or contains no records.

strMsg = "Table '" & strTableName & "'not found or contains no records.'"

MsgBox strMsg, vbInformation, "ReadRecords"

GoSub CloseObjects

Exit Function

CloseObjects:

On Error Resume Next

rst.Close

dbs.Close

On Error GoTo 0DoCmd.Hourglass False

Return

End FunctionACCESS97 都有现成的例子,[em01]

tz-chf

如果不用DoEvents，就不能看见效果，跟重画一样。

benlty

值得学习

BILLFEI

:hug: :hug: :hug: :hug: :hug:

xuwenning

学习

ycxchen

学习一下

heqing3000

[:50] [:50]

fengtao666

看看是什么样的