Wie man einen Wert aus der gespeicherten Prozedur

Wie man einen return-Wert aus der gespeicherten Prozedur, mit VB6 und SQL Server.

Gespeicherte Prozedur

ALTER PROCEDURE [dbo].[DayAttn]
    @Attn VARCHAR(12) OUTPUT
AS
BEGIN
    SELECT @Attn = MAX(id)
    FROM   table1

    RETURN @Attn
END

VB6

conn.Execute "exec DayAttn '" '" & Attn & "'"

Der obige code zeigt eine Fehlermeldung an.

  • Meine Kristallkugel ist kaputt. Was ist der Fehler???
InformationsquelleAutor Gopal | 2013-01-30
  1. 3

    Dieser code sollte dir zeigen, wie es in VB6/ADO classic:

    Set cmdTemp = New ADODB.Command
Set cmdTemp.ActiveConnection = gcnxMain
cmdTemp.Parameters.Append cmdTemp.CreateParameter("Ret", adInteger, adParamReturnValue)
cmdTemp.CommandType = adCmdStoredProc
cmdTemp.CommandText = "Procname"
cmdTemp.Execute
MsgBox "Return Value: " & cmdTemp.Parameters("Ret")
    • Zeigt Fehler als parameter nicht angegeben zu speichern, Verfahren
    • Stellen Sie sicher, fügen Sie Zeilen für beliebige Eingabeparameter der Prozedur erfordert.
    InformationsquelleAutor JohnFx
  2. 1

    Hier ist die Nutzung von in/out-Parameter zu:

    Beispiel Für Eine Gespeicherte Prozedur

    CREATE PROCEDURE [dbo].[TestRetVal]
    @P1 int,         --Parameter 1, INPUT ONLY
    @P2 int OUT      --Parameter 2, INPUT/OUTPUT
AS
BEGIN
DECLARE @RetVal int
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;

SET @RetVal = @P1 + @P2  --Do whatever you need with parms

SET @P2 = 10 * @P1       --Assign value to OUTPUT parameter

RETURN @RetVal           --Assign SP return value

END

    VB6-Code:

    Dim cnnDB As ADODB.Connection
Dim Cmd As New ADODB.Command
Dim Param As ADODB.Parameter

'Set up your cnnDB connection...

 Cmd.CommandText = "TestRetVal"
 Cmd.CommandType = CommandTypeEnum.adCmdStoredProc

 Set Param = Cmd.CreateParameter(, adInteger, adParamReturnValue)
 Cmd.Parameters.Append Param

 Set Param = Cmd.CreateParameter("P1", adInteger, adParamInput, 8, 2)
 Cmd.Parameters.Append Param

 Set Param = Cmd.CreateParameter("P2", adInteger, adParamInputOutput, 8, 4)
 Cmd.Parameters.Append Param

 'Assuming a connection has been established
 Set Cmd.ActiveConnection = cnnDB
 Set rstTest = Cmd.Execute()

 Debug.Print Cmd.Parameters(0)       '--> 6  (Shows SP return value, value of the FIRST parameter added to cmd)
 Debug.Print Cmd.Parameters("P2")    '--> 20 (Shows current value for P2 OUT parameter)

    Siehe auch how-to-get-return-Wert einer gespeicherten Prozedur (Dank Pecos Bill!)

    InformationsquelleAutor Parsec08
Schreibe einen Kommentar