欢迎来到天天文库
浏览记录
ID：22563528
大小：59.50 KB
页数：5页
时间：2018-10-30
《导入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
此文档下载收益归作者所有
