欢迎来到天天文库
浏览记录
ID：22945379
大小：59.00 KB
页数：5页
时间：2018-11-02
《导入excel电子表格数据到sqlsever数据库的另一种方法》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、导入Excel电子表格数据到SQLSever数据库的另一种方法>>教育资源库上次给大家提供了一个从Excel电子表格导入到SQLServer数据库的方法，前提条件是机器上要装有Office里的Excel组件。今天再为大家提供另一种方法：不需要安装Excel也可以导入到我们的SQLServer数据库。首先用SQLServer自身的数据转换功能把Excel导入到SQLServer中，下面的示例中导入后的表名为：Sheet1$，然后我们再从这个库中把数据导入到我们自己的系统的数据表中。（这样一来就是2个SQLServer表中的数据互相转换的问题了）。总之，
2、2种方法的原理都是先从一个数据源中读出所有数据，然后通过循环，把源数据插入到我们的目标表中。完整代码如下：<%’OnErrorResumeNext’导入Excel电子表格数据到SQLSever数据库ByDicky2004-12-2716:41:12FunctionOpen_Conn(SqlDatabaseName,SqlPasse,SqlLocalName,SqlConn)’创建数据库连接对象并打开数据库连接DimConnStr’SQLServer数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）ConnStr=
3、"Provider=Sqloledb;UserID="SqlUsername";Passp;SqlPassp;";InitialCatalog="SqlDatabaseName";DataSource="SqlLocalName";"SetSqlConn=Server.CreateObject("ADODB.Connection")SqlConn.OpenConnStrIfErrThenErr.ClearSetSqlConn=NothingResponse.P_CnName(NTACT)’根据用户NT帐号得到用户中文名DimSql1,Rs1Sql1=
4、"SelectEMP_AMEFromRF_EMPLOYEEP_NTACT=’"NTACT"’"SetRs1=Server.CreateObject("Adodb.RecordSet")Rs1.OpenSql1,SqlConn1,1,1IfRs1.EofThenGet_EMP_CnName=""ElseGet_EMP_CnName=Rs1("EMP_AME")EndIfRs1.CloseSetRs1=NothingEndFunction%><html><head><title>导入Excel电子表格数据到SQL
5、Sever数据库</title><bodybgcolor="#ACD9AF"><center><b>导入Excel电子表格数据到SQLSever数据库</b></center><FORMMETHOD="POST"name="form1">請選擇數據源（本地库）:<SELECTNAME="Table"title="请选择需要导入数据的表"><option></option><%DimRsSqlDatabaseTableSetRs
6、SqlDatabaseTable=SqlConn.OpenSchema(20)DoWhileNotRsSqlDatabaseTa12下一页>>>>这篇文章来自..，。ble.Eof%><option<%IfTrim(Request("Table"))=RsSqlDatabaseTable(2)ThenResponse.oveNext:LoopSetRsSqlDatabaseTable=Nothing%></SELECT><inputtype=submitname=submitvalue="開始導出">&
7、lt;br>請選擇目標表（远程库）:<SELECTNAME="Table1"title="请选择需要导入数据的表"><option></option><%DimRsSqlDatabaseTable1SetRsSqlDatabaseTable1=SqlConn1.OpenSchema(20)DooveNext:LoopSetRsSqlDatabaseTable1=Nothing%></SELECT></FORM><fontcolor=blue>導出過程中請不要刷新
8、頁面！</font><br><%IfTrim(Request("Table1"
此文档下载收益归作者所有
