Vb教程 Vb.net教程 Vfp教程 C/C++教程 Vc/Vc++教程 Delphi教程 Java教程 Powerbuilder
  杀毒频道 | 短信频道 | 网络电视 | 论文中心 | 学上网 | 学软件 | 网页特效 | 电脑基础 | 论坛  
  NCRE | 软考 | CET | 职称英语 | 司法考试 | 报关员 | 公务员 | CATTI | CPA考试  
  Html教程 | Css教程 | Xml教程 | Asp教程 | Asp.net | Php教程 | Jsp教程 | Linux教程 | QQ技巧  
Photoshop Illustrator ImageReady Maya教程 3D Max教程 Lightscape Coredraw教程 Authorware Autocad教程 Freehand教程
Access教程 Mysql教程 Sql server Oracle教程 Word教程 Excel教程 Powerpoint Frontpage Asp.net源码 Php源代码
Flash教程 Fireworks Dreamweaver C#教程 outlook教程 系统安装 vbscript教程 Javascript Jsp源代码 Asp源代码
您的位置:首页 >> Vb.net教程 >> 正文

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

文章来源:互联网

完整代码如下:
  
   <%
   'On Error Resume Next
   '导入Excel电子表格数据到SQL Sever数据库 By Dicky 2004-12-27 16:41:12
   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","ssh03",SqlConn1) '打开远程SQL Server数据库连接
  
   Function Get_EMP_CnName(NTACCNT)
   '根据用户NT帐号得到用户中文名
   Dim Sql1,Rs1
   Sql1 = "Select EMP_CNAME From RF_EMPLOYEE Where EMP_NTACCNT='"&NTACCNT&"'"
   Set Rs1 = Server.CreateObject("Adodb.RecordSet")
   Rs1.Open Sql1,SqlConn1,1,1
   If Rs1.Eof Then
    Get_EMP_CnName = ""
   Else
    Get_EMP_CnName = Rs1("EMP_CNAME")
   End If
   Rs1.Close
   Set Rs1 = 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">
   請選擇數據源(本地库):
   <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><input type=submit name=submit value="開始導出">
   <br>請選擇目標表(远程库):
   <SELECT NAME="Table1" title="请选择需要导入数据的表">
   <option></option>
   <% Dim RsSqlDatabaseTable1
   Set RsSqlDatabaseTable1 = SqlConn1.OpenSchema(20)
   Do While Not RsSqlDatabaseTable1.Eof %>
   <option<%If Trim(Request("Table1"))=RsSqlDatabaseTable1(2) Then Response.Write " selected"%>><%=RsSqlDatabaseTable1(2)%></option>
   <% RsSqlDatabaseTable1.MoveNext:Loop
   Set RsSqlDatabaseTable1 = Nothing %>
   </SELECT>
   </FORM>
   <font color=blue>導出過程中請不要刷新頁面!</font><br>
   <%
   If Trim(Request("Table1")) <> "" Then
   Dim Sql,Rs
   Sql = "Select * From Sheet1$" 'Sheet1$是我们实现用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("Table1"))&" (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
    '此处插入的值根据实际数据库结构进行调整
    SqlConn1.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(SqlConn1) '关闭SQL Server数据库连接 %>
   </body>
   </html>

[返回]

编程语言 web开发 数据库 网络技术 操作系统 服务器 网页设计 图形设计 办公软件 常用软件 学电脑

Copyright© www.bianceng.cn Powered by 编程入门网 All Rights Reserved.
关于本站 | 版权声明 | 联系我们 | 友情链接 |
编程入门网 版权所有