欢迎来到天天文库
浏览记录
ID：22563429
大小：59.50 KB
页数：5页
时间：2018-10-30
《导入excel电子表格数据到sql sever数据库--》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、导入Excel电子表格数据到SQLSever数据库>><%’OnErrorResumeNext’导入Excel电子表格数据到SQLSever数据库FunctionOpen_Conn(SqlDatabaseName,SqlPasse,SqlLocalName,SqlConn)’创建数据库连接对象并打开数据库连接DimConnStr’SQLServer数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）ConnStr="Provider=Sqloledb;UserID="SqlUsername";Passp;SqlPassp;";Initial
2、Catalog="SqlDatabaseName";DataSource="SqlLocalName";"SetSqlConn=Server.CreateObject("ADODB.Connection")SqlConn.OpenConnStrIfErrThenErr.ClearSetSqlConn=NothingResponse.P_CnName(NTACT)’根据用户NT帐号得到用户中文名DimSql,RsSql="SelectEMP_AMEFromRF_EMPLOYEEP_NTACT=’"NTACT"’"SetRs=Server.CreateObject("Adodb.
3、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"><center><b>导入Excel电子表格数据到SQLSever数据库&l
4、t;/b></center><FORMMETHOD="POST"name="form1">請選擇數據源:<inputtype="file"name="File"size="40"title="请选择需要導出的Excel文件"><inputtype=submitname=submitvalue="開始導出"><br>請選擇目標表:<SELECTNAME="Table"title="请选择需要导入数据的表"><option></option><%DimRsSqlDataba
5、seTableSetRsSqlDatabaseTable=SqlConn.OpenSchema(20)DooveN123下一页>>>>这篇文章来自..，。ext:LoopSetRsSqlDatabaseTable=Nothing%></SELECT></FORM><fontcolor=blue>導出過程中請不要刷新頁面！</font><br><%IfRight(Trim(Request("File")),3)="xls"ThenResponse.AIL:KaxueHotmail.:484110HOMEPA
6、GE:.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"’注意表名一定要以下边这种格式 上一页123下一页>>>>这篇文章来自..，。;"[表名$]"书写Fori=1ToUBound(arrSheets)’開始循環所
7、有工作表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_Director,EDG_Project_Director_CnName)Values(’"Trim(R
此文档下载收益归作者所有
