0

我有一个使用 OLEDB 从访问权限创建的查询，需要将信息获取到现有的 Excel 电子表格。我正在使用带有 VB.Net 的 VS 2010，MS Access 和 Excel 是 2010。过去两天我一直在兜圈子，不知道如何将数据从 DataReader 获取到 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 中的地步。如果我将它放在 WebForm 中，我可以导出到 excel，但我不知道如何使用控制台应用程序？

谢谢你的帮助。

4

1 回答 1

1

您可以针对创建 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-27T15:45:18.993 回答