求助,从excel导入数据时显示进度条

2010-05-09 08:21:29 454 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

在ASP.NET中将Excel文件中数据导入数据库并显示进度条在ASP.NET中经常会遇到Excel文件导入数据库的问题，遇到数据量比较大的时候，最好显示进度条。进度条设计是参考网上某牛人提供的代码，利用JS实现的，谢谢这个大牛了（忘记了当时记录下他的大名了，:(）。具体思路：首先将后台服务器上ProgressBar.htm 页面内容（其中有html和js代码）完全读取出来，并write到前台。然后在数据导入前，添加js调用，如下： jsBlock = ""; Response.Write(jsBlock); Response.Flush();其次，在处理每条数据导入阅读详情

在下面这段代码中该如何加入进度条,我不要假的那种,我要能够真正的计算出导入所需时间的那种
Private Sub Command1_Click() '导入excel
Me.Labbegin.Caption = "数据正在加载中,请稍等"
Display '调用显示全局
With Md1 '清除网络还有记录以便下次导入
For i = 1 To Me.Md1.Rows - 1 '对I进行赋值
.TextMatrix(i, 1) = ""
.TextMatrix(i, 2) = ""
.TextMatrix(i, 3) = ""
.TextMatrix(i, 4) = ""
.TextMatrix(i, 5) = ""
.TextMatrix(i, 6) = ""
.TextMatrix(i, 7) = ""
.TextMatrix(i, 8) = ""
.TextMatrix(i, 9) = ""
.TextMatrix(i, 10) = ""
.TextMatrix(i, 11) = ""
.TextMatrix(i, 12) = ""
.TextMatrix(i, 13) = ""
.TextMatrix(i, 14) = ""
.TextMatrix(i, 15) = ""
.TextMatrix(i, 16) = ""
.TextMatrix(i, 17) = ""
.TextMatrix(i, 18) = ""
Next i
End With
'判断记录是否符合标准
If Me.Combo1.Text = "" Then
MsgBox "请选择您要导入的Excel工作表!", vbInformation, "系统提示"
Exit Sub
End If
'打开excel并导入
cnt.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & Me.Text1.Text & ";Extended Properties='Excel 8.0;HDR=Yes'"
cnt.Open
rst.Open "select * from [" & Me.Combo1.Text & "$]", cnt, adOpenKeyset, adLockOptimistic
If Not rst.BOF Then rst.MoveFirst
GETDATA '调用全局赋值
cnt.Close '关闭打开的excel
Me.Picdata.Visible = False
End Sub

...全文