<% '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
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>
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 