紧急求救...如何将execl中数据在web中实现导入数据库(execl表和数据库表各字段都相同)

philcc 2004-10-10 09:42:40
紧急求救...如何将execl中数据在web中实现导入数据库(execl表和数据库表各字段都相同)
...全文
519 13 打赏 收藏 转发到动态 举报
写回复
用AI写文章
13 条回复
切换为时间正序
请发表友善的回复…
发表回复
zlj113 2004-10-10
  • 打赏
  • 举报
回复
TO: philcc(一包中华)

不行??
我测试过了的呀,能行的,提示出错是什么呢?

blues-star 2004-10-10
  • 打赏
  • 举报
回复
可以考虑

DTS

VBA

等等
孟子E章 2004-10-10
  • 打赏
  • 举报
回复
<%@ Language=VBScript %>
<%
Server.ScriptTimeout = 99999
Response.Buffer = True
%>
<HTML>
<HEAD>
<Title>批量导入用户</Title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<%
On Error Resume Next
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Dim strUserName, strUserTitle, strUserMail
Dim strPassword, strConfirmPassword
Dim flag_disabled, flag_cantchgpwd
Dim strErrorMsg
Dim userCnn
Set userCnn = Server.CreateObject("ADODB.Connection")
userCnn.Open Conn
' 链接Excel数据库
Dim excelCn,excelRs,excelSql,strFilePath,strCnn

strFilePath = Request.Form("myFile")
'strFilePath = Server.MapPath(".") & "\" & "teacher.xls"
Dim f,fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(strFilePath) = False Then
Response.Write "文件:" & strFilePath & "在服务器上不存在。"
Response.End
End If

'strFilePath = Server.MapPath(".") & "\" & "teacher.xls"
strCnn = "DRIVER=Microsoft Excel Driver (*.xls);UID=admin;FIL=excel 8.0;DBQ=" & strFilePath
Set excelCn = Server.CreateObject("ADODB.Connection")
excelCn.Open strCnn
excelSql = "SELECT * FROM [Sheet1$]"
Set excelRs = excelCn.Execute(excelSql)
Dim i
i = 0
While Not excelRs.EOF
strUserName = Trim(excelRs("帐号"))
strUserTitle = Trim(excelRs("姓名"))
strPassword = Trim(excelRs("密码"))
strConfirmPassword = Trim(excelRs("密码"))
userCnn.Execute "INSERT tableName (帐号,姓名) VALUES('" & strUserName & "','" &strUserTitle& "')"

Set objUserProp = Nothing
Response.Write "<hr size=2 color=green>"
excelRs.MoveNext
i = i + 1
Response.Flush
Wend
userCnn.Close
excelCn.Close
Set userCnn = Nothing
Set excelCn = Nothing
Set excelRs = Nothing
Response.Write "共导入 " & i & " 个用户信息。"
Response.End
End If
%>
孟子E章 2004-10-10
  • 打赏
  • 举报
回复
例子和思路

<%@ Language=VBScript %>
<%
Server.ScriptTimeout = 99999
Response.Buffer = True
%>
<HTML>
<HEAD>
<Title>批量导入用户</Title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<%
On Error Resume Next
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Dim strUserName, strUserTitle, strUserMail
Dim strPassword, strConfirmPassword
Dim flag_disabled, flag_cantchgpwd
Dim strErrorMsg
Dim userCnn
Set userCnn = Server.CreateObject("ADODB.Connection")
userCnn.Open Conn
' 链接Excel数据库
Dim excelCn,excelRs,excelSql,strFilePath,strCnn

strFilePath = Request.Form("myFile")
'strFilePath = Server.MapPath(".") & "\" & "teacher.xls"
Dim f,fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(strFilePath) = False Then
Response.Write "文件:" & strFilePath & "在服务器上不存在。"
Response.End
End If

