导入Excel电子表格数据到SQL Sever数据库的另一种方法

导入Excel电子表格数据到SQL Sever数据库的另一种方法

上次给大家提供了一个从Excel电子表格导入到SQL Server数据库的方法，前提条件是机器上要装有Office 里的Excel组件。今天再为大家提供另一种方法：不需要安装Excel也可以导入到我们的SQL Server数据库。首先用SQL Server自身的数据转换功能把Excel导入到 SQL Server中，下面的示例中导入后的表名为：Sheet1$，然后我们再从这个库中把数据导入到我们自己的系统的数据表中。（这样一来就是2个SQL Server表中的数据互相转换的问题了）。总之，2种方法的原理都是先从一个数据源中读出所有数据，然后通过循环，把源数据插入到我们的目标表中。完整代码如下：

<%'On Error Resume Next'导入Excel电子表格数据到SQL Sever数据库 By Dicky 2004-12-27 16:41:12Function Open_Conn(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,SqlConn)'创建数据库连接对象并打开数据库连接 Dim ConnStr 'SQL Server数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP） ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";" Set SqlConn = Server.CreateObject("ADODB.Connection") SqlConn.Open ConnStr If Err Then Err.Clear Set SqlConn = Nothing Response.Write "数据连接错误!" Response.End End If End FunctionFunction Close_Conn(SqlConn)'关闭数据库连接并清除数据库连接对象 If IsObject(SqlConn) Then SqlConn.Close Set SqlConn = Nothing End IfEnd FunctionCall Open_Conn("Shat_EDG","","sa","(local)",SqlConn) '打开本地SQL Server数据库连接Call Open_Conn("Shat_EDG","","sa","ssh03",SqlConn1) '打开远程SQL Server数据库连接Function Get_EMP_CnName(NTACCNT)'根据用户NT帐号得到用户中文名 Dim Sql1,Rs1 Sql1 = "Select EMP_CNAME From RF_EMPLOYEE Where EMP_NTACCNT='"&NTACCNT&"'" Set Rs1 = Server.CreateObject("Adodb.RecordSet") Rs1.Open Sql1,SqlConn1,1,1 If Rs1.Eof Then Get_EMP_CnName = "" Else Get_EMP_CnName = Rs1("EMP_CNAME") End If Rs1.Close Set Rs1 = NothingEnd Function %>

导入Excel电子表格数据到SQL Sever数据库

請選擇數據源（本地库）: <% Dim RsSqlDatabaseTable Set RsSqlDatabaseTable = SqlConn.OpenSchema(20) Do While Not RsSqlDatabaseTable.Eof %> ><%=RsSqlDatabaseTable(2)%><% RsSqlDatabaseTable.MoveNext:Loop Set RsSqlDatabaseTable = Nothing %>
請選擇目標表（远程库）: <% Dim RsSqlDatabaseTable1 Set RsSqlDatabaseTable1 = SqlConn1.OpenSchema(20) Do While Not RsSqlDatabaseTable1.Eof %> ><%=RsSqlDatabaseTable1(2)%><% RsSqlDatabaseTable1.MoveNext:Loop Set RsSqlDatabaseTable1 = Nothing %>

導出過程中請不要刷新頁面！
<%If Trim(Request("Table1")) <> "" Then Dim Sql,Rs Sql = "Select * From Sheet1$" 'Sheet1$是我们实现用SQL Server自身数据转换功能得到的表名 Set Rs = SqlConn.Execute(Sql) If Rs.Eof And Rs.Bof Then Response.write "没有找到您需要的数据!!
" Else Do While Not Rs.Eof SqlInsert = "Insert Into "&Trim(Request("Table1"))&" (EDG_Project_Name,EDG_Project_No,EDG_Project_VM,EDG_Project_VM_CnName,EDG_Project_M,EDG_Project_M_CnName,EDG_Project_Director,EDG_Project_Director_CnName) Values ('"&Trim(Rs("工程名称"))&"','"&Trim(Rs("工程编号"))&"','"&Trim(Rs("项目副理"))&"','"&Trim(Rs("项目副理"))&"("&Get_EMP_CnName(Trim(Rs("项目副理")))&")"&"','"&Trim(Rs("项目经理"))&"','"&Trim(Rs("项目经理"))&"("&Get_EMP_CnName(Trim(Rs("项目经理")))&")"&"','"&Trim(Rs("项目总监"))&"','"&Trim(Rs("项目总监"))&"("&Get_EMP_CnName(Trim(Rs("项目总监")))&")"&"')" ' Response.Write SqlInsert '此处插入的值根据实际数据库结构进行调整 SqlConn1.Execute(SqlInsert)'插入Excel表格裏所有東東 Rs.MoveNext Loop Response.Write "恭喜，成功導出数据！^_^
" End If Rs.Close Set Rs = NothingEnd IfCall Close_Conn(SqlConn) '关闭Excel数据库连接Call Close_Conn(SqlConn1) '关闭SQL Server数据库连接 %>

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。