如何在客户端将EXCEL数据导入到SQL Server中

ehunet 2004-11-24 02:07:08
如何在客户端将EXCEL数据导入到SQL Server中
...全文
151 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
alern_zyb 2004-11-24
1,可以在数据库中选择导入功能,选择EXCEL和数据库一步步的执行即可
2,用程序实现,发一个你参考一下把
<%@ Language=VBScript %>
<!--#INCLUDE FILE="check.asp"-->
<%
Response.Expires=0
set dbbooks=server.CreateObject ("adodb.connection")
dbpath=server.MapPath ("dbcqc.mdb")
dbbooks.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & dbpath

Set xlApp = server.CreateObject("Excel.Application")

strsource =Server.MapPath("upload\UploadFiles\rzqy.xls")
Set MyFileObject=CreateObject("Scripting.FileSystemObject")
if MyFileObject.FileExists(strsource) then
'response.write strsource
'response.end
Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)

i=2
while xlsheet.cells(i,1)<>""

strsql="Insert Into stru (注册编号,专业项目,注册范围,企业名称,发证日期,有效日期,标准,类别) values ('"& xlsheet.Cells(i, 1) &"','"& xlsheet.Cells(i, 2) &"','"& xlsheet.Cells(i, 3) &"','"& xlsheet.Cells(i, 4) &"','"& xlsheet.Cells(i, 5) &"','"& xlsheet.Cells(i, 6) &"','"& xlsheet.Cells(i, 7) &"','"&xlsheet.Cells(i, 8)&"')"

dbbooks.Execute strsql

i=i+1

wend
set xlsheet=nothing
set dbbooks=nothing
xlBook.Close (True)
set xlbook=nothing
xlApp.quit
MyFileObject.deleteFile(strsource)
set MyFileObject=nothing
strJS="<SCRIPT language=javascript>" & vbcrlf
strJS=strJS & "alert('文件导入成功!');" & vbcrlf
strJS=strJS & "history.go(-1);" & vbcrlf
strJS=strJS & "</script>"
response.write strJS
else
set MyFileObject=nothing
strJS="<SCRIPT language=javascript>" & vbcrlf
strJS=strJS & "alert('请先上传文件,然后在导入!');" & vbcrlf
strJS=strJS & "history.go(-1);" & vbcrlf
strJS=strJS & "</script>"
response.write strJS
end if
'Response.Redirect "mulu_add.htm"
%>
回复
古侠 2004-11-24
39439253

加我QQ,我给你我刚完成的代码
回复
lienzhu 2004-11-24
你可以线先导入到aceess,导入后 重新定义一下字段,来符合你的要求!
最后从aceess导入到 SQL Server
回复
IQ250 2004-11-24
在SQL里有向导啊,你找一下,可以一步一步的按着向导把EXCEL导入到SQL里!
回复
beckylucky 2004-11-24
想在asp中作吗?用sql 作很简单阿!
回复
蒋健华 2004-11-24
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

实例:
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
回复
ye 2004-11-24
也很想知道如何做,帮你顶!!!
回复
dotnetbus 2004-11-24
用Excel.Application读取里面的字段信息,然后一条一条记到数据库里
是不是有点笨
回复
sfply 2004-11-24
哗,又散100啊
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-11-24 02:07
社区公告
暂无公告