VB实现Excel数据导入SQL+Server方法解析.pdf

《VB实现Excel数据导入SQL+Server方法解析.pdf》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、DATABASEANDINFORMATIONMANAGEMENT数据库与信息管理VB实现Excel数据导入SQLServer方法解析李爱华（中国石油长庆油田分公司超低渗透油藏研究中心油藏地质室，西安710021）摘要：基于VisualBasic编程语言，举例说明了Excel数据导入MicrosoftSQLServer数据库常用的3种方法。关键词：VB；Excel；数据导入；SQLServerTheResolutionofExcelDataImportSQLServer’sUsingVBLIAihua（PetrochinaEhangqin

2、gOilfieldCompanyUltra-lowPermeabilityReservoirResearchcentreReservoirGeologyOffice,Xi'an710021）Abstract：ThisarticleisbasedonVBprogramminglanguage,whichillustratesthreewaysofthatExceldataimportMi－crosoftSQLServerdatabase.Keywords：VB;Excel;Dataimport;SQLServer随着计算机及互联网技术的普

3、及，数据网络存取、分散应用已成为目前国内各大中型企业数据库应用的主要途径，数据库系统在办公信息化的应用也越来越广泛，如何将已有的Excel数据自动转入数据库系统已经成为数据转换及应用的焦点，下面就介绍几种使用VB编写数据库程序的方法，以实现本地Excel数据快速批量导入MicrosoftSQLServer网络数据库。1前期准备1.1数据准备为了使示例能够正常运行，需要在本机上安装MicrosoftSQLServer2000数据库、VisualBasic6.0及MicrosoftExcel（版本在2003以上），并准备一个Excel数据文

4、件（必须是数据格式，这里以油田某日的生产数据个别字段为例），格式如表1所示，数据记录数(行)和字段数（列）可根据需要增加。表1数据表井号日期投产日期生产时间采油方式日产液日产油日产水桐24-212010-10-252008-8-1524抽油机4.690.294.4桐24-222010-10-252008-8-1524抽油机2.670.472.2桐24-232010-10-252008-8-1524抽油机2.280.042.241.2界面设计打开VisualBasic6.0应用程序，新建一个工程，在form1中添加3个按钮，将其capti

5、on属性分别设为“Excel数据导入(OpenRowSet)”、“Excel数据导入(OpenDataSource)”和“Ex－cel数据导入(OpenSchema)”，以实现通过按按钮来运行VB代码。为了使示例能够自动选取存在本机上的Excel文件，本例应用了commandialog控件，因此这里需要首先添加相应的部件(详情如图1)，部件添加后，在工具栏里就会出现一个工具，将它添加到form1窗口的任意位置即可，做好的界面如图2所示。双击“Excel数据导入(OpenRowSet)”按钮，在代码编辑器中输入以下代码：图1添加控件Ex

6、cel数据导入SQL方法Excel数据导入（OpenRowSet）Excel数据导入（OpenDataSource）Excel数据导入（OpenSchema）图2示例界面作者简介：李爱华（1975-），女，工程师，研究方向：数据2代码编写库建设及软件开发应用。2.1OpenRowSet方法收稿日期：2010-11-172011009.0241电脑编程技巧与维护PrivateSubcommand1_Click()DimstrconnAsString'定义连接字符串'初始化commandialog1的属性CommonDialog1.Filt

7、er="电子表格文件(.xls)

8、*.xls"CommonDialog1.DialogTitle="请选择要导入的文件"'初始化记录集及连接Setrstemp=CreateObject("ADODB.Recordset")Setconn=CreateObject("adodb.connection")'打开连接，并加参数Strconn="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;password=qaz;InitialCatalog=scsjk;DataSource=

9、(local)"conn.Openstrconn'选取Excel数据文件，文件路径及名称记录在Com'monDialog1.FileName中CommonDialog1.ShowOpen'写SQL语句，数据