查询已断开连接的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浏览记录。