Hallo Thomas,
bitte niemals den Return Wert für Rückgaben benutzen. Der sollte für den Fehlerstatus reserviert bleiben; ausserdem kann er nur Integer Werte liefern.
Geändert in eine Ausgabe-Variable:
ALTER PROCEDURE [dbo].[sp_CheckUserID1]
@UserAbr nvarchar(40), -- etwas üppiger sollte schon sein ;)
@UserPrint int = NULL OUTPUT -- Ausgabe
AS
SET NOCOUNT ON;
SELECT @UserPrint = u.pUser
FROM dbo.tblUser u
WHERE u.UserAbr = @UserAbr;
IF @@ROWCOUNT = 1
RETURN 0;
ELSE
RETURN 1;
GO
-- Zum Testen:
DECLARE @UserPrint int;
DECLARE @rc int;
EXEC @rc = dbo.sp_CheckUserID1 'eboye', @UserPrint OUTPUT;
SELECT @rc, @UserPrint;
Dazu der Aufruf:
Public Shared Sub TestGetUserID()
For Each userName In New String() {"eboye", Nothing, "elmar"}
Dim userID = GetUserID(userName)
Console.WriteLine("UserName '{0}' is UserID {1}", userName, userID)
Next
End Sub
Public Shared Function GetUserID(Optional userName As String = Nothing) As Integer
If String.IsNullOrEmpty(userName) Then
userName = Environment.UserName
End If
Using connection As New SqlConnection(My.Settings.NorthwindConnectionString)
connection.Open()
Using command As New SqlCommand("sp_CheckUserID1", connection) _
With {.CommandType = CommandType.StoredProcedure}
command.CommandType = CommandType.StoredProcedure
command.Parameters.AddWithValue("@UserAbr", userName)
' als Ausgabeparameter
Dim userPrint = New SqlParameter("@UserPrint", SqlDbType.Int) _
With {.Direction = ParameterDirection.Output}
command.Parameters.Add(userPrint)
command.ExecuteNonQuery()
Dim userID As Object = userPrint.Value
' NULL (DBnull) wenn nicht gefunden
If TypeOf userID Is DBNull Then
Return -1
Else
Return CInt(userID)
End If
End Using
End Using
End Function
Ich habe eine Funktion daraus gemacht, die kann man besser einbinden, siehe die kurze Testschleife.
Wobei ich Dir empfehlen würde, gleiche Benamsungen zu verwenden (und auf Abkürzungen weitgehend zu verzichten).
Die SqlConnection sollte lokal bleiben - d. h. keine sqlCon auf Klassenebene definieren. Denn die wäre bereits entsorgt, wollte sie jemand benutzen gäbe es eh nur Fehler.
Gruß Elmar
