[new_programer]

السلام عليكم 
لدي كود اجراء مخزن تم طرحة من احد الاخوة الافاضل . الطالب

 الكود  يفحص الباركود قبل الاضافة اذا كان موجودة و لا ان كانت موجود يظهر رسالة وان لا فايضيفها 

انا  محتاج لو الكود موجود  يطبع قيمة الباركود فى تكست بوكس

الكود

PHP كود :

ALTER PROCEDURE [dbo].[StoredProcedure2]


 @barCodeNo bigint OUTPUT,
    @barCode varchar(50) = ''  ,
    @itemCode int = 0
AS
    /* التأكد من إدخال بيانات */
    IF RTRIM(@barCode) = ''
    BEGIN
        RETURN 99999
    END

    /* التأكد من موجود سجل مسبق */
    IF EXISTS (SELECT [barCode] FROM [Uint_ItemsTbl] WHERE [barCode]=@barCode )
    BEGIN
   SELECT  @barCodeNo =  MAX(barCode) FROM Uint_ItemsTbl  WHERE itemCode=@itemCode AND barCode=@barCode 
   --محتاج ارجع بقيمة الاستعلام الى تكست بوكس فى الفورم 
        RETURN 55555
    END

    BEGIN TRY
        /* إدخال البيانات */
        INSERT INTO [Uint_ItemsTbl] ([barCode], [itemCode]) VALUES (@barCode, @itemCode)
    END TRY
    BEGIN CATCH
        RETURN -1
    END CATCH

    RETURN 0 


كود  VB.net

PHP كود :

     Using cmd As New SqlCommand("StoredProcedure2", conn)
            cmd.CommandType = CommandType.StoredProcedure
            cmd.Parameters.AddWithValue("@itemCode", TxtGrossIncome.Text.Trim)
            cmd.Parameters.AddWithValue("@barCode ", txtPhone.Text.Trim)
            cmd.Parameters.AddWithValue("@barCodeNo ", txtbarCode.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("الاسم موجود مسبقاً" & retVal & vbNewLine & "@barCodeNo")
                Case Else
                    MsgBox("Return Value:  " & retVal & vbNewLine & "فشل")
            End Select
        End Using 


---

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

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