Hej!

Jag har gjort allt för att få mitt loggin att fungera men vad jag än gör så får jag inte resultatet jag vill, vet inte om det är fel på SP eller koden.

SP
CREATE PROCEDURE spLoginUser(@Username char(10), @Password char(10))
AS
IF @Username IS NOT NULL
BEGIN
IF EXISTS (SELECT Fullname, OrtID, Access
FROM dbo.TbUsers
WHERE (Username = @Username) AND (Password = @Password))
RETURN 1
ELSE
RETURN 0
END
GO
-----------------------------------------------------------------------------
Kod
Public Class LoginForm1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim F As New Search()
Dim ConCommand As New SqlCommand()
ConCommand.Connection = New SqlClient.SqlConnection("Data Source=W102016;Initial Catalog=LTS;Integrated Security=True;Encrypt=False")
ConCommand.CommandType = CommandType.StoredProcedure
ConCommand.CommandText = "spLoginUser"
ConCommand.Connection.Open()
Dim addUsername As New SqlParameter("@Username", Me.txtName.Text)
ConCommand.Parameters.Add(addUsername)
Dim addPassword As New SqlParameter("@Password", Me.txtPassword.Text)
ConCommand.Parameters.Add(addPassword)
* Dim retValParam As New SqlParameter("@RETURN_VALUE", SqlDbType.Int)
* retValParam.Direction = ParameterDirection.ReturnValue
* ConCommand.Parameters.Add(retValParam)
* Dim result = ConCommand.ExecuteScalar()

If result > 0 Then
F.ShowDialog()
Me.Close()
Else
Dim Text As String = "Du loggades inte in!"
Dim Caption As String = "Felaktig inloggning"
MessageBox.Show(Caption, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

* Jag får inte tillbaka något värde vid debug, värdet är helatiden "Nothing", kan någon hjälpa mig på traven, har provat med det mesta.

Tack på förhand

Vad hjänder om du använder retValParam istället för result?

        If retValParam.value > 0 Then
            F.ShowDialog()
            Me.Close()
        Else
            Dim Text As String = "Du loggades inte in!"
            Dim Caption As String = "Felaktig inloggning"
            MessageBox.Show(Caption, Text, MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If 

Hej Andreas!

Tack för förslaget, men value på retValParam.Value är ändå "Nothing", antingen får jag inget värde från sp eller så kan koden inte erhålla ett värde, vad som är felet vet jag inte?

Provade u att lägga till ParameterDirection.Input

Dim addPassword As New SqlParameter("@Password", Me.txtPassword.Text, ParameterDirection.Input

Felmeddelande: Conversion from string "kriwei" to type 'Integer' is not valid.

Några mer förslag?

Provade att skriva om SP.
CREATE PROCEDURE spLoginUser(@Username char(10), @Password char(10), @Exist int OUTPUT)
AS
IF @Username IS NOT NUL
SELECT COUNT(*) AS Exist, Fullname, OrtID, Access
FROM dbo.TbUsers
WHERE (Username = @Username) AND (Password = @Password)
GROUP BY Fullname, OrtID, Access
RETURN @Exist
END
GO