<%
'On Error Resume Next
'导入Excel电子表格数据到SQL Sever数据库 By Dicky 2004-12-27 16:41:12 QQ:25941
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数据库连接
Function Get_EMP_CnName(NTACCNT)
'根据用户NT帐号得到用户中文名
Dim Sql,Rs
Sql = "Select EMP_CNAME From RF_EMPLOYEE Where EMP_NTACCNT='"&NTACCNT&"'"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,SqlConn,1,1
If Rs.Eof Then
Get_EMP_CnName = ""
Else
Get_EMP_CnName = Rs("EMP_CNAME")
End If
Rs.Close
Set Rs = 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">
請選擇數據源: <input type="file" name="File" size="40" title="请选择需要導出的Excel文件"> <input type=submit name=submit value="開始導出">
<br>請選擇目標表:
<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>
</FORM>
<font color=blue>導出過程中請不要刷新頁面!</font><br>
<%
If Right(Trim(Request("File")),3) = "xls" Then
Response.Write "<font color=red>您所導出的Excel文件是:"&Trim(Request("File"))&"</font><br>"
End If
'=====================ASP读取EXCEL注事项=====================================
'i)将Excel97或Excel2000生成的XLS文件(book)看成一个数据库,其中的每一个工作表(sheet)看成数据库表
'ii)ADO假设Excel中的第一行为字段名.所以你定义的范围中必须要包括第一行的内容
'iii)Excel中的行标题(即字段名)不能够包含数字. Excel的驱动在遇到这种问题时就会出错的。例如你的行标题名为“F1”
'iiii)如果你的Excel电子表格中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常, 处理这一行的数据类型,你必须要保证该列的数据类型一致
'E-MAIL:Kaxue@Hotmail.com QQ:484110 HOMEPAGE:www.Flyday.net
'整理时间:Thursday, May 23, 2002 5:54 PM WIN2000SERVER+IIS5 测式通过
'============================================================================
If Trim(Request("File")) = "" Then
Response.Write "<font color=red>對不起,請選擇需要導出的Excel文件!</font>"
Response.End
ElseIf Right(Trim(Request("File")),3) <> "xls" Then
Response.Write "<font color=red>對不起,請確定您要導出的是Excel文件!</font>"
Response.End
Else
'列出所選擇的Excel文件中的所有工作表
Dim ExeclFile,objExcelApp,objExcelBook
ExeclFile = Trim(Request("File"))
Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Quit
objExcelApp.DisplayAlerts = False '不显示警告
objExcelApp.Application.Visible = False '不显示界面
objExcelApp.WorkBooks.Open(ExeclFile)
set objExcelBook = objExcelApp.ActiveWorkBook
reDim arrSheets(objExcelBook.Sheets.Count)
For i=1 to objExcelBook.Sheets.Count
arrSheets(i) = objExcelBook.Sheets(i).Name
'Response.Write arrSheets(i)
Next
objExcelApp.Quit
Set objExeclApp = Nothing
'列出所選擇的Excel文件中的所有工作表
End If
Dim Conn,Driver,DBPath,Rs,SqlInsert,SqlDelete
'建立Connection对象
Set Conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
'DBPath = "DBQ=" & Server.MapPath( "HRB.xls" )
DBPath = "DBQ=" & Trim(Request("File"))
'调用Open 方法打开数据库
Conn.Open Driver & DBPath
'DSN连接方式
'Conn.Open "Dsn=test"
'注意 表名一定要以下边这种格式 "[表名$]" 书写
For i = 1 To UBound(arrSheets)'開始循環所有工作表
Sql = "SELECT * FROM ["& arrSheets(i) &"$] "
Set Rs = Conn.Execute(Sql)
If Rs.Eof And Rs.Bof Then
Response.write "没有找到您需要的数据!!<br>"
Else
'Response.Write "<font color=blue>工作表:</font><font color=green>"&arrSheets(i)&"</font><br>"
Do While Not Rs.Eof
SqlInsert = "Insert Into "&Trim(Request("Table"))&" (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(0))&"','"&Trim(Rs(1))&"','"&Trim(Rs(2))&"','"&Trim(Rs(2))&"("&Get_EMP_CnName(Trim(Rs(2)))&")"&"','"&Trim(Rs(3))&"','"&Trim(Rs(3))&"("&Get_EMP_CnName(Trim(Rs(3)))&")"&"','"&Trim(Rs(4))&"','"&Trim(Rs(4))&"("&Get_EMP_CnName(Trim(Rs(4)))&")"&"')"
'此处插入的值根据实际数据库结构进行调整
SqlConn.Execute(SqlInsert)'插入Excel表格裏所有東東
Rs.MoveNext
Loop
Response.Write "<font color=red>恭喜,成功導出Excel文件中工作表[</font><font color=blue>"&arrSheets(i)&"</font><font color=red>]的數據到SQL Server數據表[<font color=blue>"&Trim(Request("Table"))&"</font>]中!^_^</font><br>"
End If
Rs.Close
Set Rs = Nothing
Next'循環所有工作表結束
Call Close_Conn(Conn) '关闭Excel数据库连接
Call Close_Conn(SqlConn) '关闭SQL Server数据库连接 %>
</body>
</html>
分享到:
相关推荐
ASP导入Excel电子表格数据到SQL+Sever数据库.rar也是收集来的,不过代码很紧凑好用。谢谢是台湾人写的
SQL Sever数据库
sql sever 数据库 是一个数据库的数据库sql sever 数据库 是一个数据库的数据库sql sever 数据库 是一个数据库的数据库
本资源的是以SQl sever2000为例来介绍关系数据库的有关知识,其中包括了关系数据库的表、视图、以及数据完整性和触发器等内容
数据库文件(四张表)+ER图+sql建库源码+python源码+实验报告 创建数据库,通过python连接后可以实现基本的增删改查功能
清华大学2010年出版SQLSEVER数据库备份文件,不用自己重新输入了,非常方便。
txt中信息例如:姓名、年龄、年级、学号等信息通过java程序导入到SQL数据库中
SQL Sever数据库操作全部代码,全部是自己编写的,很易懂、很实用!!希望能带给您帮助!QQ:514208651,期待与您实战交流
sql sever 数据库实验学习教程 ,提供给大家学习!!!
精简版SQL Server 2005 数据库导出、导入办法 应该有用~
SQL Sever数据库及表操作代码全部
MFC操作SQL Sever数据库
关于如何访问局域网内的sql sever数据库的例子
故若要把excel数据统一管理,能想到的办法之一就是存大数据库, 若要存到数据库,导入、填报, 导入,总不能由IT人员来导吧,必将累死; 填报,要么C#、Java开发个页面,开发?我若是码农,我还会来搜索这个...
SQL_Sever数据库语句大全.zip 具体SQL语句实例如下 获取当前日期的星期 获取某个字段排序的行号 获取数据库所有表和视图的信息 获取月份的月初月末时间 禁用启用触发器 判断是否存在视图(创建视图) 启用服务器...
此压缩包包含一份SQL sever数据库试题以及详细解答。。。。
一种利用VB将SQL Sever数据库数据生成excel报表的方法.pdf