1

我正在使用 Excel 工作表中的数据填充数据集。我现在需要将此数据插入到具有相同结构的 Access 数据库中的表中。

约定将要求我遍历 DataTable 的行并为每个行进行 INSERT 查询，但我想知道是否有更有效的方法来实现这一点？也许类似于 SQL Server 的 SqlBulkCopy 的东西？

这是我到目前为止的代码：

    Dim connection As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath(path) & ";Extended Properties=Excel 12.0;")
    Dim adapter = New OleDbDataAdapter("SELECT * FROM [Sheet1$] WHERE EmpID IS NOT NULL", connection)
    Dim results = New System.Data.DataSet
    connection.Open()
    adapter.Fill(results)
    connection.Close()
    connection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath("~/App_Data/Leaves.accdb"))
    `Now, short of a loop, how can I insert results.Tables(0) into my database?

谢谢你的帮助。

4

1 回答 1

1

您可以使用 ADO，例如：

INSERT INTO Table1 ( ADate ) 
SELECT SomeDate FROM [Excel 8.0;HDR=YES;DATABASE=Z:\Docs\Test.xls].[Sheet1$a1:a4]

连接到 Access 数据库的位置。如果您希望使用整个工作表，请将 [Sheet1$] 作为您的表格，如果您希望使用命名范围，只需按名称引用即可。

于 2012-10-28T12:01:40.653 回答