如何从Access获取十大记录并将其保存在Excel工作表中 [英] How to Get Top 10 Records from Access And save it in Excel Sheet

问题描述

全部，
我正在VB.NET中开发一个应用程序.我完成了将数据读写到Access Table中的任务.现在我需要从Access Table获取top10记录到excel表.在这里，我提供了用于读写Access的代码.

对于阅读......

Hai All,
I am Developing one application in VB.NET. I done the tasks of reading and writing the data into Access Table. Now i need to get top10 records to excel sheet from Access Table. Here i provide my code for reading and writing Access .

For READING......

cnnOLEDB.ConnectionString = strConnectionString
        cnnOLEDB.Open()
        Dim dt1 As New DataTable()
        dt1.Clear()
        Dim adp As New OleDb.OleDbDataAdapter("SELECT * FROM SMSDATA1DB", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & System.Environment.CurrentDirectory & "\SMSDB.mdb")
        adp.Fill(dt1)
        adp.Dispose()
        DGView.DataSource = dt1

对于写作.......

For WRITING.......

cmdInsert.CommandText = "INSERT INTO SMSDATA1DB (Start_Of_Packet, Packet_Identifier) VALUES ('" & STX1 & "', '" & STX2 & "')"
        MsgBox(cmdInsert.CommandText)
        cmdInsert.CommandType = CommandType.Text
        cmdInsert.Connection = cnnOLEDB
        cmdInsert.ExecuteNonQuery()
        cmdInsert.Dispose()

任何人都可以帮助我PLZZZZ .....

Any One Help me PLZZZZ.....

推荐答案

按如下所示更改您的选择查询

change your Select Query as following

SELECT TOP(10) * FROM SMSDATA1DB

检查以下代码以通过访问Excel导出数据

check following code to Export data from access to Excel

Dim AccessConn As New System.Data.OleDb.OleDbConnection("Provider=Micros oft.Jet.OLEDB.4.0;"&"Data Source=e:\My Documents\db1.mdb")
AccessConn.Open()
'New sheet in Workbook
Dim AccessCommand As New System.Data.OleDb.OleDbCommand("SELECT TOP 10 * INTO [Excel
8.0;DATABASE=C:\Book11.xls;HDR=NO;].[Sheet7] from SMSDATA1DB", AccessConn)
AccessCommand.ExecuteNonQuery()
AccessConn.Close()

尝试此操作-

try this-

Select TOP 10 * from Tablename order by Packet_Identifier desc<pre>

这篇关于如何从Access获取十大记录并将其保存在Excel工作表中的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！