|
|
|
|
|
|
|
|
Dicas
|
|
|
ASP - Active Server Page (Miscelâneas)
|
|
 |
Título da Dica: exportar dados do seu BD e importá-lo em qualquer programa com suporte a CSV, como o MS EXCEL
|
 |
|
|
|
Postada em 3/10/2003 por ^HEAVY-METAL^
GenerateXLS é um script ASP que gera arquivo CSV (delimitado por vírgulas). Com ele você pode exportar dados do seu banco de dados e importá-lo em qualquer programa com suporte a CSV, como o MS Excel por exemplo.
<%@ Language=VBScript %>
<%
' GenerateXLS Version 1.0 by Brian Kirsten (bkirsten@brainscanstudios.com)
' 1st modified 11/29/00
' 2nd modification 10/25/02
' copyright Ó 2000 Brain Scan Studios, Inc. (http://www.brainscanstudios.com)
' source distributed under the gnu general public license.
' let me know if your site is using the code i will put a link up to your page!
Dim sTable
Dim sDSN
Dim sFields
sDSN = "<DSN>" 'Name of your DSN
sFields = "<FIELDS>" 'List of fields comma delimited
sTable = "<TABLE_NAME>" 'Name of your table or View
Set DB = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
DB.Open sDSN
RS.Open "select "& sFields &" from "& sTable,DB
Response.ContentType = "application/csv"
Response.AddHeader "Content-Disposition", "filename=mydata.csv;"
' lets print the fields on top
for i = 0 to RS.Fields.Count-1
if i = (RS.Fields.Count - 1) then
Response.Write lcase(RS.Fields(i).Name)
else
Response.Write lcase(RS.Fields(i).Name) & ","
end if
next
Response.write vbNewLine
Response.write vbNewLine
while not RS.EOF
for u=0 to RS.Fields.Count - 1
if u = (RS.Fields.Count - 1) then
Response.Write RS.Fields(u).Value
else
Response.Write RS.Fields(u).Value & ","
end if
next
response.write vbNewLine
rs.MoveNext
wend
Response.write vbNewLine
Response.write vbNewLine
Set RS = Nothing
Set DB = Nothing
%>
Até a próxima,
|
|
|
|
|
