Ado.net to excel ? -- vb.net

vb.net : Ado.net to excel ?

Agnes
2/26/2006 11:45:15 PM

From
http://support.microsoft.com/default.aspx?scid=kb;EN-US;306022#XSLTH4207121122120121120120It
seems we can export the data to an excel by a simple query. However, I try
to amend that statement into "insert int [Sheet1$] select * from myInvoice
", HOwerver, it really doesn't work . Does anyone got idea ?Thanks alot
'Establish a connection to the data source.
Dim sConnectionString As String
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sSampleFolder & _
"Book7.xls;Extended Properties=Excel 8.0;"
Dim objConn As New
System.Data.OleDb.OleDbConnection(sConnectionString)
objConn.Open()

'Add two records to the table.
Dim objCmd As New System.Data.OleDb.OleDbCommand()
objCmd.Connection = objConn
objCmd.CommandText = "Insert into [Sheet1$] (FirstName, LastName)" &
" values ('Bill', 'Brown')" <-- I try to amend
objCmd.ExecuteNonQuery()
objCmd.CommandText = "Insert into [Sheet1$] (FirstName, LastName)" &
" values ('Joe', 'Thomas')"
objCmd.ExecuteNonQuery()

'Close the connection.
objConn.Close()

Paul Clement
2/27/2006 11:12:07 AM

[quoted text, click to view]

¤ From
¤ http://support.microsoft.com/default.aspx?scid=kb;EN-US;306022#XSLTH4207121122120121120120It
¤ seems we can export the data to an excel by a simple query. However, I try
¤ to amend that statement into "insert int [Sheet1$] select * from myInvoice
¤ ", HOwerver, it really doesn't work . Does anyone got idea ?Thanks alot
¤ 'Establish a connection to the data source.
¤ Dim sConnectionString As String
¤ sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
¤ "Data Source=" & sSampleFolder & _
¤ "Book7.xls;Extended Properties=Excel 8.0;"
¤ Dim objConn As New
¤ System.Data.OleDb.OleDbConnection(sConnectionString)
¤ objConn.Open()
¤
¤ 'Add two records to the table.
¤ Dim objCmd As New System.Data.OleDb.OleDbCommand()
¤ objCmd.Connection = objConn
¤ objCmd.CommandText = "Insert into [Sheet1$] (FirstName, LastName)" &
¤ " values ('Bill', 'Brown')" <-- I try to amend
¤ objCmd.ExecuteNonQuery()
¤ objCmd.CommandText = "Insert into [Sheet1$] (FirstName, LastName)" &
¤ " values ('Joe', 'Thomas')"
¤ objCmd.ExecuteNonQuery()
¤
¤ 'Close the connection.
¤ objConn.Close()
¤

What is myInvoice? Is this an Excel Worksheet in the current Workbook opened through your
connection?

Paul
~~~~

Agnes
2/28/2006 12:00:00 AM

myInvoice is the table in SQL server,

"Paul Clement" <UseAdddressAtEndofMessage@swspectrum.com>
???????:ijc6021vi5h5k48q4u5krk60abm3r3kj0a@4ax.com...
[quoted text, click to view]

Paul Clement
2/28/2006 8:44:30 AM

[quoted text, click to view]

¤ myInvoice is the table in SQL server,
¤

You need to hook up with SQL Server as well. See if the following helps:

"INSERT INTO [Sheet1$] SELECT * FROM [ODBC;Driver={SQL
Server};Server=(local);Database=DBName;Trusted_Connection=yes].[myInvoice];"

Paul
~~~~

Got something to say? Click here to post a reply to this thread.

Don't see what you're looking for? Try a search.

View other messages about vb.net

View Other Months
June 2003
July 2003
August 2003
September 2003
October 2003
November 2003
December 2003
January 2004
February 2004
March 2004
April 2004
May 2004
June 2004
July 2004
August 2004
September 2004
October 2004
November 2004
December 2004
January 2005
February 2005
March 2005
April 2005
May 2005
June 2005
July 2005
August 2005
September 2005
October 2005
November 2005
December 2005
January 2006
February 2006
March 2006
April 2006
May 2006
June 2006
July 2006
August 2006
September 2006
October 2006
November 2006
December 2006
January 2007
February 2007
March 2007
April 2007
May 2007
June 2007
July 2007
August 2007
September 2007
October 2007
November 2007
December 2007
January 2008
February 2008

home · blog · groups

Questions? Comments? Contact the dn