在ASP中如何将Excel表中数据导入到SQL2000中

我在做毕业设计的时候,需要使用到这样的接口,将Excel数据导入到SQL2000中,在网上找了一些,好象都不适合我的,具体要实现这样的功能:

在ASP网页中选择要导入的Excel表,并分栏显示在网页中,然后可以有选择的选择要导入的栏目,最后导入到SQL数据库中.

我在网上找了这么一个代码,感觉应该还可以,但是有部分地方不明白,
代码如下:

<---代码开始--->
<%
'On Error Resume Next
'导入Excel电子表格数据到SQL Sever数据库
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数据库连接
Function Get_EMP_CnName(NTACCNT)
'根据用户NT帐号得到用户中文名
Dim Sql,Rs
Sql = "Select EMP_CNAME From RF_EMPLOYEE Where EMP_NTACCNT='"&NTACCNT&"'"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,SqlConn,1,1
If Rs.Eof Then
Get_EMP_CnName = ""
Else
Get_EMP_CnName = Rs("EMP_CNAME")
End If
Rs.Close
Set Rs = 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">
请选择数据源: <input type="file" name="File" size="40" title="请选择需要导出的Excel文件"> <input type=submit name=submit value="开始导出">
<br>请选择目标表:
<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>
</FORM>
<font color=blue>导出过程中请不要刷新页面!</font><br>
<%
If Right(Trim(Request("File")),3) = "xls" Then
Response.Write "<font color=red>您所导出的Excel文件是:"&Trim(Request("File"))&"</font><br>"
End If
%>

<---代码结束--->

问题:
在开头那
ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"

在这段代码中,如果我的SQL数据库是本地的,帐号密码都是sa,要导入的表是123,应该怎么改?

非常谢谢!!!!!!!只有20分了

上边那个Function Open_Conn(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,SqlConn)
是连接sql数据库的函数,可以这样调用:
Call Open_Conn("Shat_EDG","sa","sa","(local)",SqlConn) '打开SQL Server数据库连接

连接Excel的连接函数要重新写的,可以这样写:
function open_excel_conn(filename)
on error resume next
Set conn=server.createobject("adodb.connection")
badgirl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath(filename)&";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';"
conn.open badgirl
If Err.Number <> 0 Then
Response.write "不能打开指定的Excel,请查实!<a href='upexcel.htm'>返回</a>"
Response.end
else
On Error GoTo 0
end if
end function

你可以在代码的最后继续写
call open_excel_conn(Trim(Request("File")))
温馨提示:内容为网友见解,仅供参考
第1个回答  2007-04-17
datasource 127.0.0.1
sqlusername sa
sqlpassword sa

sqldatabasename这个是数据库名称

123表的话。。。只需要用select语句的时候进行

将Excel中的数据导入到MSSQLServer2000
1、打开企业管理器,打开要导入数据的数据库,在表上按右键,所有任务--导入数据,弹出DTS导入\/导出向导,按 下一步 ,2、选择数据源 Microsoft Excel 97-2000,文件名 选择要导入的xls文件,按 下一步 ,3、选择目的 用于SQL Server 的Microsoft OLE DB提供程序,服务器选择本地(如果是本地数据库...

怎样把excel的数据导入到sqlserver2000数据库中
1:先打开你的sqlserver企业管理器,找到你要准备导入的数据库,选择一个表,然后点击右键-所有任务-导入数据,跳过点击下一步:2:选择数据源,如下图:在这里选择Microsoft excel 97-2000,下面一项选择你要导入的excel文件,然后一直点击下一步,到最后点击完成就可以了!3:下面填入你的数据库的账号和...

用ASP.NET如何实现EXCEL中的用户积分导入SQL数据库
思路,先把EXcel传到服务器,导入本地的可以进行。先改变数据源的连接改为上传的excel,通过Dataset把EXcel里的数据读出来,分别用asp.net操作Sql语句把数据写入数据库中。下面是一个"上传文件"按钮事件代码 protected void btnOk_Click(object sender, EventArgs e){ string fileName= ex.PostedFile.File...

怎样把excel里的数据作为条件 导入到sql语句中
1.打开SQL Server Management Studio,按图中的路径进入导入数据界面。2.导入的时候需要将EXCEL的文件准备好,不能打开。点击下一步。3.数据源:选择“Microsoft Excel”除了EXCEL类型的数据,SQL还支持很多其它数据源类型。4.选择需要导入的EXCEL文件。点击浏览,找到导入的文件确定。5.再次确认文件路径没...

如何将excel数据导入Sql
将 Excel 数据导入到 SQL 中可以通过以下一般步骤进行:准备 Excel 数据:确保你的 Excel 数据具有良好的结构,并且每一列都有明确的标题。选择合适的导入工具:根据你使用的数据库管理系统(如 MySQL、SQL Server 等),选择相应的工具或方法来导入数据。常见的方法包括使用数据库管理系统提供的导入功能、...

如何把excel表里的指定列数据导入sql表里
第一步把要整理好的数据放到服务器的某个目录下面 第二步打开表所在的数据库 use该表所在数据库 inserttablename(columnname)select*from OPENROWSET('MICROSOFT.JET.OLEDB.4.0','Excel5.0;HDR=YES;DATABASE=文件存放路径+表名',sheet1$)楼主的想法不太成熟,问这数据导进去你想要的表之后,这数据...

怎样将EXCEL数据表导入到SQL中
如何将excel表导入数据库的方法:1、对于把大量数据存放到数据库中,最好是用图形化数据库管理工具,可是如果没有了工具,只能执行命令的话这会是很费时间的事。那只能对数据进行组合,把数据组成insert语句然后在命令行中批量直行即可。2、对下面数据进行组合,这用到excel中的一个功能。在excel中有个...

ASP页面实现Excel数据批量导入MSSQL问题(悬赏50)
在写库的时候会按照你的Excel表中第一行记录的数据类型为准,如果第一行是字符的,后面只会输入字符类型的,你可以试着用server.CreateObject("Excel.Application")来解决 set xlApp = server.CreateObject("Excel.Application")strsource = server.MapPath(filepath) '文件路径 set xlbook = xlApp....

如何将Excel数据导入到SQL中?
1、数据透视视图是处理Excel常用的手段,而应用数据透视视图的第一步就是导入数据,如本例中,表中有889167行数据,那么将这些数据导入Excel表中将是一个很漫长的过程,可以借助SQL语句选择性的导入数据,以此来提交数据加载的速度。2.打开空白Excel,依次点击【数据】选项卡【自Access按钮】。3.在弹出的...

怎样将EXCEL数据表导入到SQL中
1、打开SQL Server Management Studio,进入导入数据界面。点击下一步。2、数据源:选择“Microsoft Excel”。点击下一步。3、选择需要导入的EXCEL文件。点击浏览,找到导入的文件确定。点击下一步。4、默认为是使用的WINODWS身份验证,改为使用SQL身份验证。输入数据库密码。点击下一步。5、选择导入数据...

相似回答