使用 QODBC 的 VBA SQL 循环答案

【问题标题】：VBA SQL Loop using QODBC使用 QODBC 的 VBA SQL 循环
【发布时间】：2014-06-03 03:05:58
【问题描述】：

我正在尝试遍历现有表 (tblSalesOrder)，我需要遍历每一行（它们与特定客户相关的位置）并将每一行写入 SQL 语句并执行它。

执行此程序的最简单方法是什么？

在通过 SQL 将数据写入 QuickBooks 数据库之前，需要计算行数。

我可以使用下面的代码在 php 中编写类似的代码，但我不确定如何将其转换为 VBA 友好格式：

$sql_count = "SELECT count(*) FROM tblSalesOrder WHERE Customer='cust_number'";
execute_query($sql_count)

当上述值大于 0 时，vba 代码应循环查询。

【问题讨论】：

标签： sql ms-access vba quickbooks

【解决方案1】：

您需要一个记录集来执行和存储您的查询结果。

Dim sql_count As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

您需要连接到数据库连接。 “cn”正在存储与 QuickBooks 的连接。

sql_count = "SELECT count(*) FROM tblSalesOrder WHERE Customer='cust_number'"
Set rs = cn.Execute(sql_count)

Do While rs.Fields(0).Value > 0 ' rs.Fields(0) should get you the count(*)
' your codes
Loop

对于 QuickBooks 的连接字符串，您可能可以阅读 here

【讨论】：

【解决方案2】：

请参考以下链接。您可以打开记录集：

http://www.qodbc.com/qodbcvisualbasic.htm

http://support.flexquarters.com/esupport/index.php?/Knowledgebase/Article/View/28/57/example-code-of-update-qb-from-ms-access

【讨论】：