EXCEL批量导入SQL的有关问题
日期：2014-05-17 浏览次数：20455 次
EXCEL批量导入SQL的问题！
本人现在已经实现单个EXCEL表格导入SQL数据库，但是现在的需求要把一个文件夹下的所有Excel表格批量处理导入，求大神帮忙，怎么办！先谢过各位大神了！！！
------解决方案--------------------
来自于网络，供参考：
首先用sql server自身的数据转换功能把excel导入到 sql server中，下面的示例中导入后的表名为：sheet1$，然后我们再从这个库中把数据导入到我们自己的系统的数据表中。（这样一来就是2个sql server表中的数据互相转换的问题了）。总之，2种方法的原理都是先从一个数据源中读出所有数据，然后通过循环，把源数据插入到我们的目标表中。
完整代码如下：
<%
on error resume next
导入excel电子表格数据到sql sever数据库 by dicky 2004-12-27 16:41:12
function 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 function
function close_conn(sqlconn)
关闭数据库连接并清除数据库连接对象
if isobject(sqlconn) then
sqlconn.close
set sqlconn = nothing
end if
end function
call 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 = nothing
end function %>
<html>
<head>
<title>导入excel电子表格数据到sql sever数据库</title>
<body bgcolor="#acd9af">
<center><b>导入excel电子表格数据到sql sever数据库</b></center>
<form method="post" name="form1">
請選擇數據源（本地库）:
<select name="table" title="请选择需要导入数据的表">
<option></option>
<% dim rssqldatabasetable
set rssqldatabasetable = sqlconn.openschema(20)
do while not rssqldatabasetable.eof %>
<option<%if trim(request("table"))=rssqldatabasetable(2) then response.write " selected"%>><%=rssqldatabasetable(2)%></option>
<% rssqldatabasetable.movenext:loop
set rssqldatabasetable = nothing %>
</select><input type=submit name=submit value="開始導出">
<br>請選擇目標表（远程库）:
<select name="table1" title="请选择需要导入数据的表">
<option></option>
<% dim rssqldatabasetable1
set rssqldatabasetable1 = sqlconn1.openschema(20)
do while not rssqldatabasetable1.eof %>
<option<%if trim(request("table1"))=rssqldatabasetable1(2) then response.write " selected"%>><%=rssqldatabasetable1(2)%></option>
<% rssqldatabasetable1.movenext:loop
set rssqldatabasetable1 = nothing %>
</select>
<
本人现在已经实现单个EXCEL表格导入SQL数据库，但是现在的需求要把一个文件夹下的所有Excel表格批量处理导入，求大神帮忙，怎么办！先谢过各位大神了！！！
------解决方案--------------------
来自于网络，供参考：
首先用sql server自身的数据转换功能把excel导入到 sql server中，下面的示例中导入后的表名为：sheet1$，然后我们再从这个库中把数据导入到我们自己的系统的数据表中。（这样一来就是2个sql server表中的数据互相转换的问题了）。总之，2种方法的原理都是先从一个数据源中读出所有数据，然后通过循环，把源数据插入到我们的目标表中。
完整代码如下：
<%
on error resume next
导入excel电子表格数据到sql sever数据库 by dicky 2004-12-27 16:41:12
function 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 function
function close_conn(sqlconn)
关闭数据库连接并清除数据库连接对象
if isobject(sqlconn) then
sqlconn.close
set sqlconn = nothing
end if
end function
call 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 = nothing
end function %>
<html>
<head>
<title>导入excel电子表格数据到sql sever数据库</title>
<body bgcolor="#acd9af">
<center><b>导入excel电子表格数据到sql sever数据库</b></center>
<form method="post" name="form1">
請選擇數據源（本地库）:
<select name="table" title="请选择需要导入数据的表">
<option></option>
<% dim rssqldatabasetable
set rssqldatabasetable = sqlconn.openschema(20)
do while not rssqldatabasetable.eof %>
<option<%if trim(request("table"))=rssqldatabasetable(2) then response.write " selected"%>><%=rssqldatabasetable(2)%></option>
<% rssqldatabasetable.movenext:loop
set rssqldatabasetable = nothing %>
</select><input type=submit name=submit value="開始導出">
<br>請選擇目標表（远程库）:
<select name="table1" title="请选择需要导入数据的表">
<option></option>
<% dim rssqldatabasetable1
set rssqldatabasetable1 = sqlconn1.openschema(20)
do while not rssqldatabasetable1.eof %>
<option<%if trim(request("table1"))=rssqldatabasetable1(2) then response.write " selected"%>><%=rssqldatabasetable1(2)%></option>
<% rssqldatabasetable1.movenext:loop
set rssqldatabasetable1 = nothing %>
</select>
<
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
