高分求sql数据库导出数据到access and excle 全码。（要具体的，傻瓜都能懂的！）

[wxiaol]

100分求：
sql数据库导出数据到access数据库和excle文件全码！

要具体一点的，直接能够套用的。谢谢！

[mymyal123]

开始->程序->SQL->企业管理器

在里面就有将sql直接导出到access 和excel的功能

[Yjanuary]

晕！楼上的！
楼主要的估计是asp的程序啊！

[Swanzy]

--导出到excel
EXEC master..xp_cmdshell ’bcp SettleDB.dbo.shanghu out c:\temp1.xls -c -q -S"GNETDATA/GNETDATA" -U"sa" -P""’

[Swanzy]

/*************导出到Access********************/
insert into openrowset(’Microsoft.Jet.OLEDB.4.0’,
’x:\A.mdb’;’admin’;’’,A表) select * from 数据库名..B表

[wxcyz]

SQL SERVER导出到excel

导导ACCESS你稍微修改一下就ok了


已经通过

<%
strPath=request("strPath")
Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.Provider = "Microsoft.Jet.OLEDB.4.0 "
objConn1.ConnectionString = "Data Source=" & strPath & ";" & "Extended Properties=Excel 8.0;"
objConn1.Open

Set objRs=server.CreateObject("ADODB.Recordset")
objRs.Open "select * from pfdzdate",Conn,1,3

Set objRs1=server.CreateObject("ADODB.Recordset")
objRs1.Open "select * from [Sheet1$]",objConn1,1,3

Dim i
Dim strValue'存放内容
Dim strTitle'存放表头
Dim strSql

If Not objRs.EOF Then

While Not objRs.EOF

strValue0 = objRs(0).Value
strValue1 = objRs(1).Value
strValue2 = objRs(2).Value
strValue3 = objRs(3).Value
strValue4 = objRs(4).Value
strValue5 = objRs(5).Value
strValue6 = objRs(6).Value
strValue7 = objRs(7).Value
strValue8 = objRs(8).Value
strValue9 = objRs(9).Value
strValue10 = objRs(10).Value
strValue11 = objRs(11).Value
strValue12 = objRs(12).Value
strValue13 = objRs(13).Value
strValue14 = objRs(14).Value
strValue15 = objRs(15).Value
strValue16 = objRs(16).Value
strValue17 = objRs(17).Value


if strValue1<>"" then
strSql = "insert into [Sheet1$] (自动编号,产品型号,厂家,数量,批号,封装,单价,供货商及地址,备注1,电话1,电话2,历史成交价,询价日,询价者,备注2,操作,添加时间,推荐) values ( '"&strValue0&"','"&strValue1&"','"&strValue2&"','"&strValue3&"','"&strValue4&"','"&strValue5&"','"&strValue6&"','"&strValue7&"','"&strValue8&"','"&strValue9&"','"&strValue10&"','"&strValue11&"','"&strValue12&"','"&strValue13&"','"&strValue14&"','"&strValue15&"','"&strValue16&"','"&strValue17&"')"
'Response.Write strSql
objConn1.Execute strSql
end if
objRs.MoveNext
i=i+1
Wend

End If

response.write "<script language=javascript>alert('数据导出成功，返回中...');</script>"
response.write "<script language=javascript>this.location.href='admin_client.asp';</script>"

%>

[wxiaol]

1楼 mymyal123(风之森)

你能把你所说的直接在sql server数据库上操作，说的具体点么？

进入到企业管理器之后还需要怎么操作？

3楼 Swanzy(平淡.Net)

你说的那段代码我知道一个是导出excle，一个是导出access。但是没有具体一点的代码，我还是不懂

你能把具体一点的代码放出来么？

5楼 wxcyz(阿图)

你给的代码我看过了，我想应该是没有什么问题，但是我有一点还是有点模糊。

那就是传递过来的strpath指什么什么地址路径？

是浏览的数据库路径？还是现成的数据库。

还有一个问题你给我是从access数据库中导出数据到excle。

我还想问一下，如果要是从excle导出数据到access or sql 数据库呢？

谢谢你们支持，等问题解决了，我马上给大家加分。

[wxiaol]

不知道我这个导出excle能不能通过？请各位帮忙看一下。
里面有几个小毛病请指点。
SqlName为数据库名
SqlIp为地址ip
但是strPath应该是什么呢？请指点。。。。。
还有objRs.Fields.Count能不能得到值。。。请高手看看。。。。
Set objConn=server.CreateObject("adodb.connection")
objConn.ConnectionTimeout = 60
objConn.CommandTimeout = 60
objConn.CursorLocation = 3
objConn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID = sa;Password=sa;Initial Catalog=" & SqlName & ";Data Source=" & SqlIp & ""

Set objConn1 = Server.CreateObject("ADODB.Connection")
objConn1.Provider = "Microsoft.Jet.OLEDB.4.0 "
objConn1.ConnectionString = "Data Source=" & strPath & ";" & "Extended Properties=Excel 8.0;"
objConn1.Open

Set objRs=server.CreateObject("ADODB.Recordset")
objRs.Open "select * from userdb",objConn,1,3

Set objRs1=server.CreateObject("ADODB.Recordset")
objRs1.Open "select * from [Sheet1$]",objConn1,1,3

Dim i
Dim strValue'存放内容
Dim strTitle'存放表头
Dim strSql

If Not objRs.EOF Then

While Not objRs.EOF
strTitle = objRs1(ExcelArrange).Name
For i = ExcelArrange + 1 To objRs1.Fields.Count - 1
strTitle = strTitle & "," & objRs1(i).Name
Next

strValue = "'" & objRs(0).Value & "'"
For i = 1 To objRs.Fields.Count - 1
strValue = strValue & ",'" & objRs(i).Value & "'"
Next

strSql = "insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & strPath1 & ";Extended properties=Excel 8.0')...sheet1$ (" & strTitle & ") values (" & strValue & ")"
Response.Write strSql
objConn.Execute strSql
objRs.MoveNext
i=i+1
Wend

End If

[wxiaol]

怎么没有人给我解决我的问题啊?

哪位大虾指点啊...或放出来一个比较全面的程序啊.

谢谢了..要是分不够还可以加..

[凯晰叶子]

给了你提示，最好自己再动手做！！