导出SQLServer数据到Excel中

转载于 2006-04-30 19:50:00 发布 · 1.3k 阅读

·

0

·

文章标签：

#sqlserver #excel #vbscript #html #sql

数据库专栏收录该内容

25 篇文章

订阅专栏

本文介绍了一种使用VBScript将SQLServer数据库中的数据导出到Excel文件的方法。通过设置HTTP响应头来生成Excel文件，并利用ADO组件连接SQLServer数据库，执行查询并将结果写入到响应中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<%@ Language=VBScript%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<title>导出SQLServer数据到Excel中</title>

</head>

<body>

<%

Response.Clear

Response.ContentType = "text/xls"

Response.AddHeader "content-disposition","attachment;filename=Excel.xls"

'生成Excel

Response.Write "编号" & Chr(9) & "姓名" & Chr(9) & "性别" & Chr(9) & "年龄" & Chr(13)

Set Conn = Server.CreateObject("Adodb.Connection")

ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=;Initial Catalog=Info;Data Source=127.0.0.1"

Conn.Open ConnStr

Sql = "SELECT * FROM INFO"

Set Rs = Conn.Execute(Sql)

Num = Rs.Fields.Count

Do While Not Rs.Eof

MM = 0

While MM < CInt(Num)

Data = Data & Rs(MM) & Chr(9)

MM = MM+1

Wend

Response.Write Data & Chr(13)

Data = ""

Rs.MoveNext:Loop

Set Rs = Nothing

Conn.Close

Set Conn = Nothing

Response.Flush

Response.End

%>

</body>

</html>

评论

被折叠的条评论为什么被折叠?

到【灌水乐园】发言

查看更多评论

添加红包

成就一亿技术人!

hope_wisdom

发出的红包

实付元

使用余额支付

点击重新获取

扫码支付

钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。