VB.Net把Excel数据导入mssql数据库的实例

二.给非计算级专业的同学的一点建议

1.热爱你的原专业,尤其是自然学课和基础学科，为了计算机放弃他们就如同为了 10 张一

元钱扔掉了一张 100 元一样。

2.计算机是具有学术性和工具性的双重属性学课。架设一做计算级专业与你本专业的桥梁 ，

那对两个专业都是做出了贡献，如果你真的很牛，把计算机学的很深很好，那么你真的值

得尊敬。

3.再次记住做网页，做图片，做 flash，玩游戏，上网，听歌，录 mp3,搞电影字幕，装

windows,改注册表，为软件皮肤……这些不是计算机专业，也挣不到钱。不要让浮躁余功

　　 '导入 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 & ";"

　　　 Response.End

　　 End If

　　 End Function

　　

　　 Function Close_Conn(SqlConn)

　　 '关闭数据库连接并清除数据库连接对象

　　 If IsObject(SqlConn) Then

　　　 SqlConn.Close

　　　 Set SqlConn = Nothing

　　 End If

　　

　　 Call Open_Conn("Shat_EDG","","sa","(local)",SqlConn) '打开本地 SQL Server 数据

　　 Call Open_Conn("Shat_EDG","","sa","ssh03",SqlConn1) '打开远程 SQL Server 数据

库连接

　　

　　 '根据用户 NT 帐号得到用户中文名

　　 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 %>

　　 請選擇數據源（本地库）:

　　 <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 %>

　　 Set RsSqlDatabaseTable1 = SqlConn1.OpenSchema(20)

Response.Write " selected"%>><%=RsSqlDatabaseTable1(2)%></option>

　　 <% RsSqlDatabaseTable1.MoveNext:Loop

　　 Set RsSqlDatabaseTable1 = Nothing %>

　　 </SELECT>

　　 </FORM>

　　 <font color=blue>導出過程中請不要刷新頁面！</font><br>

　　 <%

　　 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,E

DG_Project_M,EDG_Project_M_CnName,EDG_Project_Director,EDG_Project_Director_

CnName) Values ('"&Trim(Rs("工程名称"))&"','"&Trim(Rs("工程编号"))&"','"&Trim(Rs("项

　　　 SqlConn1.Execute(SqlInsert)'插入 Excel 表格裏所有東東

　　　 Loop

　　　 Response.Write "<font color=red>恭喜，成功導出数据！^_^</font><br>"

　　 End If

　　

　　 Rs.Close

　　 Set Rs = Nothing

　　 End If

　　

　　 </body>