如何将表中的数据导出到电子表格中

页面导航:首页 > 软件编程 > vb.net > 如何将表中的数据导出到电子表格中

如何将表中的数据导出到电子表格中

来源: 作者: 时间:2016-02-05 12:32 【

有很多方法都可将数据库中某个表的数据导出到电子表格中,例如通过创建Access.Application,可以利用Access本身的导出功能实现将表中的数据导出到电子表格中。但是这种方法会占用较多

 

 

有很多方法都可将中某个表的数据导出到电子表格中,例如通过创建Access.Application,可以利用Access本身的导出功能实现将表中的数据导出到电子表格中。但是这种方法会占用较多的资源,并且缺乏通用性。如果一个数据库没有导出的功能怎么办?下面的这段程序代码利用记录集实现导出的功能,这种做法的好处是显而易见的:你可以控制要导出的数据,而不用将整个表的内容都导出到电子表格中。为简单起见下面的程序代码仍将整个表的数据导出到电子表格中。如果你有兴趣的话,对下面的代码稍加改动就可做成更为通用的一个类或是一个控件。

 

首先在窗体上添加一个标签控件和一个命令按钮,然后在工程中添加对DAO引用。利用下面的程序代码就可将表中的数据导出到电子表格中。

 

Option Explicit

 

Private Sub Command1_Click()

        Dim tempDB As Database

        Dim i As Integer           循环计数器

        Dim j As Integer

        Dim rCount As Long         记录的个数

        Dim xl As Object           OLE自动化对象

        Dim Sn As Recordset

        Screen.MousePointer = 11

        Label1.Caption = "打开数据库..."

        Label1.Refresh

        Set tempDB = Workspaces(0).OpenDatabase("Nwind.mdb")

        Label1.Caption = "创建Excel对象..."

        Label1.Refresh

        Set xl = CreateObject("Excel.Sheet.8")

        Label1.Caption = "创建快照型记录集..."

        Label1.Refresh

        Set Sn = tempDB.OpenRecordset("Customers", dbOpenSnapshot)

 

         If Sn.RecordCount > 0 Then

            Label1.Caption = "将字段名添加到电子表格中"

            Label1.Refresh

            For i = 0 To Sn.Fields.Count - 1

                xl.Worksheets(1).cells(1, i + 1).Value = Sn(i).Name

            Next

            Sn.MoveLast

            Sn.MoveFirst

            rCount = Sn.RecordCount

            在记录中循环

            i = 0

            Do While Not Sn.EOF

                Label1.Caption = "Record:" & Str(i + 1) & " of" & _

                Str(rCount)

                Label1.Refresh

                For j = 0 To Sn.Fields.Count - 1

                   加每个字段的值加到工作表中

                   If Sn(j).Type < 11 Then

Tags:

相关文章

    文章评论

    
    <