<% 一缕阳光I I&B1O f M!w |J
'On Error Resume Next 一缕阳光bR T)_%M{m
'导入Excel电子表格数据到SQL Sever数据库 By Dicky 2004-12-27 16:41:12 QQ:25941 一缕阳光.sGw,lN0g.Xj
Function Open_Conn(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,SqlConn)
b1K"|5dL.x$Q+U&hb9G0'创建数据库连接对象并打开数据库连接
2@1R+x3w+i0Dim ConnStr
"Q B B[0'SQL Server数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP） 一缕阳光&m|5s6b@/Xe,a,}
ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";" 一缕阳光7h H0@ x HP+]0q(nJ3k4Q
Set SqlConn = Server.CreateObject("ADODB.Connection") 一缕阳光{4| kigL
SqlConn.Open ConnStr
0F VJ{ oO0If Err Then 一缕阳光lW*`+M-TkBLrmZ
Err.Clear
K H"I6n r1t)l@yq Z0Set SqlConn = Nothing
KlT] b'e%g)oNX0Response.Write "数据连接错误!"
d ?-W!@$p1DS!qR0Response.End 一缕阳光l m Is p*c&ciAn
End If
} hMxd#_G4@:v0End Function
Function Close_Conn(SqlConn)
(aA,Gb g+{1tA-{ g0'关闭数据库连接并清除数据库连接对象 一缕阳光KG:i)B#m
If IsObject(SqlConn) Then 一缕阳光tE t H&[T,hQ`
SqlConn.Close
,H U pu1UM0Set SqlConn = Nothing
4W O5v_o0End If
;zl1S5] | _'r*_0End Function
Call Open_Conn("Shat_EDG","","sa","(local)",SqlConn) '打开SQL Server数据库连接
Function Get_EMP_CnName(NTACCNT) 一缕阳光:U:qj O5QX
'根据用户NT帐号得到用户中文名
)Q+O#n5 O e0Dim Sql,Rs 一缕阳光.v~6is1N6h NO#U _ u
Sql = "Select EMP_CNAME From RF_EMPLOYEE Where EMP_NTACCNT='"&NTACCNT&"'"
K kel4l&q`&tL0Set Rs = Server.CreateObject("Adodb.RecordSet")
6c J*}"dy0Rs.Open Sql,SqlConn,1,1 一缕阳光vt ys5?aB9G
If Rs.Eof Then 一缕阳光{M:gBE m/E$nuh6@@
Get_EMP_CnName = "" 一缕阳光&lB2oI){(yD$z
Else 一缕阳光*g+L T/h#^2O
Get_EMP_CnName = Rs("EMP_CNAME")
MU&k T aH-S;Y0End If
:/T Y Gs`?|0Rs.Close 一缕阳光 u EC-O38k{g-^6A
Set Rs = Nothing 一缕阳光 w)mL` `.V)? y
End Function %>
M0U0f+U1y(f |6O0<html>
!N Af$J `A.U$X!|H0<head> 一缕阳光,x(f ?T G q
<title>导入Excel电子表格数据到SQL Sever数据库</title>
$qE)@b^ y-a0<body bgcolor="#ACD9AF"> 一缕阳光y5@+T*r"wo
<center><b>导入Excel电子表格数据到SQL Sever数据库</b></center>
*U^cQc8MI.es-x0<FORM METHOD="POST" name="form1"> 一缕阳光$SKyr6y i2CbsPh
請選擇數據源: <input type="file" name="File" size="40" title="请选择需要導出的Excel文件"> <input type=submit name=submit value="開始導出">
1kt bK,V:?uqpm y0<br>請選擇目標表:
o6e`b.]Q&x0<SELECT NAME="Table" title="请选择需要导入数据的表"> 一缕阳光!H` AG1c_p8b~
<option></option> 一缕阳光2M A D ]M:V {4I
<% Dim RsSqlDatabaseTable 一缕阳光4sX6jm!b5M O G
Set RsSqlDatabaseTable = SqlConn.OpenSchema(20)
`tz|!y w6cZv1z%G0Do While Not RsSqlDatabaseTable.Eof %> 一缕阳光Sos g1h ]
<option<%If Trim(Request("Table"))=RsSqlDatabaseTable(2) Then Response.Write " selected"%>><%=RsSqlDatabaseTable(2)%></option> 一缕阳光n$}3M3Wa`
<% RsSqlDatabaseTable.MoveNext:Loop 一缕阳光c*@tn8G3A`m3b2{%Q&w
Set RsSqlDatabaseTable =
