导入excel电子表格数据到sqlsever数据库

导入excel电子表格数据到sqlsever数据库

ID:22563528

大小:59.50 KB

页数:5页

时间:2018-10-30

导入excel电子表格数据到sqlsever数据库_第1页
导入excel电子表格数据到sqlsever数据库_第2页
导入excel电子表格数据到sqlsever数据库_第3页
导入excel电子表格数据到sqlsever数据库_第4页
导入excel电子表格数据到sqlsever数据库_第5页
资源描述:

《导入excel电子表格数据到sqlsever数据库》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库

1、导入Excel电子表格数据到SQLSever数据库>>教育资源库<%’OnErrorResumeNext’导入Excel电子表格数据到SQLSever数据库FunctionOpen_Conn(SqlDatabaseName,SqlPasse,SqlLocalName,SqlConn)’创建数据库连接对象并打开数据库连接DimConnStr’SQLServer数据库连接参数:数据库名、用户密码、用户名、连接名(本地用local,外地用IP)ConnStr="Provider=Sqloledb;UserID="SqlUsername";Passp;S

2、qlPassp;";InitialCatalog="SqlDatabaseName";DataSource="SqlLocalName";"SetSqlConn=Server.CreateObject("ADODB.Connection")SqlConn.OpenConnStrIfErrThenErr.ClearSetSqlConn=NothingResponse.P_CnName(NTACT)’根据用户NT帐号得到用户中文名DimSql,RsSql="SelectEMP_AMEFromRF_EMPLOYEEP_NTACT=’"NTACT"’"SetR

3、s=Server.CreateObject("Adodb.RecordSet")Rs.OpenSql,SqlConn,1,1IfRs.EofThenGet_EMP_CnName=""ElseGet_EMP_CnName=Rs("EMP_AME")EndIfRs.CloseSetRs=NothingEndFunction%><html><head><title>导入Excel电子表格数据到SQLSever数据库</title><bodybgcolor="#ACD9AF"><cente

4、r><b>导入Excel电子表格数据到SQLSever数据库</b></center><FORMMETHOD="POST"name="form1">請選擇數據源:<inputtype="file"name="File"size="40"title="请选择需要導出的Excel文件"><inputtype=submitname=submitvalue="開始導出"><br>請選擇目標表:<SELECTNAME="Table"title="请选择需要导入数据的表

5、"><option></option><%DimRsSqlDatabaseTableSetRsSqlDatabaseTable=SqlConn.OpenSchema(20)DooveN123下一页>>>>这篇文章来自..,。ext:LoopSetRsSqlDatabaseTable=Nothing%></SELECT></FORM><fontcolor=blue>導出過程中請不要刷新頁面!</font><br><%IfRight(Trim(Req

6、uest("File")),3)="xls"ThenResponse.AIL:KaxueHotmail.:484110HOMEPAGE:.Flyday.’整理时间:Thursday,May23,20025:54PMicrosoftExcelDriver(*.xls)};"’DBPath="DBQ="Server.MapPath("HRB.xls")DBPath="DBQ="Trim(Request("File"))’调用Open方法打开数据库Conn.OpenDriverDBPath’DSN连接方式’Conn.Open"Dsn=test"’注意表名一定

7、要以下边这种格式 上一页123下一页>>>>这篇文章来自..,。;"[表名$]"书写Fori=1ToUBound(arrSheets)’開始循環所有工作表Sql="SELECT*FROM["arrSheets(i)"$]"SetRs=Conn.Execute(Sql)IfRs.EofAndRs.BofThenResponse.p;arrSheets(i)"</font><br>"Do,EDG_Project_VM_CnName,EDG_Project_M,EDG_Project_M_CnName,EDG_Project_

8、Director,EDG_Project_Director_CnName)Values(’"T

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。