ASP를 사용하여 SQL Server의 데이터를 Access 또는 Excel 파일로 내보내기
저자：Eve Cole
업데이트 시간：2009-06-25 17:44:33
얼마전에 이런 문제를 온라인에 올렸는데 이제 해결이 되어서 코드를 공유해 드립니다.
이것이 IntranetMIS 매니아들에게 도움이 되기를 바랍니다.
이 방법은 실제로 매우 간단합니다. SQL Server 연결에 액세스 연결을 중첩한 다음 하나씩 작성하면 됩니다.
<%set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "드라이버={SQL 서버};서버=mamaco;uid=linner;pwd=123;dat
베이스=린너"
sql="scjh에서 * 선택"
rs=conn.execute(sql)%>를 설정합니다.
<%set Conn1 = Server.CreateObject("ADODB.Connection")
param = "드라이버={Microsoft Access 드라이버(*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("scjh.mdb")
conn1.execute("scjh에서 삭제")%>
<%rs.eof가 아닌 동안 수행%>
<%dim ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh
ktdh=rs("ktdh")
scph=rs("scph")
scts=rs("scts")
jhqtsj=rs("jhqtsj")
yhxdsj=rs("yhxdsj")
yxj=rs("yxj")
rwbh=rs("rwbh")
%>
<%sql1="scjh(ktdh,scph,scts,jhqtsj,yhxdsj,yxj,rwbh)에 삽입
가치
('"& ktdh &"','" & scph & "'," & scts
& ",'"&jhqtsj&"','"&yhxdsj&"',"&
yxj &"," & rwbh &")"
conn1.execute(sql1)%>
<%rs.movenext
고리
conn1.닫기
연결.닫기%>
<%response.redirect "/download/scjh.mdb"%>
