+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : الاستفادة من بارمترات الاخراج من SQL Server داخل برنامجك (/showthread.php?tid=16878)
الاستفادة من بارمترات الاخراج من SQL Server داخل برنامجك - ابو ليلى - 20-08-16
منذ فترة بسيطة كنت امام سؤال و فكرة جميلة مفادها عندي رسالة مصدرها اجراء مخزن داخل السيرفر,كيف لي ان اعرضها داخل البرنامج
وحتى تصل الفكرة بشكل بسيط انا لدي اجراء مخزن يقوم بالحفظ في جدول ما بعد ان يتم مطابقة شرط ما
فاذا صح الشرط ساعرض رسالة "تم عملية الحفظ بنجاح" والا "لا يوجد تطابق فشلت عملية الحفظ"
انا لدي هذا الاجراء المخزن كما يلي
PHP كود :
ALTER PROCEDURE [dbo].[insertpayes]
@id int,
@p_price int,
@p_date date,
@p_hass int,
@msgbox nvarchar(50) output
AS
BEGIN
declare @found int
set @found = (SELECT count( Nname) FROM Stu WHERE (s_id = @id) )
if @found=1
Begin
declare @year_id int,@class_n int,@feed_n int
set @year_id=(SELECT id_year FROM Stu WHERE (s_id = @id))
set @class_n=(SELECT class_n FROM Stu WHERE (s_id = @id))
set @feed_n=(SELECT feed_n FROM Stu WHERE (s_id = @id))
--=====================================================================
INSERT INTO payes
( p_price, p_date, p_hass, s_id,year_id,class_n,feed_n)
VALUES (@p_price,@p_date,@p_hass,@id,@year_id,@class_n,@feed_n)
set @msgbox='تمت عملية الحفظ بنجاح'
End
else
Begin
set @msgbox='لا يوجد تطابق فشل في الادخال'
End
return @found
END
الاجراء المخزن ايضا يحتوي على فكرة حلوة لاستخدام عمليات ادخال وفق شروط انت تفرضها
هل لاحظت الباراميتر المسمى @msgbox وهو بارميتر مخرجات,ولاحظ اننا نسند له رسالتين مختلفتين وفق تحقق الشرط من عدمه
المهم كيف لي ان استفيد من هذه الرسالة في برنامجي
الفكرة بسيطة جداً باذن الله فقط تابع هذا الكود الاعتيادي
PHP كود :
Private Sub InsertPayes()
Dim Cls As New Cls_Connection()
Dim cmd As New SqlCommand
cmd.Connection = Cls.SqlCon
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "insertpayes"
Dim msgtext As SqlParameter = New SqlParameter("@msgbox", SqlDbType.NVarChar, 50)
msgtext.Direction = ParameterDirection.Output
cmd.Parameters.Add(msgtext)
cmd.Parameters.AddWithValue("@id", stucode.Text)
cmd.Parameters.AddWithValue("@p_price", Txt_Price.Text)
cmd.Parameters.AddWithValue("@p_date", Txt_Date.Text)
cmd.Parameters.AddWithValue("@p_hass", Txt_Hassem.Text)
Cls.open_con()
cmd.ExecuteNonQuery()
load_payes()
bnpayes.Position = pos
Cls.Close_con()
MessageBox.Show(msgtext.Value)
End Sub
دعواتكم
RE: الاستفادة من بارمترات الاخراج من SQL Server داخل برنامجك - الوادي - 20-08-16
إضافة مفيدة من عضو مفيد لمن أراد أن يستفيد ويفيد.