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