查询断开连接的记录集

Question

背景：据我所知，我们使用的一个 LOB 应用程序可以使用用 VBScript 编写的宏，但无法访问 WScript 等。

我已成功接收用户输入，将其传递给 SQL Server 上的存储过程，并将记录集返回给应用程序中的 VBScript 宏。

我现在想做的是编写一个函数或循环之类的东西，只要记录集中还有一条记录，就接受额外的用户输入，然后对照返回的记录集进行检查。

从 SQL Server 返回的记录集包含两列：PART_ID 和 PART_QTY。对于尽可能多的条目，我想接受额外的用户输入，比如 PART_ID_INPUT 和 PART_QTY_INPUT，并根据内存中的记录集对其进行验证。

我最大的问题是使用断开连接的记录集。

Answer 1

如有疑问，请阅读documentation。您可以使用Filter 和RecordCount 属性来确定记录集是否包含匹配记录：

part_id_input = InputBox("Enter part ID:")

If part_id_input <> "" Then
  rs.Filter = "PART_ID = '" & part_id_input & "'"
  If rs.RecordCount > 0 Then WScript.Echo "Found matching record."
End If

通过将过滤器设置为空字符串来清除过滤器：

rs.Filter = ""

可以使用Delete 方法从记录集中删除当前记录：

rs.Delete

通过MoveFirst/MoveLast/MoveNext/MovePrevious浏览记录。