设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 18169|回复: 64

[ADO/DAO] 与ADO操作记录集关联的进度条

[复制链接]

点击这里给我发消息

发表于 2004-8-25 01:10:00 | 显示全部楼层 |阅读模式
与ADO操作记录集关联的进度条,这是一个利用ADO读取或者操作记录集时同时显示进度的示例,在运行的同时注意状态栏,ACCESS的内置进度条,也在同时进行进度的显示,前提是你在数据库窗口中启用了状态栏。

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


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2004-8-25 03:29:00 | 显示全部楼层
不错的例子,学习。
发表于 2004-8-25 17:11:00 | 显示全部楼层
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]
发表于 2005-7-31 19:50:00 | 显示全部楼层
如果不用DoEvents,就不能看见效果,跟重画一样。
发表于 2006-7-19 19:34:00 | 显示全部楼层
值得学习
发表于 2007-11-23 23:28:34 | 显示全部楼层
:hug: :hug: :hug: :hug: :hug:
发表于 2007-11-27 09:47:51 | 显示全部楼层
学习
发表于 2008-10-8 17:51:56 | 显示全部楼层
学习一下

点击这里给我发消息

发表于 2008-10-14 12:40:01 | 显示全部楼层
[:50] [:50]
发表于 2008-11-2 23:32:40 | 显示全部楼层
看看是什么样的
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 06:56 , Processed in 0.114813 second(s), 36 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表