29-07-15, 12:49 PM
اخواني الاعزاء كيفية عمل Stored Procedures يفحص الاسماء قبل الاضافة اذا كان موجودة و لا ان كانت موجود يظهر رسالة وان لا فايضيفها .
29-07-15, 12:49 PM
29-07-15, 06:26 PM
سلام
هذا مثال
اول شيء نعمل storedprocedure بهذه الطريقه تقريباً والافضل تختر له اسم مناسب بدل الاسم الافتراضي
ونلاحظ ان الارقام 99999 و55555 انا اخترتها بشكل عشوائي بس اهم شي ما يكون رقم صغير ولا كبير جدا عشان هذه الارقام تفيدني في نوع الرساله اللي راح اظهرها للمستخدم من حيث اذا كان الاسم موجود من قبل ولا البيانات غير صحيحه
الحين نجي لطريقت التعامل مع storedproceure عن طريق vb.net وهذا ان شاء الله انه سهل ما يحتاج شرح
يدوب الاضافه الغريبه اللي ممكن تشوفها اضافت parameter خاص لقراءه الرقم اللي راح يرجع بالنتيجه
موفقين
هذا مثال
اول شيء نعمل storedprocedure بهذه الطريقه تقريباً والافضل تختر له اسم مناسب بدل الاسم الافتراضي
ونلاحظ ان الارقام 99999 و55555 انا اخترتها بشكل عشوائي بس اهم شي ما يكون رقم صغير ولا كبير جدا عشان هذه الارقام تفيدني في نوع الرساله اللي راح اظهرها للمستخدم من حيث اذا كان الاسم موجود من قبل ولا البيانات غير صحيحه
كود :
CREATE PROCEDURE dbo.StoredProcedure1
@name varchar(50) = '' ,
@phone int = 0
AS
/* التأكد من إدخال بيانات */
IF RTRIM(@name) = ''
BEGIN
RETURN 99999
END
/* التأكد من موجود سجل مسبق */
IF EXISTS (SELECT [name] FROM [table] WHERE [name]=@name )
BEGIN
RETURN 55555
END
BEGIN TRY
/* إدخال البيانات */
INSERT INTO [table] ([name], [phone]) VALUES (@name, @phone)
END TRY
BEGIN CATCH
RETURN -1
END CATCH
RETURN 0الحين نجي لطريقت التعامل مع storedproceure عن طريق vb.net وهذا ان شاء الله انه سهل ما يحتاج شرح
يدوب الاضافه الغريبه اللي ممكن تشوفها اضافت parameter خاص لقراءه الرقم اللي راح يرجع بالنتيجه
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using conn As New SqlConnection(connectionString)
Using cmd As New SqlCommand("StoredProcedure1", conn)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.AddWithValue("@name", txtName.Text.Trim)
cmd.Parameters.AddWithValue("@phone", txtPhone.Text.Trim)
Dim param As New SqlParameter("returnValue", Nothing)
param.Direction = ParameterDirection.ReturnValue
cmd.Parameters.Add(param)
conn.Open()
cmd.ExecuteNonQuery()
conn.Close()
Dim retVal As Integer = cmd.Parameters("returnValue").Value
MsgBox("Return Value: " & retVal)
Select Case retVal
Case 0
MsgBox("تمت إضافة البيانات")
Case 99999
MsgBox("يجب إدخال بيانات")
Case 55555
MsgBox("الاسم موجود مسبقاً")
Case Else
MsgBox("Return Value: " & retVal & vbNewLine & "فشل")
End Select
End Using
End Using
End Subموفقين
29-07-15, 11:01 PM
السلام عليكم أخي العزيز ورحمة االله وبركاته
يقول الرجل العادل : "أعلم الناس من جمع علوم الناس إلى علمه"
عذرا أخي الطالب، أريد أن أعقب على مشاركتك ولا يعني تعقيبي لا سمح الله أن لا قيمة لما تفضلت به "منكم نتعلم ونستفيد فبالتواضع يعمر العلم ويزكو".
يمكن أيضا الوصول إلى نفس الفكرة من خلال DataReader Object
end If
يقول الرجل العادل : "أعلم الناس من جمع علوم الناس إلى علمه"
عذرا أخي الطالب، أريد أن أعقب على مشاركتك ولا يعني تعقيبي لا سمح الله أن لا قيمة لما تفضلت به "منكم نتعلم ونستفيد فبالتواضع يعمر العلم ويزكو".
يمكن أيضا الوصول إلى نفس الفكرة من خلال DataReader Object
كود :
Dim dr as SqlDataReaderكود :
dr = cmd.ExecuteReaderكود :
IF dr.HasRows Then
msgbox("The name Exists")end If
30-07-15, 10:50 AM
اشكركم على المرور والردود المفيدة ولكن كانت غايتي هي ما كتبة الاخ طالب .
اشكرك اخي khodor1985
اشكرك اخي khodor1985
30-07-15, 11:24 AM
سلام
أشكرك أخي khodor1985 بما تفضلت به
datareader تستخدم في القراءه ولا نحتاجها في الاضافه أو التحديث
نحتاجها اذا اردنا قراءت بيانات كثيره جدا جدا لا ينفع معها datatset ولا حتى datatable وخصوصا إذا كانت مواصفات جهاز المستخدم ضعيفه.
موفقين
أشكرك أخي khodor1985 بما تفضلت به
datareader تستخدم في القراءه ولا نحتاجها في الاضافه أو التحديث
نحتاجها اذا اردنا قراءت بيانات كثيره جدا جدا لا ينفع معها datatset ولا حتى datatable وخصوصا إذا كانت مواصفات جهاز المستخدم ضعيفه.
موفقين
31-07-15, 10:38 PM
عذراً أخي العزيز فأنا أختلف معك في ما تفضلتم به فيمكن استخدام data reader لفحص الأسماء قبل الإضافة وإذا أردت الدليل فسأرسل لك مثال على ذلك.
شكرا لتجاوبكم
شكرا لتجاوبكم
01-08-15, 12:12 AM
جزاكم الله خير لو في مثال تطبيقي حتى يستفاد الجميع
وفقكم الله
وفقكم الله