| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
Reworld,下班在家制作游戏,1500万奖金等你拿以码会友 以友辅仁
共有 126 人关注过本帖
标题:还是关于进度条的问题!
只看楼主 加入收藏
huangyz_xy
Rank: 1
等 级:新手上路
帖 子:65
专家分:0
注 册:2016-10-2
结帖率:63.64%
  问题点数:0  回复次数:1   
还是关于进度条的问题!
移植了一位大神的代码,但是在实际应用中,真正在执行代码的时候进度条不动作,如果在打开窗体不执行任何操作的时候是可以动作的!是电脑的问题还是资源分配的问题?
附部分代码:
    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    Dim intloop As Integer
    Dim kill    As Integer
    kill = 0
    dBar1.BeginDisplay
    dBar1.SetFocus
    Constr = "Provider=Microsoft.ACE.OLEDB.12.0;;Data Source='" & App.Path & "\datas\Data_Source.mdb" & "';Persist Security Info=False"
    conn.Open Constr
    If rst.State = adStateOpen Then rst.Close
    rst.Open "SELECT * FROM MsysObjects", conn, adOpenKeyset, adLockOptimistic
    .
    .执行大量的导入或者是查询任务
    .
    dBar1.endDisplay
附件: 您没有浏览附件的权限,请 登录注册
搜索更多相关主题的帖子: conn Dim 代码 进度条 执行 
2019-09-29 10:59
wmf2014
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:179
帖 子:1799
专家分:10072
注 册:2014-12-6
  得分:0 
不能绑定数据显示控件,比如datagrid,这些数据显示控件会让数据库自动导入所有数据,让你没有控制权。一般使用msf控件逐条读入记录,可让进度条代码执行。

能编个毛线衣吗?
5 天前 22:45
快速回复:还是关于进度条的问题!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.028802 second(s), 9 queries.
Copyright©2004-2019, BCCN.NET, All Rights Reserved