public void Export2Excel(Object Sender, EventArgs E)
{
// 将当前查询的数据导入Excel中
SqlConnection SqlConn = new SqlConnection(ConfigurationSettings.AppSettings["connectionString"]);
// 设置为true,则在当前的数据上追加数据,否则,重写当前数据
StreamWriter w = new StreamWriter(Server.MapPath("Data\\EmpDimissionResult.xls"), false, Encoding.Default);
SqlConn.Open();
try
{
SqlCommand SqlCmd = SqlConn.CreateCommand();
SqlCmd.CommandText = 你的SQL语句;
SqlDataReader Reader = SqlCmd.ExecuteReader();
for (int i = 0; i < Reader.FieldCount; ++i)
{
w.Write(Reader.GetName(i));
w.Write('\t');
}
w.Write("\r\n");
object[] values = new object[Reader.FieldCount];
while (Reader.Read())
{
Reader.GetValues(values);
for (int i = 0; i < values.Length; ++i)
{
w.Write( values[i].ToString());
w.Write('\t');
}
w.Write("\r\n");
}
w.Flush();
w.Close();
Reader.Close();
SqlConn.Close();
Response.Redirect ("Data\\EmpDimissionResult.xls");
}
catch
{
w.Close();
SqlConn.Close();
return;
}
}
Public Sub Export2Excel(ByVal ctl As System.Web.UI.Control, ByVal ExcelFileName As String)
Response.Charset = "GB2312"
Response.AppendHeader("Content-Disposition", "attachment;filename=" + ExcelFileName + ".xls")
Response.ContentEncoding = System.Text.Encoding.GetEncoding("GB2312")
Response.ContentType = "application/ms-excel"
ctl.Page.EnableViewState = False
Dim tw As System.IO.StringWriter = New System.IO.StringWriter()
Dim hw As System.Web.UI.HtmlTextWriter = New HtmlTextWriter(tw)
ctl.RenderControl(hw)
Response.Write(tw.ToString())
Response.End()
End Sub