Y大叔的筆記

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sql As String Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Request.PhysicalApplicationPath & "\ex\ASPNET20Book.mdb;Persist Security Info=True" Dim cn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(connstr) Dim cmd As System.Data.OleDb.OleDbCommand cn.Open() sql = "select Count(*) From test" cmd = New System.Data.OleDb.OleDbCommand(sql, cn) Dim RecordCount As Integer = CType(cmd.ExecuteScalar, Integer) sql = "select top 65535 * into [Excel 8.0;database=" + Server.MapPath(".") + "\ASPNET20Book.xls].[Sheet1] from test" cmd = New System.Data.OleDb.OleDbCommand(sql, cn) cmd.ExecuteNonQuery() cn.Close() cn.Dispose() cn = Nothing End Sub