作者sploo (在淡水或汐止玩)
看板Visual_Basic
标题[.NET]如何用VB写程式从SQL抓资料到Excel
时间Mon Jul 23 14:37:25 2007
想在VB.net2003写一个程式从SQL Server 2005汇入Excel2003
其中要如何用data connection,data adapt,data set?
以下为参考程式 有没有更好的写法
======
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Form runat="server">
<asp:DataGrid runat="server" id="Grid" Width="100%"/>
</Form>
<script Language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
Dim Conn As OleDbConnection
Dim Adpt As OleDbDataAdapter
Dim Ds As DataSet
Dim Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
Dim Database = "Data Source=C:\ABC.mdb"
Dim DbPass = "Jet OLEDB:Database Password=1111"
Conn = New OleDbConnection( Provider & ";" & DataBase & ";" & DbPass )
Conn.Open()
Dim SQL = "Select * From 资料"
Adpt = New OleDbDataAdapter( SQL, Conn )
Ds = New Dataset()
Adpt.Fill(Ds, "资料")
MyGrid.DataSource = Ds.Tables("资料").DefaultView
MyGrid.DataBind()
Dim stmWt As New StreamWriter(Response.OutputStream, Encoding.Default)
Response.AppendHeader("Content-Disposition","attachment;filename=FileName.xls")
Response.ContentType = "application/vnd.ms-excel"
Dim tw As StringWriter = New System.IO.StringWriter
Dim hw As HtmlTextWriter = New HtmlTextWriter(tw)
MyGrid.RenderControl(hw)
stmWt.Write(tw.ToString())
stmWt.Flush()
stmWt.Close()
Response.End()
End Sub
</script>
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 125.225.170.103