How to get data from Excel sheet, and add that data into Ms-access database?

[Nagarajan .A]

I need to read an excel file, and add that data into msaccess database.
Can anyone help me?

Thanks in advance.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Paul Clement]

On Wed, 09 Jul 2003 12:18:15 -0700, Nagarajan .A <an*******@devdex.com> wrote:

¤ I need to read an excel file, and add that data into msaccess database.
¤ Can anyone help me?
¤

Try the following:

Public Sub ImportExcelToAccess()

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 table
Dim AccessCommand As New System.Data.OleDb.OleDbCommand("SELECT * INTO [tblSheet1] FROM
[Excel 8.0;DATABASE=e:\My Documents\Book10.xls;HDR=NO;IMEX=1].[Sheet1$]", AccessConn)

AccessCommand.ExecuteNonQuery()
AccessConn.Close()
End Sub
Paul ~~~ pc******@ameritech.net
Microsoft MVP (Visual Basic)