'strFilePath = Server.MapPath(".") & "\" & "teacher.xls"
strCnn = "DRIVER=Microsoft Excel Driver (*.xls);UID=admin;FIL=excel 8.0;DBQ=" & strFilePath
Set excelCn = Server.CreateObject("ADODB.Connection")
excelCn.Open strCnn
excelSql = "SELECT * FROM [Sheet1$]"
Set excelRs = excelCn.Execute(excelSql)
Dim objUser
Set objUser = uctx.createUmgrObject("UserMgr.User")
Dim uLogic
Set uLogic = uctx.createUmgrObject("UserMgr.Logic")
Dim objLogic
Set objLogic = CreateSQLPUBObject("SQLPUB.PubLogic")
Dim i
i = 0
While Not excelRs.EOF
strUserName = Trim(excelRs("帐号"))
strUserTitle = Trim(excelRs("姓名"))
strPassword = Trim(excelRs("密码"))
strConfirmPassword = Trim(excelRs("密码"))
userCnn.Execute "INSERT tableName (帐号,姓名) VALUES('" & strUserName & "','" &strUserTitle& "')"

Set objUserProp = Nothing
Response.Write "<hr size=2 color=green>"
excelRs.MoveNext
i = i + 1
Response.Flush
Wend
userCnn.Close
excelCn.Close
Set objLogic = Nothing
Set userCnn = Nothing
Set excelCn = Nothing
Set excelRs = Nothing
Response.Write "共导入 " & i & " 个用户信息。"
Response.End
End If
%>
everywhen 2004-10-10
  • 打赏
  • 举报
回复
Set conn = Server.CreateObject("ADODB.Connection")
Drivers = "Driver={Microsoft Excel Driver (*.xls)};"
DBPaths = "DBQ=" & Server.MapPath( "update.xls" ) ''update.xls为要导入的EXECEL路径
conn.Open Drivers & DBPaths

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from [Sheet1$]", conn, 1, 1 ''[Sheet1$]中的Sheet1是上述文件中的一个工作簿名称,你根据你自己的实际情况修改。其它的都跟操作ACCESS一样
philcc 2004-10-10
  • 打赏
  • 举报
回复
不行啊!急死了!
zlj113 2004-10-10
  • 打赏
  • 举报
回复
试下这个:
select * into SQL中的表 from OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="e:\excel\tt.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
philcc 2004-10-10
  • 打赏
  • 举报
回复
phckt(泡壶茶) everywhen(逆风行驶) 能不能说得具体一点,这东西我没做过。不知道怎么导入的,连接了excel,怎么把里面的数据录入数据库,麻烦你如果能给个详细的代码就好了!
  • 打赏
  • 举报
回复
ASP操作Excel技术总结

目录
一、 环境配置
二、 ASP对Excel的基本操作
三、 ASP操作Excel生成数据表
四、 ASP操作Excel生成Chart图
五、 服务器端Excel文件浏览、下载、删除方案
六、 附录

正文
一、 环境配置
服务器端的环境配置从参考资料上看,微软系列的配置应该都行,即:
1.Win9x+PWS+Office
2.Win2000 Professional+PWS+Office
3.Win2000 Server+IIS+Office
目前笔者测试成功的环境是后二者。Office的版本没有特殊要求,考虑到客户机配置的不确定性和下兼容特性,建议服务器端Office版本不要太高,以防止客户机下载后无法正确显示。
服务器端环境配置还有两个偶然的发现是:
1. 笔者开发机器上原来装有金山的WPS2002,结果Excel对象创建始终出现问题,卸载WPS2002后,错误消失。
2. 笔者开发ASP代码喜欢用FrontPage,结果发现如果FrontPage打开(服务器端),对象创建出现不稳定现象,时而成功时而不成功。扩展考察后发现,Office系列的软件如果在服务器端运行,则Excel对象的创建很难成功。
服务器端还必须要设置的一点是COM组件的操作权限。在命令行键入“DCOMCNFG”,则进入COM组件配置界面,选择Microsoft Excel后点击属性按钮,将三个单选项一律选择自定义,编辑中将Everyone加入所有权限。保存完毕后重新启动服务器。
客户端的环境配置没发现什么特别讲究的地方,只要装有Office和IE即可,版本通用的好象都可以。

