直接将Access数据库导入到Excel文件

最新推荐文章于 2020-12-14 08:46:48 发布

jssfxzx16214628

最新推荐文章于 2020-12-14 08:46:48 发布

阅读量634

点赞数

文章标签： excel access 数据库 button integer sql

本文链接：https://blog.csdn.net/jssfxzx16214628/article/details/3025674

版权

<html xmlns=" http://www.w3.org/1999/xhtml">
<head runat="server">
   <title>直接将Access数据库导入到Excel文件</title>
</head>
<body>
   <form id="form1" runat="server">
   <asp:Button ID="Button1" runat="server" OnClick="Button1_Click" Text="到处数据" />
   </form>
</body>
</html>
VB.NET

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
   Dim sql As String
   Dim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|/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 Paging"
   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 Paging"
   cmd = New System.Data.OleDb.OleDbCommand(sql, cn)
   cmd.ExecuteNonQuery
   cn.Close
   cn.Dispose
   cn = Nothing
End Sub

jssfxzx16214628

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
直接将Access数据库导入到Excel文件

http://www.w3.org/1999/xhtml"> 直接将Access数据库导入到Excel文件 VB.NET Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Dim sql As String D
复制链接

扫一扫