MSSQL数据库导出到Excel

核心提示：我们可以用一个循环的嵌套来实现导入的过程,过程如下Dim m As IntegerDim n As IntegerDo While mrc.EOF = FalseFor m = 0 To mrc.RecordCount - 1For n = 0 To mrc.Fields.Count - 1xlsheet1.Cells

我们可以用一个循环的嵌套来实现导入的过程,过程如下
Dim m As Integer
Dim n As Integer
Do While mrc.EOF = False
For m = 0 To mrc.RecordCount - 1
For n = 0 To mrc.Fields.Count - 1
xlsheet1.Cells(m + 2, n +1).Value = mrc.Fields(n).Value
Next n
Next m
mrc.MoveNext
Loop
而上面我只用了一句代码: xlsheet1.Range("A2").CopyFromRecordset mrc,他们的作用完全相同,只是后者省去了写代码的时间,更重要的是我们再也不用在m + 2, n + 1等易错地方纠结了.
单一用户登录操作的情况下两种结果是完全一样的.但是,如果有多用户同时操作数据库时,不能保证第一步查询出来的结果和数据库同步,从数据库直接导出的结果可能与显示的结果存在偏差.这样就会使用户对系统可信度产生怀疑.所以我们尽可能按照系统的逻辑需求,严格按照显示结果导出.