利用asp测试导入Excel电子表格数据到SQL Sever数据库
上一篇 / 下一篇 2006-11-09 12:00:54 / 个人分类：技术世界
<% 一缕阳光5q3[
Ubr1hw W7K+O5Q7G3}
'On Error Resume Next 一缕阳光/eRoM:\3d a$M;e"N
'导入Excel电子表格数据到SQL Sever数据库 By Dicky 2004-12-27 16:41:12 QQ:25941 一缕阳光:\L1f|@%R$p
Dy
Function Open_Conn(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,SqlConn)
K1H-B UG4| K0'创建数据库连接对象并打开数据库连接 一缕阳光4u y-` jv-K"F
Dim ConnStr
z/v6@*v,?0~pd
U0'SQL Server数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP） 一缕阳光*zR1K HZG+Kg-H
ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
Au {6R7GrM l0Set SqlConn = Server.CreateObject("ADODB.Connection")
$p6PR
Ng:e x!r/h0SqlConn.Open ConnStr 一缕阳光 jTM.I5c
E[ F
If Err Then 一缕阳光;Z;E-Eu/RE$iS.jy
Err.Clear
(d1i3\NBMU5W|0Set SqlConn = Nothing 一缕阳光!K {M%I:v
Response.Write "数据连接错误!" 一缕阳光8n6_V,[/k.NKH$K_
Response.End
W*?)W M {y6QL Ng0End If
'l {}$y7pd0End Function
Function Close_Conn(SqlConn) 一缕阳光0Xio&h0|&{ Ue"\k
'关闭数据库连接并清除数据库连接对象
?4? X5a;k0If IsObject(SqlConn) Then
FK$E6P3] ZZ!Q H0SqlConn.Close 一缕阳光H1C)r+d{'T s
Set SqlConn = Nothing 一缕阳光 ^3x |X0Z ?:n
End If 一缕阳光d&a
?5f4ppA
End Function
Call Open_Conn("Shat_EDG","","sa","(local)",SqlConn) '打开SQL Server数据库连接
Function Get_EMP_CnName(NTACCNT)
LY
p].N
sj8n~*h0'根据用户NT帐号得到用户中文名 一缕阳光.J7bq%bMr
Dim Sql,Rs 一缕阳光_ K'U8y9^;i aP`B*j
Sql = "Select EMP_CNAME From RF_EMPLOYEE Where EMP_NTACCNT='"&NTACCNT&"'" 一缕阳光jx!E'H9f b
Set Rs = Server.CreateObject("Adodb.RecordSet") 一缕阳光
_!j N @'?LH"}T4a$}z
Rs.Open Sql,SqlConn,1,1
R.W F
t N X;_0If Rs.Eof Then
.n5NgY5q*Sn|0Get_EMP_CnName = "" 一缕阳光 a)b l5A"XV R
Else
k"LX Q ^:_ tK0Get_EMP_CnName = Rs("EMP_CNAME")
.p1O ^4u4jz%ca7l0End If 一缕阳光t7qA X,x;](b"Z1L+Z6P,D+XI
Rs.Close 一缕阳光%Y4YM P,n&p
Set Rs = Nothing 一缕阳光 [,I2XzF
^$z ^
End Function %>
lw'aj.jM SN0<html>
1H:{iUN kH[0<head>
EF1K.F'U0<title>导入Excel电子表格数据到SQL Sever数据库</title>
'kK
A m4\;YnF0<body bgcolor="#ACD9AF">
O'?d+H"l$n{0<center><b>导入Excel电子表格数据到SQL Sever数据库</b></center> 一缕阳光b'C
] x6w
<FORM METHOD="POST" name="form1">
x4yD%` NG
C6h4_0請選擇數據源: <input type="file" name="File" size="40" title="请选择需要導出的Excel文件"> <input type=submit name=submit value="開始導出"> 一缕阳光~3}1e%iKY"f0U
<br>請選擇目標表:
%C:zrTl.G0<SELECT NAME="Table" title="请选择需要导入数据的表"> 一缕阳光5w.d IA Dv6y2x
<option></option> 一缕阳光)? YG^w{}
<% Dim RsSqlDatabaseTable 一缕阳光U
c Zq!\K$J*o
Set RsSqlDatabaseTable = SqlConn.OpenSchema(20) 一缕阳光FE;W)F+d k8T k K(f
Do While Not RsSqlDatabaseTable.Eof %> 一缕阳光R/| | Q:ABH
<option<%If Trim(Request("Table"))=RsSqlDatabaseTable(2) Then Response.Write " selected"%>><%=RsSqlDatabaseTable(2)%></option>
1v,]Vc0uDE0<% RsSqlDatabaseTable.MoveNext:Loop
:v V/U~ r t"mR3t0Set RsSqlDatabaseTable = Nothing %>
y#I K dF D0</SELECT>
,C O2zd.w0</FORM>
P&Y#r _ u2y0<font color=blue>導出過程中請不要刷新頁面！</font><br> 一缕阳光(A X l!o5C-N0Sn$r2z
<% 一缕阳光 iq}B$L Qi&ix
If Right(Trim(Request("File")),3) = "xls" Then
!nx%q?"O d_ cJ0Response.Write "<font color=red>您所導出的Excel文件是："&Trim(Request("File"))&"</font><br>"
u%I!G/F{ | r`0End If
相关阅读:
- 用asp导入Excel电子表格数据到SQL Sever数据库 (jiantian, 2006-11-09)
TAG: 技术世界