快速的数据导入导出

看过很多介绍数据导入导出的例子,结果都速度方面很令人失望

 

有导入DataTable/DataSet,然后逐行导入SQL/ACCESS的  有使用BCP导入的  不知道为什么  就是没有介绍用ACCESS来导入导出的(当然 也可能碰巧我搜索到的都不是)

 

难道大家都没有发现   ACCESS在导入导出方面其实很优秀吗?

 

 

好了 废话不多说   一方面为了给自己今后使用留个备份   一方面也为和我一样需要这个功能的朋友分享一下小小心得  

 

我就直接给核心代码了   很简单

 

首先 添加引用Microsoft Access 11.0 Object Library

 

ACCESS 2003有宏安全性级别这个设置,要是你的安全级别设置的不是低,很可能出现一个打开的确认对话框

 

 '获取当前ACCESS宏安全性级别

           Dim keyValue As String
            keyValue = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security", "Level", "1")

            '将ACCESS宏安全性级别设为1(最低)
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security", "Level", "1", Microsoft.Win32.RegistryValueKind.DWord)

            Dim accApp As New Access.Application
            Try
                accApp.Visible = False
                accApp.OpenCurrentDatabase("ACCESS数据库路径,比如E:\A1.MDB")
                accApp.DoCmd.TransferSpreadsheet(Access.AcDataTransferType.acExport, Access.AcSpreadSheetType.acSpreadsheetTypeExcel4, "ACCESS数据库中的某个表", "要导出到的EXCEL文件路径",True)   '最后一个True表示,Excel文件要不要第一行的列标题
            Catch ex As Exception
                Throw
            Finally
                accApp.Quit()

                '将ACCESS宏安全性级别改为原值
                My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Access\Security", "Level", keyValue, Microsoft.Win32.RegistryValueKind.DWord)
            End Try

 

 

 

以上是利用ACCESS把数据直接导出到EXCEL的用法   大家可以自己做很多其他的功能

配合ACCESS的导入导出规格   可以真正实现极速的从文件文件到数据库的导入功能  

 

 

ACCESS的导入导出功能很强大,值得大家好好发掘一下~~

 

鄙陋之见,请多多指正