So rufen Sie einen Wert aus einem Recordset ab, das kein Rückgabewert oder Ausgabeparameter ist vb6

Question

Ich habe ein gespeichertes Proc auf einer vorhandenen 3rd-Party-Anwendung (SQL 2005), mit der ich interagieren möchte.

Es ist eine Insert-Anweisung gefolgt von einer Select-Anweisung wie folgt;

 
    Set @CustomerId = Cast(SCOPE_IDENTITY() As [int]) 

    Select @CustomerId 

Mit VB6 Wie kann ich den Wert von @CustomerID zugreifen?

set rs = cmd.Execute 

kehrt keine resultset wie erwartet ...

[Bearbeiten]

rs.Fields.Count ist 0.

Jeder Versuch, das resultierende Recordset zuzugreifen , wie rs (0) .Wert verursacht einfach einen Fehler "Artikel nicht gefunden ...".

Answer 1

Ich würde vermuten, dass Ihre gespeicherte Prozedur mehr als ein Recordset zurückgibt. In diesem Fall können Sie die Methode NextRecordset() verwenden, um sie zu durchlaufen.

MSDN:

• Wenn eine Zeile-Rückkehr-Befehl erfolgreich ausgeführt wird, gibt aber keine Aufzeichnungen, die zurück Cord-Objekt wird offen, aber leer sein. Testen Sie für diesen Fall, indem Sie überprüfen, ob die Eigenschaften BOF und EOF beide True sind.
• Wenn ein non-row-returning-Befehl erfolgreich ausgeführt wird, wird das zurückgegebene Re-Cord-Set-Objekt geschlossen, das Sie überprüfen können, indem Sie die State Eigenschaft auf dem Re-Cord-Set testen.
• Wenn keine Ergebnisse mehr vorhanden sind, wird Recordset auf Nothing festgelegt.

Das bedeutet, dass ich so etwas wie dies würde vorschlagen, Ihr Problem zu lösen:

Set rs = cmd.Execute 

''# fetch the first value of the last recordset 
Do Until rs Is Nothing 
    If rs.State = adStateOpen Then 
    If Not (rs.BOF And rs.EOF) Then 
     ''# You can do a different sanity check here, or none at all 
     If rs.Fields(0).Type = adInteger Then 
     CustomerId = rs.Fields(0).Value 
     End If 
    End If 
    End If 
    Set rs = rs.NextRecordSet 
Loop 

MsgBox CustomerId