自动将数据从 Access 插入 Sql server

Question

情况： 我们每月收到统计源数据。它以带有 Access 数据库的 CD 形式提供，其中包含两个表。所以我们有 1 个 *.mdb 文件，里面有 2 个表。分析师应该能够导入数据、计算和标准化数据并检查结果。如果结果很好，则填充数据。分析师不是程序员，他们没有 SQLServerManagementStudio。

我的任务： 使用按钮为分析师创建一个访问表单作为前端：导入、计算、检查、填充。每个按钮都会触发路径槽查询，它不会在 sql server 端运行存储过程。

我的问题： 我项目的瓶颈是数据导入。它应该自动完成（而不是手动完成，因为分析师没有安装管理工作室）。

我尝试了什么：

1) 我将 SQL Server 的表链接到访问中，并尝试使用常规查询来复制（INSERT INTO ** FROM *），但它需要的时间太长。 （我在两个表中有大约 400 万行）

2) 因为我喜欢 BULK INSERT 无法从访问文件导入。

3) OPENROWSET 方法：

SELECT *
FROM OPENROWSET( 'Microsoft.Jet.OLEDB.4.0','\\euro-dc\DOTS\2014\dots.mdb';'admin';'',TimeSeries)

返回错误：

消息 7308，级别 16，状态 1，行 1 OLE DB 提供程序 'Microsoft.Jet.OLEDB.4.0' 不能用于分布式查询 因为提供程序配置为在单线程单元中运行 模式。

Openrowset 解决方案不可取。我想避免它。因为它可以在某些计算机上运行，​​但由于 OLDB 驱动程序，它不能在其他计算机上运行。 windows 重新安装后需要检查 OLEDB 驱动程序...不是很舒服，因为有 15 位分析师。只有在没有其他方法可以导入数据的情况下。

\euro-dc\dots 文件夹可用于 sql server - 它已在我的其他项目中进行了测试。

将欣赏任何新的想法。 谢谢

Answer 1

使用导入向导并保存您要导入的每组数据的导入规范。然后在执行导入规范的按钮下编写一些代码/宏。 您导入的表可以在 Access 中构建，然后升级为 SQL Svr。

400 万条记录会很慢，因此您可能希望将其放在单独的 MDB 中，以免占用分析师的工作 MDB。

Answer 2

由于您要处理大量记录，因此您应该考虑索引可能对数据导出/导入过程的性能产生的影响。在您的情况下，有些人用来加快速度的技术是首先将源数据导出为方便的中间文件格式（CSV 或其他格式），删除目标表上的索引，执行 BULK INSERT 以提取中间文件数据到您的目标表中，然后在 BULK INSERT 完成后最终在目标表上重新创建索引。

这可以显着提高性能，因为在最后（一次）重新创建索引通常比每次插入一行时发生的所有索引更新的总和快得多。

我相信您应该能够通过 Access 使用 VBA 和 T-SQL 传递查询以编程方式实现上述每个步骤。

希望对您有所帮助。祝你的项目好运。

Answer 3

如果您在下面的查询行中使用某些内容，它将从 MS Access 运行。您还可以选择传递查询，或者更好的是，提供一些代码来提供参数。

INSERT INTO
[ODBC;DRIVER=SQL Server;Server=servername;Database=dbname;Integrated Security=SSPI].Table1
SELECT * FROM Table1

获取正确连接字符串的最简单方法是链接表，然后检查连接属性。

您还可以在 http://connectionstrings.com 找到连接字符串

一些示例，请注意，虽然名称用作参考，但实际上参数的顺序很重要。大多数情况下，我会检查我是否有连接，以节省时间。

MS Access 中的查询

Set db = CurrentDb

sSQL = "INSERT INTO dbo_LocationLocationType (LocationID,LocationTypeID) VALUES (@LocationId,@LocationName)"
Set qdf = db.CreateQueryDef("", sSQL)

qdf.Parameters![@LocationId] = LocationID
qdf.Parameters![@LocationName] = LocationName

qdf.ReturnsRecords = False

qdf.Execute dbFailOnError

存储过程

 Dim cmd As New ADODB.Command
 Dim prm As ADODB.Parameter

    With cmd
        .ActiveConnection = "insert connection string"
        .CommandType = adCmdStoredProc
        .CommandText = "NameofStoredProcedure"

        Set prm = .CreateParameter("@LocationID", adInteger, adParamInput)
            prm.Value = frm.txtLocationID
            .Parameters.Append prm

        Set prm = .CreateParameter("@LocationName", adVarWChar, adParamInput, 255)
            prm.Value = frm.txtLocationDetailName
            .Parameters.Append prm

        .Execute

    End With