1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
| <%@ import Namespace= "System.Data" %>
<%@ import Namespace= "System.Data.SqlClient" %>
<%@ import Namespace= "System.IO" %>
<%@ import Namespace= "System" %>
<script language="vb" runat="server">
Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Response.Clear()
Response.AddHeader("content-disposition", "attachment;filename=C:\FileName.xls")
Response.Charset = ""
Response.ContentType = "application/vnd.xls"
Dim stringWrite As New System.IO.StringWriter()
Dim htmlWrite As System.Web.UI.HtmlTextWriter = New HtmlTextWriter(stringWrite)
GridView1.RenderControl(htmlWrite)
Response.Write(stringWrite.ToString())
Response.[End]()
End Sub
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
End Sub
</script>
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title> Création d'un fichier xls </title>
</head>
<body>
<h1> Création d'un fichier excel </h1>
<div id="runat">
<form method="post">
<asp:SqlDataSource id="SqlDataSource1"
runat="server"
DataSourceMode="DataReader"
ConnectionString="user id=sa;password=toto;
database=MSIDB;server=server;"
SelectCommand="SELECT * FROM dbo.IT_CommunautySynch">
</asp:SqlDataSource>
<asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="True"
DataSourceID="SqlDataSource1"> </asp:GridView>
<br />
<asp:Button id="btn2" onclick="Button2_Click" runat="server" text="CreationExcel"/>
</div>
</form>
</body>
</html> |