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

[ehunet]

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

[sfply]

哗，又散100啊

[dotnetbus]

用Excel.Application读取里面的字段信息,然后一条一条记到数据库里
是不是有点笨

[ye]

也很想知道如何做,帮你顶!!!

[蒋健华]

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

[beckylucky]

想在asp中作吗？用sql 作很简单阿！

[IQ250]

在SQL里有向导啊，你找一下，可以一步一步的按着向导把EXCEL导入到SQL里！

[lienzhu]

你可以线先导入到aceess,导入后 重新定义一下字段，来符合你的要求！
最后从aceess导入到 SQL Server

[古侠]

39439253

加我QQ,我给你我刚完成的代码

[alern_zyb]

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"
%>