منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم و رحمة الله و بركاته
اولا ان شاء الله اكون في القسم المناسب
الحقيقة لدي قاعدة بيانات sql server على الشبكة
و اريد ان اعمل لها برنامج بـ vb.net للاضافة الحذف و غير ذلك
القاعدة بها storage procedure (الاجراءات المخزنة )
و اول مرة اتعامل معها
طلبي هو :

كيف اتعامل مع هذه الاجراءات خصوصا ذات parameters(المعاملات)
و ارجو ان يكون المثال كمايلي

نافذة الولوج بها
combobox1 و textbox1

اختر المستخدم من الكومبوبوكس
و ادخل كلمة المرور في مربع النص

حيث يتم المقارنة بين اسم المستخدم من قاعدة البيانات و كلمة السر

علما ان معاملات الاجراء كما يلي :

where
user=@puser
pass=@ppass

اتمنى الرد يكون سريع نظرا لعجلة الامر

و شكرا مقدما و بارك الله فيكم

هل من حل بارك الله فيكم

هل من رد

ارجو الرد ممن لديه معرفة لاهمية الامر

جزاك الله خيرا و بارك الله فيك

سانظر في المواضيع ثم اعود ان شاء الله

نظرت في المواضيع المذكورة و نفذت ما جاء فيها

لكن نفس المشكل

ما الخطاء في الكود التالي :

إقتباس : 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

علما ان نص الاتصال وضعته في موديول

ارجو تنبيهي للخطا جزيتم الجنة