نظرت في المواضيع المذكورة و نفذت ما جاء فيها
لكن نفس المشكل
ما الخطاء في الكود التالي :
و هذا هو الاجراء :
علما ان نص الاتصال وضعته في موديول
ارجو تنبيهي للخطا جزيتم الجنة
لكن نفس المشكل
ما الخطاء في الكود التالي :
إقتباس : 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
علما ان نص الاتصال وضعته في موديول
ارجو تنبيهي للخطا جزيتم الجنة
