Excel VBA 编程 -- 大数据量写入数据库(二)
- 2026-04-01 04:18:45
Excel VBA 编程 -- 大数据量写入数据库(二)前面我们讨论了利用 VBA 将 10 万条记录写入数据库，今天讨论如何写一个 Delphi 函数将 Excel 中的 10 万条记录写入数据库。 关于如何用 Delphi 写一个 DLL，请参看文末相关阅读中的《Delphi 编程 -- 写一个 DLL》。关于如何在 Delphi 中访问数据库，请参看文末相关阅读中的《Delphi 编程 -- 访问数据库（1）》。 有了以上的准备，下面就来看具体的实现代码。 
首先，声明 DLL 中的函数 WriteDataToDbByDelphi，这个函数在 DLL 中的名字是 WriteDataToDb，这个函数位于 PinnUtil64.dll 中。该函数接受一个变体类型的参数（实际是一个二维数组），并返回成功与否的布尔值。 
接下来，与 VBA 方式中的代码一样，有一个总控过程 WriteDataTest，这个过程调用 WriteDataToDb，而 WriteDataToDb 则调用 Delphi 的函数 WriteDataToDbByDelphi，完成写入数据库的任务。 同 VBA 的代码一样，也是用 Stopwatch 来记录 WriteDataToDbByDelphi 函数的运行时间，并将结果写入 Sheet2 中的相应单元格。 这是 Excel 中的 VBA 部分所完成的工作。下面来看 Delphi 代码。 
相关的 Delphi 代码位于 DbUtil 单元中。由上面的代码可见，WriteDataToDb 函数声明在 interface 部分，并由 exports 命令将该函数呈现给外部世界。这样声明的 WriteDataToDb 就可以由其他可以调用 DLL 函数的代码来调用了。 在实现部分（implementation），声明了三个过程，仔细观察，这三个过程与 VBA 代码中的过程声明基本一致。另外一个 QuoteStr 是一个实用函数（utility function），用来判断字符串中是否含有单引号（'），如果有，则再加一个单引号对其进行转义，然后对字符串前后添加单引号以符合 SQL 语言中对字符串值的语法要求。 接着是两个私有变量的声明，cn 用来保存当前的连数据库连接，cmd 用来表示当前的 Command 对象。 
Delphi 版本的 WriteDataToDb 与 VBA 版本的 WriteDataToDb 基本一致，其中，VarArrayLowBound 对应于 VBA 中的 LBound，VarArrayHighBound 对应于 VBA 中的 UBound。Case 语句对应于 VBA 中的 Select Case 语句。函数的主体是遍历二维数组 A，对每一行都生成一条 INSERT INTO 的 SQL 语句，并调用 ExecuteSQL 执行之。 
同样，OpenConnection、CloseConnection、ExecuteSQL 同 VBA 版本基本一致，只要熟悉 VBA 的版本，Delphi 版本的代码并不难理解。因此不再赘述。 
为了提高 QuoteStr 函数的执行效率，将该函数定义为 inline 函数。inline 函数与普通函数的区别在于：普通函数是通过函数调用来执行该函数的代码，inline 函数则是将该函数的代码替换到该函数出现的地方。因此，inline 函数不需要函数调用，从而省掉了函数调用的开销，提升了性能。 昨天我们说，Delphi 代码相对于 VBA 代码有一点点优势，可能是由于 Delphi 编译为本机代码所带来的性能提升。今天又做了一些测试，二者互有胜负。Delphi 相比 VBA 并不总有优势。这样看来，Excel 中的 VBA 性能实际上并不低。有兴趣的朋友可以自己做一些测试。 相关阅读 Delphi 编程 -- 写一个 DLL Delphi 编程 -- 访问数据库（1） Excel VBA 编程 -- 大数据量写入数据库（一）
本文来自网友投稿或网络内容，如有侵犯您的权益请联系我们删除，联系邮箱：wyl860211@qq.com 。
