ASP.NET CSV (comma-separated values) Output for Use by Excel/Spreadsheet
This code will connect to the MS SQL Server pubs database,
open the titles table, and output the results as a CSV file using Response.Write()
and
the browser will save the file as titles.csv. Try this code: _csv.aspx
<%@ Page Language="VB" ContentType="text/csv" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<%@ Import Namespace="System.Configuration" %>
<%
Response.Clear()
'tell the browser to save the file as titles.csv
Response.AppendHeader("content-disposition", "attachment;filename=titles.csv")
Dim oCon As New OleDbConnection(System.Configuration.ConfigurationManager.ConnectionStrings("ConnectPubs").ToString())
oCon.Open()
'FROM THE pubs DATABASE IN MS SQL SERVER
Dim oCmd As New OleDbCommand("SELECT authors.au_lname, authors.au_fname, titles.title, titles.price," & _
" titles.ytd_sales FROM titleauthor INNER JOIN titles ON titleauthor.title_id = titles.title_id INNER" & _
" JOIN authors ON titleauthor.au_id = authors.au_id", oCon)
Dim oRdr As OleDbDataReader = oCmd.ExecuteReader()
Response.Write("LastName,FirstName,Title,Price,YTDSales" & ControlChars.CrLf)
Do While oRdr.Read()
Dim i As Integer = 0
While i < oRdr.FieldCount
Response.Write(IIf(i = 0, "", ",") & """" & IIf(IsDBNull(oRdr(i)), "", _
oRdr(i).ToString().Replace("""", """""")) & """")
i += 1
End While
Response.Write(ControlChars.CrLf)
Loop
oRdr.Close()
oCon.Close()
Response.End()
%>
Reader Postings:
log in to post comments