知识大全导入Excel电子表格数据到SQL Sever数据库的方法

Posted 2022-07-17 知

篇首语：那些惊艳了你时光的人，不一定能温柔你的岁月。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全导入Excel电子表格数据到SQL Sever数据库的方法相关的知识，希望对你有一定的参考价值。

导入Excel电子表格数据到SQL Sever数据库的方法 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　完整代码如下　　　　<%　　 On Error Resume Next　　导入Excel电子表格数据到SQL Sever数据库 By Dicky : : 　　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 ssh 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 　　 If Rs Eof Then　　　Get_EMP_CnName = 　　 Else　　　Get_EMP_CnName = Rs ( EMP_CNAME )　　 End If　　 Rs Close　　 Set Rs = Nothing　　End Function %>　　<>　　<head>　　<title>导入Excel电子表格数据到SQL Sever数据库</title>　　<body bgcolor= #ACD AF >　　<center><b>导入Excel电子表格数据到SQL Sever数据库</b></center>　　<FORM METHOD= POST name= form >　　请选择数据源（本地库）:　　<SELECT NAME= Table title= 请选择需要导入数据的表 >　　 <option></option>　　<% Dim RsSqlDatabaseTable　　 Set RsSqlDatabaseTable = SqlConn OpenSchema( )　　 Do While Not RsSqlDatabaseTable Eof %>　　 <option<%If Trim(Request( Table ))=RsSqlDatabaseTable( ) Then Response Write selected %>><%=RsSqlDatabaseTable( )%></option>　　<% RsSqlDatabaseTable MoveNext:Loop　　 Set RsSqlDatabaseTable = Nothing %>　　</SELECT><input type=submit name=submit value= 开始导出 >　　<br>请选择目标表（远程库）:　　<SELECT NAME= Table title= 请选择需要导入数据的表 >　　 <option></option>　　<% Dim RsSqlDatabaseTable 　　 Set RsSqlDatabaseTable = SqlConn OpenSchema( )　　 Do While Not RsSqlDatabaseTable Eof %>　　 <option<%If Trim(Request( Table ))=RsSqlDatabaseTable ( ) Then Response Write selected %>><%=RsSqlDatabaseTable ( )%></option>　　<% RsSqlDatabaseTable MoveNext:Loop　　 Set RsSqlDatabaseTable = Nothing %>　　</SELECT>　　</FORM>　　<font color=blue>导出过程中请不要刷新页面！</font><br>　　<%　　If Trim(Request( Table )) <> Then　　 Dim Sql Rs　　 Sql = Select * From Sheet $ 　 Sheet $是我们实现用SQL Server自身数据转换功能得到的表名　　 Set Rs = SqlConn Execute(Sql)　　 If Rs Eof And Rs Bof Then　　　Response write 没有找到您需要的数据!!<br> 　　 Else　　　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( 工程名称 ))& &Trim(Rs( 工程编号 ))& &Trim(Rs( 项目副理 ))& &Trim(Rs( 项目副理 ))& ( &Get_EMP_CnName(Trim(Rs( 项目副理 )))& ) & &Trim(Rs( 项目经理 ))& &Trim(Rs( 项目经理 ))& ( &Get_EMP_CnName(Trim(Rs( 项目经理 )))& ) & &Trim(Rs( 项目总监 ))& &Trim(Rs( 项目总监 ))& ( &Get_EMP_CnName(Trim(Rs( 项目总监 )))& ) & ) 　　　Response Write SqlInsert　　　此处插入的值根据实际数据库结构进行调整　　　 SqlConn Execute(SqlInsert) 插入Excel表格里所有东东　　　Rs MoveNext　　　Loop　　　Response Write <font color=red>恭喜成功导出数据！^_^</font><br> 　　 End If　　　　 Rs Close　　 Set Rs = Nothing　　End If　　　　Call Close_Conn(SqlConn) 关闭Excel数据库连接　　Call Close_Conn(SqlConn ) 关闭SQL Server数据库连接 %>　　</body>　　</> cha138/Article/program/net/201311/12903

知识大全 导入Excel电子表格数据到SQL Sever数据库的方法

知识大全导入Excel电子表格数据到SQL Sever数据库的方法