Stored Procedure - Return Value auslesen

chris1978 · 6. Oktober 2014, 08:47

Hallo Leute,

bin neu hier und stelle mich kurz vor.
Bin 36 und seit einiger Zeit mit Solid Works Add Ins beschäftigt.

Es sollen nämlich zwischen dem CAD System und dem ERP System Daten ausgetauscht/abgefragt werden.

Habe jetzt mein erstes AddIn begonnen, wo eine Stored Procedure am SQL Server aufgerufen wird.

Leidersteht im Return Value nichts drinnen, obwohl ich am SQL Server sehe, dass ein Wert zurück gegeben wird von der Stored Procedure.

Irgend etwas scheint da nicht zu stimmen, was ich da gebastelt habe.
Würde mich freuen wenn mir jemand einen Tip geben könnte.

Hier mal der Code

-----------------------------------------------------------------------------------------------------------------------

Visual Basic-Quellcode

Public Sub getDatafromJetOrbit()
Dim con As ADODB.Connection = New ADODB.Connection
Dim cmd As ADODB.Command = New ADODB.Command
Dim prm As New ADODB.Parameter
Dim rs As ADODB.Recordset = New ADODB.Recordset
Dim WgPr As String
Dim sConString As String
'Start stored procedure request
WgPr = InputBox("Bitte Warengruppen Präfix eingeben", "WG Präfix", "")
sConString = "Provider=SQLOLEDB;Data Source=FLOATING\TESTSQL;" & "Initial Catalog=TestJet;" & "Integrated Security=SSPI;"
con.Open(sConString)
cmd.CommandText = "MyCADGetArtikelNr"
cmd.CommandType = CommandType.StoredProcedure
prm = cmd.CreateParameter("@Warengruppe", DataTypeEnum.adBSTR, ParameterDirection.Input,
cmd.Parameters.Append(prm)
cmd.Parameters("@Warengruppe").Value = WgPr
prm = cmd.CreateParameter("@ArtikelNr", DataTypeEnum.adChar, ParameterDirectionEnum.adParamReturnValue, 25)
cmd.Parameters.Append(prm)
prm = cmd.CreateParameter("@FehlerText", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamReturnValue, 25)
cmd.Parameters.Append(prm)
cmd.ActiveConnection = con
cmd.Execute()
'Execute the Stored Procedure
MsgBox("Warengruppe: " + cmd.Parameters("@Warengruppe").Value)
MsgBox("Fehlertext: " + cmd.Parameters("@FehlerText").Value)
MsgBox("Artikelnummer: " + cmd.Parameters("@ArtikelNr").Value)
'var.SetVar("Artikelnummer", cmd.Parameters("@ArtikelNr").Value, "")
cmd.ActiveConnection = Nothing
con.Close()
con = Nothing
End Sub

-----------------------------------------------------------------------------------------------------------------------

Radinator · 6. Oktober 2014, 08:56

Bitte erst einmal Code richtig formatieren bitte !

chris1978 · 6. Oktober 2014, 09:05

Sorry, done

simpelSoft · 6. Oktober 2014, 10:57

chris1978 schrieb:

Leidersteht im Return Value nichts drinnen, obwohl ich am SQL Server sehe, dass ein Wert zurück gegeben wird von der Stored Procedure.

Vielleicht wertest Du die Rückgabe nur nicht richtig aus oder setzte sie nicht richtig? Ich kenne ja Deine SP nicht..

Hier nur mal ein Beispiel, direkt in T-SQL, wie Rückgaben einer SP verarbeitet werden ~können~ (wie gesagt nur in T-SQL, nicht .NET).
Beispiel-SP (wird hier neu angelegt, denk Dir den oberen Teil einfach weg):

SQL-Abfrage

/* SP löschen, falls vorhanden und 'sp_new_user' neu erstellen.
============================================================
Fügt einen neuen Kunden ein.
__ Test ____________________________________________________
DECLARE @v_returnText VARCHAR(MAX)
EXEC sp_new_user 'Herr','m','Müller','Erwin','13.12.1980','Am Oderbruch','66','12345','Hamburg','0401234567','01761234567','erwinm@web.de', @v_returnText OUTPUT
PRINT @v_returnText;
____________________________________________________________ */
IF EXISTS (
SELECT *
FROM dbo.sysobjects
WHERE id = object_id(N'[dbo].[sp_new_user]') AND OBJECTPROPERTY(id, N'IsProcedure') = 1
)
DROP PROCEDURE [dbo].[sp_new_user]
GO
CREATE PROCEDURE sp_new_user @v_Anrede VARCHAR(15)
,@v_Geschlecht VARCHAR(1)
,@v_Name VARCHAR(50)
,@v_Vorname VARCHAR(50)
,@vs_Geburtsdatum VARCHAR(50)
,@v_Strasse VARCHAR(100)
,@v_HausNummer VARCHAR(5)
,@v_PLZ VARCHAR(5)
,@v_Ort VARCHAR(50)
,@v_TelFest VARCHAR(15)
,@v_TelMobil VARCHAR(15)
,@v_eMail VARCHAR(100)
,@v_returnText VARCHAR(MAX) OUTPUT
AS
BEGIN
/* einfache Fehlerbehandlungen
--------------------------- */
/* Name */
IF @v_Name IS NULL OR LEN(LTRIM(RTRIM(@v_Name))) = 0
BEGIN
SET @v_returnText = 'Der Nachname fehlt!'
RETURN
END;
/* Vorname */
IF @v_Vorname IS NULL OR LEN(LTRIM(RTRIM(@v_Vorname))) = 0
BEGIN
SET @v_returnText = 'Der Vorname fehlt!'
RETURN
END;
/* Geburtstag */
BEGIN TRY
DECLARE @v_Geburtsdatum DATETIME
SET @v_Geburtsdatum = convert(DATETIME, @vs_Geburtsdatum)
END TRY
BEGIN CATCH
SET @v_returnText = 'Das Geburtsdatum fehlt oder ist syntaktisch falsch!'
RETURN
END CATCH;
/* Strasse */
IF @v_Strasse IS NULL OR LEN(LTRIM(RTRIM(@v_Strasse))) = 0
BEGIN
SET @v_returnText = 'Die Straße fehlt!'
RETURN
END;
/* Hausnummer */
IF @v_HausNummer IS NULL OR LEN(LTRIM(RTRIM(@v_HausNummer))) = 0
BEGIN
SET @v_returnText = 'Die Hausnummer fehlt!'
RETURN
END;
/* PLZ */
IF @v_PLZ IS NULL OR LEN(LTRIM(RTRIM(@v_PLZ))) = 0
BEGIN
SET @v_returnText = 'Die PLZ fehlt!'
RETURN
END;
/* Ort */
IF @v_Ort IS NULL OR LEN(LTRIM(RTRIM(@v_Ort))) = 0
BEGIN
SET @v_returnText = 'Der Ort fehlt!'
RETURN
END;
/* neuen Kunden einfügen */
BEGIN TRANSACTION;
BEGIN TRY
INSERT INTO Kunden (
Anrede
,Geschlecht
,NAME
,Vorname
,Geburtsdatum
,Strasse
,HausNummer
,PLZ
,Ort
,TelFest
,TelMobil
,eMail
)
VALUES (
@v_Anrede
,@v_Geschlecht
,@v_Name
,@v_Vorname
,@v_Geburtsdatum
,@v_Strasse
,@v_HausNummer
,@v_PLZ
,@v_Ort
,@v_TelFest
,@v_TelMobil
,@v_eMail
);
COMMIT;
SET @v_returnText = @v_Vorname + ' ' + @v_Name + ' wurde als Neukunde eingetragen.'
END TRY
BEGIN CATCH
/* Rollback bei einem Fehler */
ROLLBACK TRANSACTION;
DECLARE @ErrMsg NVARCHAR(4000)
,@ErrSeverity INT;
SELECT @ErrMsg = ERROR_MESSAGE()
,@ErrSeverity = ERROR_SEVERITY();
RAISERROR (
@ErrMsg
,@ErrSeverity
,1
);
END CATCH;
END;
GO

Und hier eine mögliche Auswertung der Rückgabe:

SQL-Abfrage

/* sp_new_user - fügt einen neuen Kunden ein.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
DECLARE @v_returnText VARCHAR(MAX)
EXEC sp_new_user 'Herr','m','Müller','Erwin','13.12.1980','Am Oderbruch','66','12345','Hamburg','0401234567','01761234567','erwinm@web.de', @v_returnText OUTPUT
PRINT @v_returnText;
GO

chris1978 · 6. Oktober 2014, 11:50

Nun ja, die stored procedure hat einen Inputwert => PREFIX

Es gibt zwei return values

1. Artikelnummer
2. Fehlertext

Irgend etwas mache ich beim Createparameter falsch, denke ich.

Visual Basic-Quellcode

prm = cmd.CreateParameter("@ArtikelNr", DataTypeEnum.adChar, ParameterDirectionEnum.adParamReturnValue, 25)
cmd.Parameters.Append(prm)
prm = cmd.CreateParameter("@FehlerText", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamReturnValue, 25)
cmd.Parameters.Append(prm)

Wenn ich jetzt eine msgbox ausgebe sollte doch der Wert drinnen stehen so oder?

Visual Basic-Quellcode

MsgBox("Artikelnummer: " + cmd.Parameters("@ArtikelNr").Value)

simpelSoft · 6. Oktober 2014, 13:28

Hi Chris,

dies und das sollten Dir weiterhelfen?

chris1978 · 6. Oktober 2014, 14:47

Danke, eigentlich sollte das was ich gemacht habe auch so passen, wenn ich mir die Artikel durchlese.
Leider kein Erfolg.

petaod · 6. Oktober 2014, 17:58

chris1978 schrieb:

eigentlich sollte das was ich gemacht habe auch so passen

Ich sehe nicht, dass du irgendwo SqlParameter.Direction verwendest.

chris1978 · 7. Oktober 2014, 10:34

VB.NET-Quellcode

chris1978 schrieb:

prm = cmd.CreateParameter("@Warengruppe", DataTypeEnum.adBSTR, ParameterDirection.Input,

cmd.Parameters.Append(prm)

cmd.Parameters("@Warengruppe").Value = WgPr

prm = cmd.CreateParameter("@ArtikelNr", DataTypeEnum.adChar, ParameterDirectionEnum.adParamReturnValue, 25)

cmd.Parameters.Append(prm)

prm = cmd.CreateParameter("@FehlerText", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamReturnValue, 25)

cmd.Parameters.Append(prm)

petaod · 7. Oktober 2014, 10:55

Dein Problem liegt wahrscheinlich da:

chris1978 schrieb:

Es gibt zwei return values
1. Artikelnummer
2. Fehlertext

Das sind wohl Output-Parameter.
Auch eine StoredProcedure kann maximal einen Return-Wert haben.

Ist dir der Unterschied klar?

chris1978 · 7. Oktober 2014, 12:39

Sorry hatte mich verschrieben.
Ja sind OUTPUT Parameter.

Nur leider steht nichts drinnen in "@Artikelnummer"
Oder ich bin einfach zu blöd um das auszulesen

Bin schon etwas am Verzweifeln leider, hat sich nichts geändert am Ergebnis.

Visual Basic-Quellcode

Dim con As ADODB.Connection = New ADODB.Connection
Dim cmd As ADODB.Command = New ADODB.Command
Dim prm As ADODB.Parameter = New ADODB.Parameter
Dim rs As ADODB.Recordset = New ADODB.Recordset
Dim WgPr As String
Dim sConString As String
'Start stored procedure request
WgPr = InputBox("Bitte Warengruppen Präfix eingeben", "WG Präfix", "")
sConString = "Provider=SQLOLEDB;Data Source=FLOATING\TESTSQL;" & "Initial Catalog=TestJet;" & "Integrated Security=SSPI;"
con.Open(sConString)
cmd.CommandText = "MyCADGetArtikelNr"
cmd.CommandType = CommandType.StoredProcedure
prm = cmd.CreateParameter("@Warengruppe", DataTypeEnum.adChar, ParameterDirectionEnum.adParamInput, 8)
cmd.Parameters.Append(prm)
cmd.Parameters("@Warengruppe").Value = WgPr
prm = cmd.CreateParameter("@ArtikelNr", DataTypeEnum.adChar, ParameterDirectionEnum.adParamOutput, 25)
cmd.Parameters.Append(prm)
prm = cmd.CreateParameter("@FehlerText", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamOutput, 300)
cmd.Parameters.Append(prm)
cmd.ActiveConnection = con
rs = cmd.Execute()
MsgBox("Warengruppe: " + cmd.Parameters("@Warengruppe").Value)
MsgBox("Fehlertext: " + cmd.Parameters("@FehlerText").Value)
MsgBox("Artikelnummer: " + cmd.Parameters("@ArtikelNr").Value)
cmd.ActiveConnection = Nothing
con.Close()
con = Nothing

chris1978 · 7. Oktober 2014, 14:09

Des Rätsels Lösung ist, dass man die Connection CLOSED und dann den Wert ausliest.

Visual Basic-Quellcode

Dim con As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim prm As New ADODB.Parameter
Dim rs As New ADODB.Recordset
Dim WgPr As String
Dim sConString As String
Dim Ret0, Ret1 As String
　
'Start stored procedure request
WgPr = InputBox("Bitte Warengruppen Präfix eingeben", "WG Präfix", "")
sConString = "Provider=SQLOLEDB;Data Source=FLOATING\TESTSQL;" & "Initial Catalog=TestJet;" & "Integrated Security=SSPI;"
con.Open(sConString)
rs.CursorLocation = CursorLocationEnum.adUseClient
cmd.CommandText = "MyCADGetArtikelNr"
cmd.CommandType = CommandType.StoredProcedure
cmd.ActiveConnection = con
prm = cmd.CreateParameter("@Warengruppe", DataTypeEnum.adChar, ParameterDirectionEnum.adParamInput, 2, "")
cmd.Parameters.Append(prm)
cmd.Parameters("@Warengruppe").Value = WgPr
prm = cmd.CreateParameter("@ArtikelNr", DataTypeEnum.adChar, ParameterDirectionEnum.adParamOutput, 10)
cmd.Parameters.Append(prm)
prm = cmd.CreateParameter("@FehlerText", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamOutput, 30)
cmd.Parameters.Append(prm)
rs = cmd.Execute()
con.Close()
Ret0 = cmd.Parameters(1).Value
MsgBox(Ret0)
　
cmd.ActiveConnection = Nothing
con = Nothing

Stored Procedure - Return Value auslesen

Stored Procedure - Return Value auslesen

Visual Basic-Quellcode

chris1978 schrieb:

SQL-Abfrage

SQL-Abfrage

Visual Basic-Quellcode

Visual Basic-Quellcode

chris1978 schrieb:

VB.NET-Quellcode

chris1978 schrieb:

chris1978 schrieb:

Visual Basic-Quellcode

Visual Basic-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben