小编Rob*_*w84的帖子

我是一个完整的VBScript新手,我正在尝试执行存储过程并读取结果集.我尝试了许多不同的方法在线使用文章,但没有任何作用,我很难过.数据库是SQL Server 2008 R2,该应用程序是一个现成的ERP系统,但我可以添加自己的代码.

我可以使用以下命令执行代码:

connection.execute"insert into blah blah blah"

我可以使用以下方法读取结果集:

Set objRS = CreateObject("ADODB.Recordset")

objRS.Open "select a, b, c FROM blahblah", Connection, adOpenStatic, adLockBatchOptimistic,    adCmdText
If objRS.EOF = False Then
    a = objRS.Fields("a").Value
    b = objRS.Fields("b").Value
    c = objRS.Fields("c").Value
End If
objRS.Close

有问题的存储过程实际上是一个select语句,例如:

create procedure [dbname].[dbo].[sptestproc] 
as 
    @Option1 Varchar(10) = NULL,
    @Option2 Varchar(10) = NULL
AS
BEGIN
    select first, second 
    from table1 
    where a = @option1 and b = @toption2
End

我的代码到目前为止:

Dim sql

sql = "EXEC [dbname].[dbo].[sptestproc] '" …

我有 2 个表，一个包含人，一个包含凭证，我需要为每个人分配一个凭证，并使用分配给它的人的 ID 更新凭证表。由于没有用于连接表的通用键，我不能使用递归 CTE，而且我总是尽量避免使用循环，但我想不出任何其他方式。

有没有办法不使用循环？最好在一个语句中。

这将给出表的示例（我使用的是 SQL Server 2008 R2）

CREATE TABLE Persons (ID INT IDENTITY(1,1), 
                      FirstName VARCHAR(30), 
                      LastName  VARCHAR(50),      
                      Voucher CHAR(5))

CREATE TABLE Vouchers (Voucher CHAR(5), 
                       Assigned INT)

INSERT INTO Persons (FirstName,LastName) VALUES ('Rob','Smith')
INSERT INTO Persons (FirstName,LastName) VALUES ('Alan','Brown')
INSERT INTO Persons (FirstName,LastName) VALUES ('John','Plant')
INSERT INTO Persons (FirstName,LastName) VALUES ('Mike','Black')
INSERT INTO Persons (FirstName,LastName) VALUES ('Steve','Green')

INSERT INTO Vouchers (Voucher) VALUES ('FEWPN')
INSERT INTO Vouchers (Voucher) VALUES ('ROPIW')
INSERT INTO Vouchers (Voucher) VALUES ('NGLCE')
INSERT …