How to Get Top 10 Records from Access And save it in Excel Sheet

Question

0.00/5 (No votes)

See more:

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......

VB

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.......

SQL

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()

Any One Help me PLZZZZ.....

Posted 29-Nov-11 19:44pm

Himachandra

Add a Solution

2 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

koolprasad2003 · Answer 1 · 2011-11-29T19:53:00

Solution 1

change your Select Query as following

SELECT TOP(10) * FROM SMSDATA1DB

check following code to Export data from access to Excel

VB

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()

Posted 29-Nov-11 19:53pm

koolprasad2003

Updated 29-Nov-11 22:47pm

v2

Comments

Himachandra 30-Nov-11 2:09am

Have an Error

The SELECT statement includes a reserved word or an argument name that is misspelled or missing, or the punctuation is incorrect.

Raimis9 30-Nov-11 2:24am

Change to : "SELECT TOP 10 * INTO ..."

koolprasad2003 30-Nov-11 4:47am

check now

Himachandra 30-Nov-11 6:37am

Error : "Could not find installable ISAM "
Has been occur

Jαved · Answer 2 · 2011-11-29T22:45:00

Solution 2

try this-

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

Posted 29-Nov-11 22:45pm

Jαved