Excel到SQL Server数据库的数据导入导出技术研究

维普资讯 http://www.cqvip.com ５８　计算机与数字工程　第３５卷　Ｅｘｃｅｌ到ＳＱＬ　Ｓｅｒｖｅｒ数据库的数据导人导出技术研究　王晓刚杨春金　（武汉理工大学信息工程学院武汉４３００６３）　摘要介绍Ｄｅｌｐｈｉ中，采用新一代数据访问技术ｄｂＥｘｐｒｅｓｓ和ＯＬＥ技术来实现Ｅｘｃｅｌ数据表到ＳＱＬ　Ｓｅｒｖｅｒ数据库的　ｄｂＥｘｐｒｅｓｓ　ＳＱＬ　ｓｅｒｖｅｒ　Ｅｘｃｅｌ　ＯＬＥ　ＴＰ３１７．３　数据导入和导出，及其在高速公路车辆查询系统中的应用。　关键词中图分类号１　引言　运行ＯＬＥ自动化程序需要在Ｕｓｅｓ语句中加入ｃｏ—　ｍｏｂｊ来开始自动化程序。通过调用ＣｒｅａｔｅＯｌｅＯｂ—　办公自动化信息管理系统的用户常常会遇到　ｊｅｃｔ来检索一个自动化对象，ＣｒｅａｔｅＯｌｅＯｂｊｅｃｔ调用　需要把由Ｅｘｃｅｌ存储的数据资料导入到ＳＱＬ　Ｓｅｒｖｅｒ　大量系统内部的ＯＬＥ函数，创建一个Ｉｄｉｓｐａｔｃｈ的　数据库，同时又要把ＳＱＬ　Ｓｅｒｖｅｒ数据库中的数据导　实例，并从Ｖａｒｉａｎｔ中返回一个Ｄｅｌｐｈｉ变量类型，可　出到Ｅｘｃｅｌ数据表的问题。不同的编程语言有不　以根据不同的环境提供不同的功能，这里我们使用　同的解决方法。本文介绍应用Ｄｅｌｐｈｉ编程来实现　Ｖａｒｉａｎｔ来引用Ｅｘｃｅｌ内部的对象以建立Ｄｅｌｐｈｉ与　Ｅｘｃｅｌ数据表到ＳＱＬ　Ｓｅｖｒｅｒ数据库的数据导入导出　Ｅｘｃｅｌ之间的连接。并采用ｄｂＥｘｐｒｅｓｓ建立Ｄｅｌｐｈｉ　技术。　和ＳＱＬ　Ｓｅｒｖｅｒ之间的连接，来实现Ｅｘｃｅｌ数据表到　ＳＱＬ　Ｓｅｒｖｅｒ数据库的数据导入和导出。　２　基本思路　ＯＬＥ自动化是Ｗｉｎｄｏｗｓ应用程序操纵另一个　３　ｄｂＥｘｐｒｅｓｓ访问ＳＱＬ　Ｓｅｒｖｅｒ技术　ｄｂＥｘｐｒｅｓｓ通过ＴＳＱＬＣｏｎｎｅｃｔｉｏｎ组件同ＳＱＬ　程序的一种机制。被操纵的一方称为自动化服务　器，操纵自动化服务器的一方称为自动化控制器。　Ｓｅｒｖｅｒ数据库进行连接。双击ＴＳＱＬＣｏｎｎｅｃｔｉｏｎ，就　通过引用这些对象实现对自动化服务器的调用，然　会弹出它的组件编辑器，在这个组件编辑器里，我　后通过设置对象的属性和使用对象的方法操纵自　动化服务器，实现两者之问的通讯。　们就可以定义连接数据库的类型，数据库名称，登　陆帐号、密码等信息。以下就是我们连接名为ＤＢ－　ＳＥＲＶＥＲ的数据库服务器的具体情况：　ＤｆｉｖｅｒＮａｍｅ＝ＭＳＳＱＬ／／数据库类型　ＨｏｓｔＮａｍｅ＝ＤＢＳＥＲＶＥＲ／／数据库服务器　Ｄａｔａｂａｓｅ＝ＥＴＥＳＴ／／数据库名　ＵｓｅｒＮａｍｅ＝ｓａ／／登陆帐号　＿Ｄｅｌｐｈｉ在数据库方面提供的强大又富有弹性　的能力给广大编程人员带来了方便。ｄｂＥｘｐｒｅｓｓ是　Ｄｅｌｐｈｉ下一代的数据访问技术。提供高效率数据　访问以及提供跨平台能力的数据访问引擎。ｄｂＥｘ－　ｐｒｅｓｓ包含了７个组件，它们是ＴｓＱＬｃｏｎｎｅｃｔｉｏｎ、　ＴＳＱＬＤａｔａＳｅｔ、ＴＳＱＬＱｕｅｒｙ、ＴＳＱＬＳｔｏｒｅｄＰｒｏｃ、ＴＳＱＬＴ－　Ｐａｓｓｗｏｒｄ＝ｓａ／／登陆密码　ＢｌｏｂＳｉｚｅ＝一１　ａｂｌｅ、ＴＳＱＬＭｏｎｉｔｏｒ和ＴＳｉｍｐｌｅＤａｔａＳｅｔ，这些组件的功　能就是让应用程序连接后端数据库，访问数据表中　ＬｏｃａｌｅＣｏｄｅ＝１９ＯＯＯ　ＭＳＳＱＬ　Ｔｒａｎｓｌｓｏｌａｔｉｏｎ＝ＲｅａｄＣｏｍｍｉｔｅｄ　０Ｓ　Ａｕｔｈｅｎｔｉｃａｔｉｏｎ＝Ｆａｌｓｅ　的数据，把修改的数据更新回数据库中以及让程序　员观察ｄｂＥｘｐｒｅｓｓ向后端数据库下达命令等。　在连接上数据库以后，ｄｂＥｘｐｒｅｓｓ提供了两种　ｍｐｌｅＤａｔａＳｅｔ组件；二是使用　Ｄｅｌｐｈｉ完全支持ＯＬＥ应用程序自动化，提供的　方法：一是使用ＴＳｉａＳｅｔ搭配ＴＤａｔａＳｅｔＰｒｏｖｉｄｅｒ和ＴＣｌｉｅｎｔＤａｔａ－　Ｓｅｒｖｅｒｓ栏控件可以很容易开发ＯＬＥ自动化控制器　ＴＳＱＬＤａｔｔ组件来对数据库进行访问。在实现简单数据访　实现对ＯＬＥ自动化服务器的调用。在Ｄｅｌｐｈｉ内部　Ｓｅ收到本文时间：２００６年６月８日　作者简介：王晓刚，男，硕士研究生，研究方向：网络设计及信息管理。杨春金，男，副教授，研究方向：信号与信息处理。　维普资讯 http://www.cqvip.com 第３５卷（２００７）第３期　计算机与数字工程　５９　问操作中，这两种方法在功能上几乎是一模一样　作较复杂的Ｅｘｃｅｌ数据表，创建Ｅｘｃｅｌ对象的过程　的，但是在有高性能要求的应用中，就需要使用第　是在后台运行，避免用户在自动化运行期间干预　二种方法来实现对数据库的访问。本文只涉及简　单的数据访问功能，所以采用第一种方法来实现对　Ｅｘｃｅｌ，而出现误操作。　主要代码的实现：　在前面的Ｆｏｒｍ中添加ＥｘｃｅｌＡｐｐｌｉｃａｔｉｏｎ、Ｅｘｃｅｌ－　　打开连接　数据库的访问操作。定义待访问的数据表名为　４．１‘ＣＳＢＹ’，则具体的操作步骤如下：　（１）在Ｆｏｒｍ中放置ＴＳＱＬＣｏｎｎｅｃｔｉｏｎ组件，按　Ｗｏｒｋｂｏｏｋ和ＥｘｃｅｌＷｏｒｋｓｈｅｅｔ三个控件。然后打开　照连接数据库的方法建立与ＳＱＬ　Ｓｅｒｖｅｒ数据库的　Ｅｘｃｅｌ应用程序，创建一个工作薄，如果打开工作薄　连接，设置该组件的Ｃｏｎｎｅｃｔｅｄ属性为Ｔｒｕｅ以打开　失败，就断开与Ｅｘｃｅｌ的连接，然后关闭Ｅｘｃｅｌ应用　连接，ＬｏｇｉｎＰｒｏｍｐｔ属性为Ｆａｌｓｅ以避免每次连接数　据库时都出现登陆框，设置Ｎａｍｅ属性为ＳＱＬＣｏｎ—　ｎｅｃｔｉｏｎｌ　ｏ　（２）在Ｆｏｒｍ中放置ＴＳｉｍｐｌｅＤａｔａＳｅｔ组件，设置　该组件的Ｃｏｎｎｅｃｔｉｏｎ属性为ＳＱＬＣｏｎｎｅｃｔｉｏｎｌ，Ｄａｔａ—　Ｓｅｔ．ＣｏｍｍａｎｄＴｅｘｔ为‘ｓｅｌｅｃｔ　ｆｒｏｍ　ＣＳＢＹ’，设置　Ｎａｍｅ属性为ＳｉｍｐｌｅＤａｔａＳｅｔｌ。　（３）在Ｆｏｒｍ中放置ＴＤａｔａＳｏｕｒｃｅ组件，设置该　组件的ＤａｔａＳｅｔ属性为ＳｉｍｐｌｅＤａｔａＳｅｔｌ，设置Ｎａｍｅ　属性为ＤａｔａＳｏｕｒｃｅ１　ｏ　（４）在Ｆｏｒｍ中放置ＴＤＢＧｆｉｄ组件，设置该组件　的ＤａｔａＳｏｕｒｃｅ属性为ＤａｔａＳｏｕｒｃｅ１，设置Ｎａｍｅ属性　为ＤＢＧ６ｄｌ，表ＣＳＢＹ中的数据将显示在ＴＤＢＧｎｄ　组件中。　４　Ｅｘｃｅｌ数据表到ＳＱＬ　Ｓｅｒｖｅｒ数据库　的数据导入导出技术的应用：　在襄十高速公路车辆查询系统中，有很多由　Ｅｘｃｅｌ数据表存储的数据资料需要导入到ＳＱＬ　Ｓｅｒｖｅｒ数据库中，例如《载货类汽车质量参数调整　更正表》就需要导入到ＳＱＬ　Ｓｅｒｖｅｒ数据库中以便用　来查询。如果由人工录入，工作量太大。解决的方　法有两种，一是利用ＳＱＬ　Ｓｅｒｖｅｒ企业管理器的导人　导出向导功能直接将Ｅｘｃｅｌ数据表中的数据导人　到ＳＱＬ　Ｓｅｖｒｅｒ数据库中，但是这样数据库将暴露在　普通用户面前，一旦用户误操作，就会造成很大的　损失。二是在襄十高速公路车辆查询系统中实现　数据导入的功能，这样可以避免数据库直接面向普　通用户。这里采用方法二来实现数据导入功能。　襄十高速公路车辆查询系统查询出来的结果　需要导出到Ｅｘｃｅｌ数据表中，以报表的形式向上提　交。这就需要在襄十高速公路车辆查询系统中实　现能够将ＳＱＬ　Ｓｅｒｖｅｒ数据库中的数据导出到Ｅｘｃｅｌ　数据表中的功能。能够实现这个功能的方法很多，　本文采用预先设置好Ｅｘｃｅｌ模板，然后再将数据导　入到模板中的方法。这种方法灵活、方便，可以制　程序。　源程序如下：　Ｖａｒ　ｗｋｂｋ：Ｗｏｒｋｂｏｏｋ；／／用于表示打开的工作薄，与ｅｘｃ　ｌ应用连接　ｂｅｇｉｎ　ＯｐｅｎＤｉａｌｏｇ１．ＩｎｉｔｉａｌＤｉｒ：＝ｅｘｔｒａｃｔＦｉｌｅＤｉｒ（ｐａｒａｍｓｔｒ（ｏ））；／／Ｅｘｃｅｌ　文件打开的初始路径　ｉｆ　ｎｏｔ（ＯｐｅｎＤｉｌａｏｇ１．Ｅｘｅｃｕｔｅ）ｔｈｅｎ　ｒａｉｓｅ　ｅｘｃｅｐｔｉｏｎ．Ｃｒｅａｔｅ（‘没有选择ＥＸＣＥＬ文件！’）；　ｔｒｙ／／调用Ｃｏｎｎｅｃｔ方法，连接Ｅｘｃｅｌ　ＥｘｃｅｌＡｐｐｌｉｃａｔｉ０ｎ１．Ｃｏｎｎｅｃｔ；　Ｅｘｃｅｐｔ　ｓｈｏｗｍｅｓｓａｇｅ（‘Ｍｉｃｒｏｓｏｆｔ　Ｅｘｃｅｌ启动失败！’）；　ｅｘｉｔ；　ｅｎｄ；　ＥｘｃｅｌＡｐｐｌｉｃａｔｉ０ｎ１．Ｖｉｓｉｂｌｅ［０］：＝ｆａｌｓｅ；／／设置ＥＸＣＥＬ不可见　Ｅｘｃ　ｅｌＡｐｐｌｉｃａｔｉ０ｎ１．Ｗｏｒｋｂｏｏｋｓ．Ａｄｄ（ＥＰａｒａｍ，０）；／／打开选择的　Ｅｘｃｅｌ文件　／／ＥｘｃｅｌＷｏｒｋｂｏｏｋｌ与ＥｘｃｅｌＡｐｐｌｉｃａｔｌｏｎｌ建立连接　ＥｘｃｅｌＷｏｒｋｂｏｏｋ１．　ＣｏｎｎｅｃｔＴｏ（ＥｘｃｅｌＡｐｐｌｉｃａｔｉ０ｎ１．　ＡｃｔｉｖｅＷｏｒｋ—　ｂｏｏｋ）；　／／ＥｘｃｅｌＷｏｒｋｓｈｅｅｔｌ与ＥｘｃｅｌＷｏｒｋｂｏｏｋｌ建立连接　ＥｘｃｅＩＷｏｒｋｓｈｅｅｔ１．ＣｏｎｎｅｃｔＴｏ（ＥｘｃｅｌＷｏｒｋｂｏｏｋ１．Ｗｏｒｋｓｈｅｅｔｓ［１］ａｓ　—ｗｏｒｋｓｈｅｅｔ）；　ｅｎｄ；　Ｓｅｒｖｅｒ数据库　取出Ｅｘｃｅｌ数据表的每一行信息插入到已建　好的，名为“ＣＳＢＹ”的ＳＱＬ　Ｓｅｒｖｅｒ数据表中。为了　保护数据的完整性，利用ＴＳＱＬＣｏｎｎｅｃｔｉｏｎ的Ｓｔａｒｔ－　Ｔｒａｎｓａｃｔｉｏｎ方法激活一个独立的数据库事务，以确　保在ＳＱＬ　Ｓｅｒｖｅｒ数据表更新出现错误的时候，能够　调用ＴＳＱＬＣｏｎｎｅｃｔｉｏｎ的Ｒｏｌｌｂａｃｋ方法将ＳＱＬ　Ｓｅｒｖｅｒ　数据表恢复到进行更新操作之前的状态。　源程序如下：　ｖａｒ　ｉ：ｉｎｔｅｇｅｒ；　ａＴＤ：ＴＹｒａｎｓａｃｔｉｏｎＤｅｓｃ；／／定义一个描述事务内容的参数　Ｓｈｅｅｔ，ＴｅｍｐＳｈｔ：ｖａｒｉａｎｔ；　ｂｅｇｉｎ　ａＴＤ．ＴｒａｎｓａｃｔｉｏｎＩＤ：＝１；／／指定事务的ＩＤ　ａＴＤ．１ｓｏｌａｔｉ０ｎＬｅｖｅｌ：：ｘｉｌＲＥＡＤＣＯＭＭＩＴＹＥＤ；／／指定事务的级别　４．２　Ｅｘｃｅｌ数据表的数据导入到ＳＱＬ　维普资讯 http://www.cqvip.com ６０　王晓刚等：Ｅｘｃｅ１到ＳＱＬ　Ｓｅｒｖｅｒ数据库的数据导入导出技术研究　ｂｙｎａｍｅ（‘ｃｓｌ’）．ＡｓＳｔｒｉｎｇ；　第３５卷　ＴｅｍｐＳｈｔ：＝ＥｘｃｅｌＡｐｐｌｉｃａｔｉｏｎ１．Ｓｈｅｅｔｓ；　ＴｅｍｐＳｈｔ．ｉｔｅｍ［１］．Ａｃｔｉｖａｔｅ；　Ｓｈｅｅｔ：＝Ｔｅｍ０ｓｈｔ．ｉｔｅｍ［１］．ＵｓｅｄＲａｎｇｅ；　Ｆｏｒ　ｉ：＝１　ｔｏ　Ｓｈｅｅｔ．Ｒｏｗｓ．Ｃｏｕｎｔ　ｄｏ　ｂｅｇｉｎ　ＳｉｍｐｌｅＤａｔａＳｅｔ１．Ｎｅｘｔ；　ｅｎｄ；　４．４　关闭Ｅｘｃｅｌ。调用ＴＥｘｃｅｌＡｐｐｌｉｃａｔｉ０ｎ组件的　ＤｉｓＣｏｎｎｅｃｔ方法和ｑｕｉｔ方法，断开与Ｅｘｃｅｌ的　连接。　ＳｉｍｐｌｅＤａｔａＳｅｔ１．ｉｎｓｅｒｔ；　ＳｉｍｐｌｅＤａｔａＳｅｔ１．ＦｉｅｌｄＢｙＮａｍｅ（‘ｃｓｌ’）．Ａｓｌｎｔｅｇｅｒ：＝ＥｘｃｅｌＷｏｒｋ．　ｓｈｅｅｔ１．Ｃｅｌｌｓ．Ｉｔｅｍ［ｉ，１］；　源程序如下：　ＳｉｍｐｌｅＤａｔａＳｅｔ１．ｅｄｉｔ；　ｔｒｙ　ＥｘｃｅｌＡｐｐｌｉｃａｔｉｏｎ１．Ｄｉｓｃｏｎｎｅｃｔ；／／调用ＤｉｓＣｏｎｎｅｃｔ方法，断开与　Ｅｘｃｅｌ的连接　ｔｒｙ　ＳＱＬＣｏｎｎｅｃｔｉｏｎ１．ＳｔａｒｔＴｒａｎｓａｃｔｉｏｎ（ａＴＤ）；／／开始这个事务　ＳｉｍｐｌｅＤａｔａＳｅｔ１．ＡｐｐｌｙＵｐｄａｔｅｓ（０）；　ＳＱＬＣｏｎｎｅｃｔｉｏｎ１．Ｃｏｍｍｉｔ（ａＴＤ）；　ｅｘｃｅｐｔ　ＥｘｃｅｌＡｐｐｌｉｃａｔｉｏｎ１．ｑｕｉｔ；／／调用ｑｕｉｔ方法关闭Ｅｘｃｅｌ　ｅｘｃｅｐｔ　ｓｈｏｗｍｅｓｓａｇｅ（‘关闭Ｍｉｃｒｏｓｏｆｔ　Ｅｘｃｅｌ失败！’）；　ｅｎｄ；　ＳＱＬＣｏｎｎｅｃｔｉｏｎ１．Ｒｏｌｌｂａｃｋ（ａＴＤ）；／／若发生错误，将数据回滚　ｅｎｄ；　ｅｎｄ；　ｅｎｄ；　５　结束语：　实现ＳＱＬ　Ｓｅｒｖｅｒ数据库到Ｅｘｃｅｌ数据表的数据　４．３　ＳＱＬ　Ｓｅｒｖｅｒ数据库中的数据导出到Ｅｘｃｅｌ数　导人导出功能。数据导人导出功能简化了数据录　据表中　入的工作，降低了建立数据库的工作量，同时也很　向预设的Ｅｘｃｅｌ模板中写入数据，就是利用　ＥｘｃｅｌＷｏｒｋｓｈｅｅｔ的Ｃｅｌｌｓ属性添加数值的过程。　源程序如下：　Ｖａｒ　好的实现了报表输出功能。　参考文献　［１］李维著，Ｄｅｌｐｈｉ７高效数据库程序设计［Ｍ］．机械工业　出版社，２００３　ｉ，ｎ：ｉｎｔｅｇｅｒ；　ｅｇｂｉｎ　ＳｉｍｐｌｅＤａｔａＳｅｔ１．Ａｃｔｉｖｅ＝Ｔｒｕｅ；／／打开数据集　ｆ０ｒ　ｉ：＝１　ｔｏ　ｎ　ｄｏ　［２］Ｍａｒｃｏ　Ｃａｎｔｕ，罗征译，Ｄｅｌｐｈｉ７从入门到精通［Ｍ］．电　子工业出版社，２００３　ｅｇｂｉｎ　［３］Ｊｅｆｆｒｅｙ　Ｒｉｃｈｔｅｒ，王建华译，Ｗｉｎｄｏｗｓ核心编程［Ｍ］．机　械工业出版社，２０００　ＥｘｃｅｌＷｏｒｋｓｈｅｅｔ１．Ｃｅｌｌｓ．Ｉｔｅｍ［ｉ，１］：＝ＳｉｍｐｌｅＤａｔａＳｅｔ１．ｆｉｅｌｄ－　矫　　．矫　’　币　不　乖　．　：　乖　不　．　２：　！绵　（上接第２１页）　数字签名。　网上报税数字签名：　数），并通过设立大特征素数，很大程度地缩小了寻　找大安全素数范围。缩短了寻找大素数的时间，减　少了寻找大安全素数Ｐ和ｑ的繁杂度，优化了寻找　纳税人先与税务机关签订网上申报协议，同时　大安全素数Ｐ和ｑ的方法。上述方法已经采用Ｃ　获取税务局公钥和客户端软件。网上申报时，通过　语言编制程序完全实现，可在很短的时间内产生安　税务机关网上报税服务器进入网上报税模块。网　全素数。并通过引入ＲＳＡ公钥密码体制对中国税　０版改进，在【申报征收】子系　上报税模块调用【申报征收】子系统中相关模块进　收征管信息系统Ｖ２．采用此　入网上申报，申报完毕确认后产生回执，并调用【网　统中增加【网上报税数字签名】功能模块，上报税数字签名】模块利用ＲＳＡ加密软件对网上　快速寻找大安全素数方法来产生ＲＳＡ所需要的素　报税回执内容加密处理形成数字签名，附在申报回　数，实现电子网上报税数字签名，使网上报税数字　执的后面。纳税人可以使用税务局提供的签名验　签名与税收征管信息系统一体化。既降低了税收　成本，又方便了纳税人，减轻了纳税人负担，有利于　电子网上申报的拓展。　参考文献　证工具输入税务局公钥进行解密验证。　６　结束语　［１］卢开澄．计算机密码学［ＭＪ．第２版，清华大学出版社，１９９８　运用素数的陈氏表示法“１＋２”，即一个素数可　［２］Ｂｒｕｃｅ　Ｓｃｈｎｅｉｅｒ著．吴世忠等译．应用密码学［Ｍ］．机械　表示一个偶数和另一素数之和Ｐ＝ａ（ａ＋１）＋ｂ（素　工、ｌ　出版社，２０００