二、 ASP对Excel的基本操作
1、 建立Excel对象
set objExcelApp = CreateObject("Excel.Application")
objExcelApp.DisplayAlerts = false 不显示警告
objExcelApp.Application.Visible = false 不显示界面
2、 新建Excel文件
objExcelApp.WorkBooks.add
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
3、 读取已有Excel文件
strAddr = Server.MapPath(".")
objExcelApp.WorkBooks.Open(strAddr & "\Templet\Table.xls")
set objExcelBook = objExcelApp.ActiveWorkBook
set objExcelSheets = objExcelBook.Worksheets
set objExcelSheet = objExcelBook.Sheets(1)
4、 另存Excel文件
objExcelBook.SaveAs strAddr & "\Temp\Table.xls"
5、 保存Excel文件
objExcelBook.Save (笔者测试时保存成功,页面报错。)
6、 退出Excel操作
objExcelApp.Quit 一定要退出
set objExcelApp = Nothing

三、 ASP操作Excel生成数据表
1、 在一个范围内插入数据
objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
2、 在一个单元格内插入数据
objExcelSheet.Cells(3,1).Value="Internet Explorer"
3、 选中一个范围
4、 单元格左边画粗线条
5、 单元格右边画粗线条
6、 单元格上边画粗线条
7、 单元格下边画粗线条
8、 单元格设定背景色
9、 合并单元格
10、 插入行
11、 插入列

四、 ASP操作Excel生成Chart图
1、 创建Chart图
objExcelApp.Charts.Add
2、 设定Chart图种类
objExcelApp.ActiveChart.ChartType = 97
注:二维折线图,4;二维饼图,5;二维柱形图,51
3、 设定Chart图标题
objExcelApp.ActiveChart.HasTitle = True
objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart"
4、 通过表格数据设定图形
objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1
5、 直接设定图形数据(推荐)
objExcelApp.ActiveChart.SeriesCollection.NewSeries
objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333"""
objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}"
6、 绑定Chart图
objExcelApp.ActiveChart.Location 1
7、 显示数据表
objExcelApp.ActiveChart.HasDataTable = True
8、 显示图例
objExcelApp.ActiveChart.DataTable.ShowLegendKey = True

五、 服务器端Excel文件浏览、下载、删除方案
浏览的解决方法很多,“Location.href=”,“Navigate”,“Response.Redirect”都可以实现,建议用客户端的方法,原因是给服务器更多的时间生成Excel文件。
下载的实现要麻烦一些。用网上现成的服务器端下载组件或自己定制开发一个组件是比较好的方案。另外一种方法是在客户端操作Excel组件,由客户端操作服务器端Excel文件另存至客户端。这种方法要求客户端开放不安全ActiveX控件的操作权限,考虑到通知每个客户将服务器设置为可信站点的麻烦程度建议还是用第一个方法比较省事。
删除方案由三部分组成:
A: 同一用户生成的Excel文件用同一个文件名,文件名可用用户ID号或SessionID号等可确信不重复字符串组成。这样新文件生成时自动覆盖上一文件。
B: 在Global.asa文件中设置Session_onEnd事件激发时,删除这个用户的Excel暂存文件。
C: 在Global.asa文件中设置Application_onStart事件激发时,删除暂存目录下的所有文件。
注:建议目录结构 \Src 代码目录 \Templet 模板目录 \Temp 暂存目录

六、 附录
出错时Excel出现的死进程出现是一件很头疼的事情。在每个文件前加上“On Error Resume Next”将有助于改善这种情况,因为它会不管文件是否产生错误都坚持执行到“Application.Quit”,保证每次程序执行完不留下死进程。
  • 打赏
  • 举报
回复
excel.application
phckt 2004-10-10
  • 打赏
  • 举报
回复
用ADO连接Excel,剩下的,就和连接普通数据库没什么两样了,不过excel表名后要加$

Set conn = Server.CreateObject("ADODB.Connection")
Drivers = "Driver={Microsoft Excel Driver (*.xls)};"
DBPaths = "DBQ=" & Server.MapPath( "update.xls" )
conn.Open Drivers & DBPaths

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from [Sheet1$]", conn, 1, 1
everywhen 2004-10-10
  • 打赏
  • 举报
回复
使用ADO读取EXCEL表格的数据(将EXCEL作为ADO的数据源),然后插入到数据库中。
philcc 2004-10-10
  • 打赏
  • 举报
回复
怎么没人解答啊?

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