إقتباس : Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Try
Dim cmd As New SqlCommand("selectuser", conn)
cmd.Connection = conn
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "selectuser"
Dim users As New SqlParameter '("puser", SqlDbType.NVarChar, 50)
users.ParameterName = "@puser"
users.DbType = DbType.String
users.Direction = ParameterDirection.Output
cmd.Parameters.Add(users)

conn.Open()



'users.Value = "utilisateur"
'cmd.ExecuteNonQuery()
Dim myread As SqlDataReader = cmd.ExecuteReader()

myread.Read()
test.Text = cmd.Parameters("@puser").Value.ToString
myread.Close()
conn.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

إقتباس :ALTER PROCEDURE [dbo].[selectuser]
-- Add the parameters for the stored procedure here
(
@puser nvarchar(50),
@ppass nvarchar(30)
)


AS
BEGIN
-- SET NOCOUNT ON added to prevent extra result sets from
-- interfering with SELECT statements.
SET NOCOUNT ON;

-- Insert statements for procedure here
SELECT *
from utilisateurs
where
utilisateur=@puser
and
passwor=@ppass
END