التعامل مع return @@IDENTITY

مغلق

بدأه إسماعيل الحلو في 31 يناير 2007 · 5 رد · 589 مشاهدة · في ADO.NET

#131 يناير 2007 في 15:04 صاحب الموضوع

السلام عليكم

الرجاء المساعدة في الحصول على قيمة return @@IDENTITY حيث أنني عملت Stored Procedure لحفظ البيانات واستدعيته من داخل الفيجوال دوت نت فكيف يمكنني الحصول على القيمة المرجعة

نص إجراء التخزين

 



ALTER PROCEDURE dbo.AddClass 

(

@SNo tinyint,

@CName tinyint,

@CBranch tinyint,

@CTeacher varchar(25)

)

AS



begin

insert into TBClass(SNo,CName,CBranch,CTeacher)

values(@SNo,@CName,@CBranch,@CTeacher)

return @@IDENTITY

أجراء الاستدعاء

 

		If (Cn.State = ConnectionState.Closed) Then Cn.Open()

		Dim cm As New SqlClient.SqlCommand()
		cm.Connection = Cn
		cm.CommandType = CommandType.StoredProcedure
		cm.CommandText = "AddClass"

		cm.Parameters.Add("@SNo", SqlDbType.TinyInt).Value = Data.SNo
		cm.Parameters.Add("@CName", SqlDbType.TinyInt).Value = Me.cboCName.SelectedValue
		cm.Parameters.Add("@CTeacher", SqlDbType.VarChar, 25).Value = Me.txtCTeacher.Text
		cm.Parameters.Add("@CBranch", SqlDbType.TinyInt).Value = Me.txtCBranch.Text
		Try
			MessageBox.Show("تم حفظ عدد " & cm.ExecuteNonQuery() & " من السجلات", Title, MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
		Catch Err As Exception
			MessageBox.Show(Err.Message.ToString())
		End Try
		cm.Dispose()
		Cn.Close()

يا أيها الناس قولو لا إله إلا الله تفلحوا وتملكوا بها العرب وتذل لكم العجم وإذا آمنتم كنتم ملوكا في الجنة

#231 يناير 2007 في 17:28

ساعدوني يا جماعة

يا أيها الناس قولو لا إله إلا الله تفلحوا وتملكوا بها العرب وتذل لكم العجم وإذا آمنتم كنتم ملوكا في الجنة

#331 يناير 2007 في 18:28

السلام عليكم

جرب الكود التالى

		If Cn.State = ConnectionState.Closed Then Cn.Open()
		Dim cm As New SqlClient.SqlCommand
		cm.Connection = Cn
		cm.CommandType = CommandType.StoredProcedure
		cm.CommandText = "AddClass"
		cm.Parameters.Add("@SNo", SqlDbType.TinyInt).Value = Data.SNo
		cm.Parameters.Add("@CName", SqlDbType.TinyInt).Value = Me.cboCName.SelectedValue
		cm.Parameters.Add("@CTeacher", SqlDbType.VarChar, 25).Value = Me.txtCTeacher.Text
		cm.Parameters.Add("@CBranch", SqlDbType.TinyInt).Value = Me.txtCBranch.Text
		cm.Parameters.Add("RETURN", SqlDbType.Int)
		cm.ExecuteScalar()
		Dim ClassId As Integer = CType(cm.Parameters("RETURN").Value, Integer)
		cm.Dispose()
		Cn.Close()

سوف تحصل على identity عن طريق المتغير classId بالتوفيق ان شاء الله

{وَاتَّقُواْ يَوْمًا تُرْجَعُونَ فِيهِ إِلَى اللّهِ ثُمَّ تُوَفَّى كُلُّ نَفْسٍ مَّا كَسَبَتْ وَهُمْ لاَ يُظْلَمُونَ} (281) سورة البقرة