VB快速导出数据库数据

快速导出

一般的导出操作性能方面很慢

亲爱的读者您好 我是阿姜这里记录了我在开发过程中的经验总结，在用vb开发的过程中我们总是发现资料很少，但不得不说vb6.0这个语言编辑器除了不能滚动和不能保存比较坑以外其他的都还ok。接下来我分享一下我导出数据库到excel的心得。

导入excel的模块

在菜单栏的"工程"选项下再选择"引用",找到“Microsoft Excel 9.0 Object Library”勾选后就是导入了excel的模块了：

1. 下一步 ，在需要导出的事件过程里首先执行sql的搜索语句，将数据库里的内容放到set的变量中；

2. Dim Irowcount As Integer
   Dim Icolcount As Integer

   Dim xlapp As New Excel.Application
   Dim xlbook As Excel.Workbook
   Dim xlsheet As Excel.Worksheet
   Dim xlQuery As Excel.QueryTable
   With strRst
   If .RecordCount < 1 Then
   MsgBox (“没有记录!”)
   End If
   '记录总数
   Irowcount = .RecordCount
   '字段总数
   Icolcount = .Fields.Count
   End With

   Set xlapp = CreateObject(“Excel.Application”)
   Set xlbook = Nothing