7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Lukeskywalker 2005-12-01
- 打赏
- 举报
或者可以打开一个窗体，当数据导入完成时就自动关闭！
northwolves 2005-11-30
- 打赏
- 举报
Use the ADO FetchProgress and FetchComplete Events
Article ID: Q262311
http://support.microsoft.com/support/kb/articles/Q262/3/11.ASP
Hope this helps.
Article ID: Q262311
http://support.microsoft.com/support/kb/articles/Q262/3/11.ASP
Hope this helps.
qingyun67 2005-11-30
- 打赏
- 举报
up
Lukeskywalker 2005-11-30
- 打赏
- 举报
我是将Excel表导入到Sql中，没有用到循环。
Dim strSQL As String
strSQL = "SELECT * INTO [Excel 8.0;Database=" & App.Path & _
"\book1.xls].[Sheet1] FROM Customers"
cnSrc.Execute strSQL
Dim strSQL As String
strSQL = "SELECT * INTO [Excel 8.0;Database=" & App.Path & _
"\book1.xls].[Sheet1] FROM Customers"
cnSrc.Execute strSQL
Lukeskywalker 2005-11-30
- 打赏
- 举报
还有其他更好的方法吗！
bobdog1215 2005-11-30
- 打赏
- 举报
很简单的 看看Msdn就知道了
设置一下最小值 最大值就是需要导入的记录总数
每导一条记录value加1
设置一下最小值 最大值就是需要导入的记录总数
每导一条记录value加1
ineedchrist 2005-11-30
- 打赏
- 举报
设置进度条的max是记录数，导一条，value加1
