将EXCEL表的内容导入到SQL SERVER 2000的数据库中

hongmaohouzi 2004-04-02 10:18:26
特别的急,希望大家帮忙解决!分不够可以再加!
...全文
67 6 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
hongmaohouzi 2004-04-02
  • 打赏
  • 举报
回复
谢谢各位了,问题已经解决了,谢谢大家的参与!
sxsgssgs 2004-04-02
  • 打赏
  • 举报
回复
<%
'下面连接到11.xls表sheet1$
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath("11.xls")

SQL1="select * from [11$]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL1, conn, 3, 3

'下面连接到test.mdb表11
curDir = Server.MapPath("test.mdb")
Set conn1 = Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & curDir
'换成连接sqlserver语句就行了

Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1.ActiveConnection = conn1
rs1.Source = "select * from 11"
rs1.CursorType = 3 ' adOpenKeyset
rs1.LockType = 3 'adLockOptimistic
rs1.Open
'Dim j=0
for j=0 to rs.recordcount-1
rs1.AddNew
'rs1(0)=j
for i=0 to rs.Fields.Count-1
rs1(i)=Trim(rs(i))
Next
rs1.Update
rs.MoveNext
next
if err=0 then
response.write "插入成功!"
end if
rs.Close
rs1.Close
conn.Close
conn1.Close
Set rs=nothing
Set conn=nothing
%>
银狐被占用 2004-04-02
  • 打赏
  • 举报
回复
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...sheet1$
hongmaohouzi 2004-04-02
  • 打赏
  • 举报
回复
使用代码导入,怎么写,谢谢各位,
flying310 2004-04-02
  • 打赏
  • 举报
回复
可以用sql server自带的导入工具呀。
Luckyji 2004-04-02
  • 打赏
  • 举报
回复
用SQL server的导入导出数据就可以了!

28,409

社区成员

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

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