Question On Stored Procedure But Urgent

السلام عليكم

الكود يكون بالشكل التالى

insert into Visit (PID,Vdate,VNO,Vtype,Vdiag) values (@PID,@VDate,@VNO,@VType,@Vdiag)
RETURN (@@IDENTITY)
GO

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

عليكم السلام

هل ممكن عرض الكود المستخدم عندك

دة مثال صغير على ال Northwind

CREATE PROCEDURE AddEmployee
AS
INSERT INTO Employees (LastName, FirstName) VALUES(' Hussein', 'Mohamed ')
RETURN (@@IDENTITY)
GO

ودة كود التنفيذ مكتوب بالفجول بيسك دنت نت

	Private Sub butsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butsave.Click
		Dim myCon As New SqlConnection()
		myCon.ConnectionString = "data source=(local);initial catalog=Northwind;integrated security=SSPI"
		myCon.Open()
		Dim myCommand As New SqlCommand()
		myCommand.Connection = myCon
		Try
			myCommand.CommandText = "AddEmployee"
			myCommand.CommandType = CommandType.StoredProcedure
			Dim p As New SqlParameter()
			p.ParameterName = "RETURN"
			p.Direction = ParameterDirection.ReturnValue
			p.SqlDbType = SqlDbType.Int
			myCommand.Parameters.Add(p)
			myCommand.ExecuteScalar()
			Dim EmployeeID As Integer = CType(myCommand.Parameters("RETURN").Value, Integer)
			MessageBox.Show(EmployeeID)
			myCon.Close()
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try
	End Sub