在控制檯應用程序中導出訪問查詢excel

我有一個使用OLEDB從訪問創建的查詢，並且需要將信息獲取到已經存在的Excel電子表格。我正在使用VS 2010與VB.Net，MS Access和Excel 2010年。我一直運行在過去兩天的圈子，無法弄清楚，如何將數據從DataReader到Excel中？在控制檯應用程序中導出訪問查詢excel

這是一個VB.Net控制檯應用程序，因此不能使用Web表格或網格。

Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Pureshow\Pureshow.mdb;") 
Dim cmd As New OleDb.OleDbCommand("SELECT PWTC08.Lot AS LotID, PWTC08.Reg AS OfficialID FROM ((PWTC08 INNER JOIN SWTC08 ON cint(LEFT(PWTC08.Lot, InStr(PWTC08.Lot, '-') - 1)) = SWTC08.FileId) INNER JOIN BWTC08 ON PWTC08.Buyer = BWTC08.FileId)", conn) 

    Try 
     conn.Open() 
     Dim read As OleDb.OleDbDataReader = cmd.ExecuteReader() 
     If read.HasRows Then 
      While read.Read() 
      End While 
     Else 
     End If 

     read.Close() 

    Catch ex As Exception 

    Finally 
     conn.Close() 
    End Try

我幾乎要輸出到CSV並告訴用戶每次都要導入到excel中。我可以導出爲Excel，如果我把它放在WebForm中，但我無法弄清楚如何使用控制檯應用程序？

感謝您的任何幫助。

來源

2012-06-27 Primetime

您可以對創建一個Excel文件中的MS Access連接執行一個查詢：

SELECT t.ID, t.AText, t.ADate 
INTO [Excel 8.0;HDR=YES;DATABASE=Z:\Docs\New2.xls].[Sheet1] 
FROM Table1 As t

來源

2012-06-27 15:45:18 Fionnuala

這工作就像一個魅力，希望這幾天前就已經認識。我每天都會學到新的東西。謝謝您的幫助。 – Primetime

在控制檯應用程序中導出訪問查詢excel

回答

相關問題