我想在执行这段代码的时候加入进度条，不知道啷个玩，哪位神帮个忙？
Private Sub Cmd_Mail_Click()
   Call Find   
   SendMail Date & "备份文件", "请注意查收并保存", "D:\database.mdb" '发送邮件，文件会越来越大，所以越到后期，执行的时间就越长
 Kill "D:\database.mdb"
End Sub

Sub Find()
Dim TmpPath As String
  conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & App.Path & "D:\database.mdb" & "';Persist Security Info=False"
  conn.Open
  If rst.State = adStateOpen Then rst.Close
       rst.Open "SELECT * FROM MSysObjects ", conn, adOpenKeyset, adLockOptimistic
          For intLoop = 0 To rst.RecordCount - 1
              If rst.Fields("database").Value <> "" Then
                 TmpPath = rst.Fields("database").Value
                 Exit For
              End If
          rst.MoveNext
          Next intLoop
 Set conn = Nothing
 Set rst = Nothing
  If TmpPath <> "" Then
     FileCopyEx TmpPath, "D:\database.mdb"
     Else
     FileCopyEx App.Path & "\datas\data.mdb", "D:\database.mdb"
 End If
End Sub

找错地方了吧

vb?  去vb区文一下。

http://blog.

是VB吗？需不需要将帖子移动到相应的版块？

楼主发完帖就消失了。

是呀，建议去VB坛。

如果精度要很准确的话很难，SQLServer 查询分析器本身也不带进度条、也不预估查询时间，因为实际的查询时间与服务器、网络等都相关的，很难执行一次查询就可预估。
原因是数据库数据的查询不是一维线性的，特别是多表连接的情况下，如果精度要求不高的，用异步方式可以大致显示运算的效率或瓶颈。

好像楼主的帖子走错门上错床，是 VFP 的代码我们可以展开一下。