查询断开的RecordSet

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浏览记录。