Source: Unknown Author: Unknown Recommended rating: Visits: 36
This article implements direct output of data in the database to the Excel file format and outputs in the browser.
The following is an example of implementation: View Example Excelexport.aspx <% @ page language = "VB" autoeventwireup = "false" code.aspx.vex "inherits =" aspxweb.mengxianhui.com.excelexport "%>
InitializeComponent () end sub #endregion private sub page_load (byval e as system.EventArgs) _ handles mybase.load "Place the initialization page here's user code 'defines whether it is a SQL Server database, here is False Dim blnIsSQLServer as System.Boolean = False Dim strSQL as String Dim objDataset as New DataSet () Dim objConn as Object Dim strCnn as String If blnIsSQLServer Then strCnn = "User ID = sa; Initial Catalog = Northwind; Data Source = /. NetSDK; "objConn = New System.Data.SqlClient.SqlConnection (strCnn) objConn.Open () Dim objAdapter As New System.Data.SqlClient.SqlDataAdapter () strSQL =" Select * from customers where country = 'USA' "objAdapter. SelectCommand = New System.Data.SqlClient.SqlCommand (strSQL, objConn) objAdapter.Fill (objDataset) Else strCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" Server.MapPath ( "Test.mdb") Objconn = new system.data.oledb.oledbConnection (STRCNN) Objconn () Dim objadapter as new system.data.oledb.oledbdataadapter () strsql = "select top 10 title from document" Objadaptaptapt er.SelectCommand = New System.Data.OleDb.OleDbCommand (strSQL, objConn) objAdapter.Fill (objDataset) End If Dim oView As New DataView (objDataset.Tables (0)) DataGrid1.DataSource = oView DataGrid1.DataBind () objConn. Close () objconn.dispose () objconn = Nothing if request.QueryString ("BEXCEL") = "1" Then Response.contentType = "Application / VND.ms-Excel" 'From Content-Type Header to remove Charset Setting Response. Charset = "" "Close ViewState ME.EnableViewState = false Dim Tw As new system.io.stringwriter () Dim HW as new system.Web.ui.htmlTextWriter (TW) '